(defun c:cnt (/ acDoc acSpc cnt pt txtHei)
(vl-load-com)
(setq acDoc (vla-get-activedocument (vlax-get-acad-object)))
(setq acSpc (vlax-get-property acDoc (if (= 1 (getvar ‘CVPORT)) ‘paperspace ‘modelspace)))
(or staCount (setq staCount 1))
(and (setq cnt (getint (strcat “n시작번호<” (itoa staCount) “>: “)))(setq staCount cnt))
(while (setq pt (getpoint “n삽입점: “))
(or txtHei (setq txtHei (getdist (strcat “n문자크기<” (rtos (getvar ‘textsize) 2 2) “>: “))))
(and txtHei (setvar ‘textsize txtHei))
(vla-AddCircle acSpc (vlax-3D-point pt)(getvar ‘textsize))
(setq obj (vla-AddText acSpc (itoa staCount)(vlax-3D-point pt)(getvar ‘textsize)))
(vla-put-Alignment obj 10)(vla-put-TextAlignmentPoint obj (vlax-3D-point pt))
(vla-put-color obj 2)
(setq staCount (1+ staCount))
)(princ)
)
자동으로 넘버링하는 리습입니다.
여기저기 뒤져서 얻어 구한거긴 한데요 ^^;;
여기서 바꾸고 싶은건 한번 “문자크기” 를 구해서 1번을 찍고 나면 2번으로 넘어가긴하는데
문자크기를 다시 물어봅니다.
삽입전 전에 문자 크기를 한번만 물어보고 그 후로는 삽입점만찍어도 1 ->2 -> 3 계속 나오게
하고 싶습니다.
아 그리고 제가 리습을 이제막 독학으로 공부하는중이라서 그런데요…
text의 색은 제가 변경하는데가 있는데…circle는 현재 레이어의 색을 따라가게 되있습니다.
이것은 어느부위를 바꿔줘야 제가 원하는 색으로 나올까요 ㅜㅜ
전문가 분들의 조언을 구합이다..
공유