홈/ 질문/Q 110782
다음
진행 중
아주조금합니다.
Lv.1
등록일: 2019-01-02T17:29:55+09:00 카테고리:

array 자동으로 하고싶은데 초보자가 조언을 얻고자 합니다

(defun C:MM()
(setq a (getdist “n Second Point : “))                 설명 :  거리측정을 하여 기억해둡니다. 
(setq b (ssget))                                               설명:   array 하기위한 객체를 기억해둡니다 
(setq c (? ))      어떻게 처리해야하나요?               설명:   a 값을 몇등분을할 값을 입력.  입력합수
(setq d (/ a c)                                                 설명:   array  할때 길이값 기억해둡니다.  사칙연산
(setq e (+c 1)                                                 설명:   array  할때 길이값 기억해둡니다.  사칙연산 
(Command “-array” “b” “r” “1” “e” “d”    )                                    설명      
(princ)                                              
)
도면을 제일 많이 하는 것인데 반복적으로 작업을 합니다. 
(setq c (? ))      어떻게 처리해야하나요?  
공유

    관련 있는 질문들

    12 답변

    1. aalan
    2. Lv.22
      (defun c:MM( / a b c d )
       (setq a(getdist “nGetdistnace:”))
       (setq b(ssget))
       (setq c(getreal “nSpecify divide value:”))
       (setq d  (/ a c))
       (Command “-array”  b “” “r” “1” (fix c) “” d )       
       (princ)
      ) 
      • 0
    3. Lv.1
      (defun c:MM( / a b c d e )
       (setq a(getdist “nGetdistnace:”))
       (setq b(ssget))
       (setq c(getreal “nSpecify divide value:”))
       (setq d  (/ a c))
       (setq e  (+ c 1))
       (Command “-array”  b “” “r” “1” (fix e) (fix d) )       
       (princ)
      )
      감사합니다.   응용해서 완성을 하였습니다.
      • 0
    4. Lv.1

      사칙연산에서 정확도가 떨어지는거 같아요 

      1500/ 3 을했을 경우 정확하게 array가 됩니다. 
      그런데 예를 들어서 158/3을 했을경우 소주점으로 되는것은 오차가 생깁니다. 
      나누기 할때 소수점 5자리 정도까지 값은 못가져 오나요?
      • 0
    5. Lv.8

      실수 / 실수 = 실수
      실수 / 정수 = 실수
      정수 / 정수 = 정수
      (/ 3 2) = 1
      (/ 3 2.0) = 1.5
      (/ 3 (float 2)) = 1.5
      그래서 저는 “/” (나누기) 를 잘사용 않합니다  (* 0.5 3) =1.5

      • 0
    6. Lv.1

      더좋은 방법이 있나요? 어떻게 해야돼죠?

       (setq d  (/ a c (float 2)))   맞나요?
      • 0
    7. Lv.1

      이상한데요?

      • 0
    8. Lv.22

       (setq d  (/ a  (float c))) 로 하라는 얘깁니다 그런데  c 에서 Getreal로 받기 때문에 예를 들면 사용자가 3을 입력하면 3.0으로 받아 들이기 때문에 굳이 안사용해도 되는 구문입니다 

      소수점 정밀도는 저도 잘 모르지만 혹 dimstyle 또는 units 에서 조절 해보세요 
      • 0
    9. Lv.1

      위와 같이 하게되면

      길이가 2167/4 이라하면 541.75 값으로 ARRAY가 돼야하는데 
      541로 ARRAY가 됩니다.   
      2167/ 4 소수점까지 541.7500 값을 얻을수는 없나요?
      • 0
    10. Lv.1
      (defun c:MM( / a b c d e )
      (setq a(getdist “nGetdistnace:”))
      (setq b(ssget))
      (setq c(getreal “nSpecify divide value:”))
      (setq d  (Command “CAL”(fix a)/ (fix c))
      (setq e  (+ c 1))
      (Command “-array”  b “” “r” “1” (fix e) (fix d) )       
      (princ)
      )
      이렇게 하면 오류가 나는건가요
      • 0
    11. Lv.22

      네 fix함수는 소수점을 끊어냅니다 예를 들어 13.333을 fix 하면 13이 됩니다

      • 0
    12. Lv.1

      감사합니다. 

      (defun c:MM( / a b c d e )
       (setq a(getdist “nGetdistnace:”))
       (setq b(ssget))
       (setq c(getreal “nSpecify divide value:”))
       (setq d  (/ (float a) c))
       (setq e  (+ c 1))
       (Command “-array”  b “” “r” “1” (fix e) (float d) )       
       (princ)
      )
      잘됩니다.  
      • 0
    13. Lv.0

      warfire114@naver.com   
      원하시는 작업방법 캐드파일로 정리해서  메일 주세요.
      해결해드리겠습니다.

      • 0