면적, 평 구하는 리습인데 메모장에 이렇게 적혀있습니다
(defun c:AD ( / doc space ss index obj mi mx minpt maxpt inspt area txtobj )
(setvar “cmdecho” 0)
(setq doc (vla-get-activedocument (vlax-get-acad-object)))
(cond
((= (vla-get-activespace doc) 1) (setq space (vla-get-modelspace doc)))
((= (vla-get-activespace doc) 0) (setq space (vla-get-paperspace doc)))
)
(if (setq ss (ssget (list (cons 0 “CIRCLE,ARC,*POLYLINE,LINE,ELLIPSE,SPLINE”))))
(if (or (setq ts (getreal (strcat “n텍스트 높이 입력 <” (vl-princ-to-string (getvar “textsize”)) “>:”))) (setq ts (getvar “textsize”)))
(progn
(setvar “textsize” ts)
(setq index 0)
(repeat (sslength ss)
(setq obj (vlax-ename->vla-object (ssname ss index)))
(vla-getboundingbox obj ‘mi ‘mx)
(setq minpt (vlax-safearray->list mi) maxpt (vlax-safearray->list mx))
(setq inspt (polar minpt (angle minpt maxpt) (/ (distance minpt maxpt) 2)))
(setq inspt (list (car inspt) (+ (cadr inspt) (* ts 2))))
(setq area (vla-get-area obj) len (vlax-curve-getdistatparam obj (vlax-curve-getendparam obj)))
(mapcar ‘(lambda (a b)
(setq p (vlax-3d-point inspt))
(setq txtobj (vla-addtext space (strcat a b) p ts))
(vla-put-alignment txtobj 4)
(vla-put-textalignmentpoint txtobj p)
(setq inspt (polar inspt (/ (* 270 pi) 180) (* ts 2)))
)
‘(list (rtos (rtos (/ area 1.) 2 0) (* area 1 0.3025) 2 0) (“㎡” “py”)
)
(setq index (1+ index))
)
(command “chprop” (ssget “x” ‘((0 . “TEXT”) (1 . “평*”))) “” “c” “7” “”)
)
)
)
(princ)
)
(vl-load-com)
(prompt “n[ AAA ]”)
(princ)
사진과 같이 저렇게 면적하고 평이 입력되면 알수없는명령이라고 뜨면서 속도가 느려집니다 ㅠㅠ
오늘 아침에 다시 해보니까 명령이 읽히지도 않습니다 ㅜㅜ 왜이럴까요
고수님들 도와주시기 바랍니다
사진과 같이 저렇게 면적하고 평이 입력되면 알수없는명령이라고 뜨면서 속도가 느려집니다 ㅠㅠ
오늘 아침에 다시 해보니까 명령이 읽히지도 않습니다 ㅜㅜ 왜이럴까요
고수님들 도와주시기 바랍니다
(command “chprop” (ssget “x” ‘((0 . “TEXT”) (1 . “평*”))) “” “c” “7” “”)
뭐하남님 답변 감사드립니다
이미지 올려는데 괜찮으시다면 다시 한번 봐주실수 있을까요?? ㅠㅠ
오늘 아침에 다시 해보니 명령이 읽히지도 않습니다 뭐가 문제일까요 ㅠㅠ
리습 누가 원본을 수정해서 아예 먹통이 되게 만들어 놨네요 누굴까??? 궁금하네용 ㅎㅎ;;
수야12님 정말 감사드립니다 ㅠㅠㅠ 도움이됬습니다 유용하게 잘쓰겠습니다 너무 감사드립니다 !!