홈/ 질문/Q 111798
다음
진행 중
Lv.0
등록일: 2019-10-02T16:22:42+09:00 카테고리:

캐드 길이합산 리습이 2015버전에 사용이 안됩니다.

안녕하세요  리습이 안되서 문의 드립니다.
기존 캐드 2011버전에서는 문제없이 길이 합산이 나왔으나,
이번에 윈도우10 버전 캐드 2015 버전에서는 이 리습이 길이합산이 명기가 안되고 있습니다.
이점 문의 드립니다.

—————–  이렇게 나오면서 안나옵니다 —————-
객체 선택: 1개를 찾음
객체 선택:
현재 길이: 14799
***** 선택 객체수 = 1 길이합계 = 14.80
문자 시작점 :
문자 크기:250
수치 거리를 요구함, 두 점, 또는 옵션 키워드.
; 오류: 함수가 취소되었습니다
전체 길이 또는 [각도(A)] 지정 <1>: *취소*

  —————–  리습내용입니다 —————-
(defun c:QA ()
 (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 “lengthen” ent_l “”)
 (setq dis (+ dis (GETVAR “PERIMETER”)))
 (setq n (1+ n))
 (setq diss (/ dis 1000))
 )
 (prompt (strcat “n***** 선택 객체수 = “(rtos n)” 길이합계 = ” (rtos diss 2 2)))
 (setq xx (getpoint “n문자 시작점 :”))
 (setq save
  (cond
   (save (cond ((getreal (strcat “n문자 크기<” (vl-princ-to-string save) “>:”))) (save)))
   ((getreal “n문자 크기:”))
  )
 )
 (command “text” xx save “” (strcat (rtos diss 2 2) “(m)” ))


  (repeat (setq i (sslength ent))
   (redraw (ssname ent (setq i (- i 1))) 2)
  )
 
 (setvar “cmdecho” 0)
 (princ)
)


 


 


 


 

공유

    관련 있는 질문들

    3 답변

    1. aalan

    2. 감사합니다~ 내일 출근하면 확인해 보겠습니다~
      즐거운 밤 보내세요~

      • 0

    3. 감사합니다! 내일 회사에 출근하면 바로 확인해보도록 하겠습니다!

      • 0
    4. Lv.17

      (defun c:QA (/ ent n dis ent_l diss xx i)
       (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 “lengthen” ent_l “”)
       (setq dis (+ dis (GETVAR “PERIMETER”)))
       (setq n (1+ n))
       (setq diss (/ dis 1000))
       )
       (prompt (strcat “n***** 선택 객체수 = “(rtos n)” 길이합계 = ” (rtos diss 2 2)))
       (setq xx (getpoint “n문자 시작점 :”))
       (setq save
        (cond
         (save (cond ((getreal (strcat “n문자 크기<” (vl-princ-to-string save) “>:”))) (save)))
         ((getreal “n문자 크기:”))
        )
       )
       (command “text” xx save “” (strcat (rtos diss 2 2) “(m)” ))
        (repeat (setq i (sslength ent))
         (redraw (ssname ent (setq i (- i 1))) 2)
        )
       
       (setvar “cmdecho” 0)
       (princ)

      )
      리습은 이상 없습니다.
      그리고 리습은 캐드 버전에 따라 달라지는것 없습니다.
      가끔가다 Command 명령이 바뀌는것 때문일수는 있는데 큰 차이는 없습니다.
      ( 쌍따움표 “” 두개가 추가 되는 정도 입니다.)
      제가 수정한것은 변수를 모두 지역변수로 했습니다.(빨간색 으로)
      save는 전역변수로 두로 나머지는 모두 지역변수로 했습니다.(save 글자 높이 기억)
      • 0