캐드 분류
cad 리습 질문입니다.(오류 검토)-고수님들 도와주세요
컨텐츠 정보
- 195 조회
- 5 댓글
- 0 추천
- 0 비추천
- 목록
본문
리습을 사용하면 값은 나오는데 화면에 출력이 되질않고 에러나 나네요~
참고로 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)
)
관련자료
댓글 5
/ 1 페이지