캐드

길이 합산 리습 수정 부탁드려요

G얼마야24 쪽지보내기 메일보내기 자기소개 아이디로 검색 전체게시물 작성
작성일 2023.03.01 05:08

245 조회
2 댓글
0 추천
0 비추천
목록

안녕하세요 매번 도움만 받는 초보입니다 ㅠㅠ

도면 길이 합산해서 화면 출력해주는 리습인데

텍스트 문자 높이를 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))

(mapcar 'vlax-release-object (list #as #ad))

(princ)

(setvar "cmdecho" 1)

)

일교차가 커요 님들 감기 조심하세요…

댓글 2 / 1 페이지

상큼메론90 이름으로 검색
작성일 2016.11.03 09:17

문자높이 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) )

<img alt=emoticon src="https://www.gocad.co.kr/modules/editor/components/emoticon/tpl/images/animated/animate_emoticon%20(80).gif"/>
문자높이 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)
)