길이 합산 리습 수정 부탁드려요
컨텐츠 정보
- 246 조회
- 2 댓글
- 0 추천
- 0 비추천
- 목록
본문
안녕하세요 매번 도움만 받는 초보입니다 ㅠㅠ
관련자료
상큼메론90님의 댓글
문자높이 30 으로
(defun c:lll (/ 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 "lengthen" ent_l "") (setq dis (+ dis (GETVAR "PERIMETER"))) (setq n (1+ n)) ) (setq #a(strcat (rtos dis 2 2))) (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:"))(* (getvar "textsize")1.0)) (vla-addtext #as #a (vlax-3d-point(getpoint "n≫≫≫Pick text point:")) 30) (mapcar 'vlax-release-object (list #as #ad)) (princ) (setvar "cmdecho" 1) )