아래 그림 처럼 원하는 위치에 끝이 화살표인 라인을 찍어서 선을 뽑아내서 넘버링을 할려고 합니다.
라인과 원안에 숫자가 같이 그릴수있게 리습을 만들고 싶은데 ….. 원안에 숫자가 증가하는 리습은
구했는데 넘버링 전에 라인을 뽑으면서 넘버링을 하고 싶습니다. 도와주세요 ㅠㅠ
==========원안에 넘버링 증가하는 리습 입니다
(defun c:NT ()
(setq s_num (getstring “n 시작할 번호입력 : “))
(setq ts (getreal “n Text size : “))
(setq cs (* ts 1.5)) ; 원의 크기는 문자 크기의 1.5배
(if (= s_num “”) (setq s_num num) (setq num (itoa (1- (read s_num)))))
(while
(setvar “osmode” 0)
(setq txt_pt (getpoint “n Text insertion point: “))
(command “.text” txt_pt ts “” (if (not num) (setq num “0”) (setq num (itoa (1+ (read num)))))””)
(setq el (entlast))
(COMMAND “CHANGE” “L” “” “P” “C” “2” “”) ; 문자색상
(setq os (getvar “osmode”))
(setq ss (ssadd))
(ssadd el ss)
(setq k 0)
(setq en (ssname ss k))
(command “justifytext” en “” “mc”)
(setq en (ssname ss k))
(setq p1 (cdr (assoc 10 (entget en))))
(setq p2 (cdr (assoc 11 (entget en))))
(command “circle” p2 cs)
(COMMAND “CHANGE” “L” “” “P” “C” “2” “”) ;원의 색상
(setq k (+ k 1))
(setvar “osmode” os)
(princ)
)
)
풍선기호 리습검색해보세요
ArchiOffice 사용하시는 분들은 간편다중지시선(XMLD) 이용하시면 될 듯하네여….!
