(defun c:dma (/ cm arcel obj num lu txt)
(setq cm (getvar “cmdecho”))
(setvar “cmdecho” 0)
(setq arcel (entsel “nSelect an Arc: “))
(while
(if
(/= (cdr(assoc 0 (entget(car arcel)))) “ARC”)
(progn
(prompt “nSelected Object is not an ARC”)
(setq arcel (entsel “nSelect Arc: “))
)
)
)
(setq obj (vlax-ename->vla-object (car arcel)))
(setq num (vla-get-ArcLength obj))
(setq lu (getvar “lunits”))
(cond
((= lu 1)(setq txt (rtos num 1)))
((= lu 2)(setq txt (rtos num 2)))
((= lu 3)(setq txt (rtos num 3)))
((= lu 4)(setq txt (rtos num 4)))
((= lu 5)(setq txt (rtos num 5)))
)
(command “dimangular” arcel “t” txt pause)
(setvar “cmdecho” cm)
(princ)
)
2002에선 실행이 되는데요….r14에선 안되네요…
고수님들 이유가 무엇인지 알려주심 감사하겠습니다..
r14 에선 호길이 표기가 안되는건가요….
부탁드립니다….
xp에선 r14가 제대로 작동이 안됩니다….r14는 도스버전이기 때문에..