리습을 사용하면 값은 나오는데 화면에 출력이 되질않고 에러나 나네요~
참고로 19LT 버젼이고요~ ICOMTOOLS 사용중입니다.
실행하면
———————–
명령: LP
객체 선택: 1개를 찾음
객체 선택:
현재 길이: 21188.8532
21.19m; error: no function definition:
————————————-
나오는데 이유를 모르겠습니다. ㅠㅠ
(defun c:LP (/ ent n dis ent_l #a #ad #as )
(setvar “cmdecho” 0)
(setq ent (ssget ‘((0 . “LINE,CIRCLE,ARC,POLYLINE,LWPOLYLINE,ELLIPSE,SPLINE”))))
(setq n 0 dis 0)
(repeat (sslength ent)
(setq ent_l (ssname ent n))
(command-s “lengthen” ent_l “” “” “”)
(setq dis (+ dis (/ (GETVAR “PERIMETER”) 1000)))
(setq n (1+ n))
)
(setq #a(strcat (rtos dis 2 2) “m”))
(prompt (strcat “n” #a))
(vl-load-com)
(setq #ad(vla-get-activedocument(vlax-get-acad-object)))
(setq #as
(if (> (vla-get-activespace #ad) 0)
(vla-get-modelspace #ad)
(vla-get-paperspace #ad)
);;if
);;setq
(vla-addtext #as #a (vlax-3d-point(getpoint “n≫≫≫Pick text point:”)) 2000))
(mapcar ‘vlax-release-object (list #as #ad))
(princ)
(setvar “cmdecho” 1)
)
앗…감사합니다.
아이컴툴즈 홈페이지가 바꼈는지 안들어가지네요 함수를 어느선 까지 지원하는 알아야 수정을 할텐데 ..
아시는 분들 도와주세요~ 변경할 줄 몰라요~ㅠㅠ
뒷 메시지가 없어서 문제인거예요~ ㅠㅠ
함수설정이 안됐다고나오는데요 저 뒷 메세지가 뭔가요??