리습을 다운받았는데 수정방법을 몰라 수정부탁드립니다.
예) 치수 18.000 -> 10@1.800=18.000으로 수정을 하고싶은데 도통알수가 없네요
정수값으로는 잘되는데 18.000 -> 18@1=18.000 실수값으로는 어디를 수정해야할지 모르겠어요
부탁드립니다.
(defun c:900(/ lumx tt1 dim_ver e ent pt13 pt14 pthis1 pthis2 tt1 tt2 tt3 tt4 tt5 tt6 na naa)
(if (/= (type tt1) ‘REAL) (setq tt1 900))
(setq lumx (getint (strcat “n계산값<<” (rtos tt1) “> : “)))
(if lumx (setq tt1 lumx) )
(princ tt1)
(setq e (entsel “nPick dimension to divide : “))
(setq ent (entget (car e)))
(setq pt13 (cdr (assoc 13 ent)))
(setq pt14 (cdr (assoc 14 ent)))
(setq pthis1 (rtos (distance pt13 pt14) 2 0))
(setq pthis2 (atof pthis1))
(setq tt2 (/ pthis2 tt1))
(setq tt3 (ac (itoa tt1) ) tt4 (rtos tt2 2 0))
(setq tt6 “@” tt7 “=” tt8 “<>”)
(setq tt5(strcat tt4 tt6 tt3 tt7 tt8))
(setq na (rem pthis2 tt1))
(setq naa (rtos na 2 0))
;(if 구문을 넣어라 “만약에 나누어 떨어지지않는다면…”)
(if (/= na 0)
(progn
(princ (strcat naa “만큼의 짜투리가 생겨요.”))(princ)
)
(progn
(command “DIM” “NEW” tt5 e “” “EXIT” )
)
)
)