홈/ 질문/Q 112880
다음
진행 중
Lv.0
등록일: 2021-02-15T13:17:12+09:00 카테고리:

cad 리습 질문입니다.(오류 검토)-고수님들 도와주세요

리습을 사용하면 값은 나오는데 화면에 출력이 되질않고 에러나 나네요~
참고로 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. aalan
    2. Lv.21

      함수설정이 안됐다고나오는데요 저 뒷 메세지가 뭔가요??

       함수설정이 안됐다는 얘기는 함수 지원이 안된다는 얘기랑 통합니다 
      LT버전이니 혹 모르니 vla- add 보다는 entmake를 사용 해보세요 뒤에 릴리즈 구문도 없애보시고 
      • 0

    3. 뒷 메시지가 없어서 문제인거예요~ ㅠㅠ 

      에러가 떳는데 믄 에러인지 안나와서… 뭐가 문제인지를 모르는거지요~ ㅠㅠ
      • 0

    4. 아시는 분들 도와주세요~ 변경할 줄 몰라요~ㅠㅠ

      • 0
    5. Lv.21

      아이컴툴즈 홈페이지가 바꼈는지 안들어가지네요 함수를 어느선 까지 지원하는 알아야 수정을 할텐데 ..

      (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))
       (command-s “_.text” (getpoint “n≫≫≫Pick text point:”) “20” “0” #a)
       
      (princ)
      (setvar “cmdecho” 1)
      )
      아 이거 한번 해보세요 command 문이라 자신 없지만 ㅎㅎ;; 
      • 0

    6. 앗…감사합니다.

      command-s를 command로 변경하니 돌아가네요~ ㅠㅠ
      정말감사합니다. 흙흙흙~
      • 0