같은 문자에 블럭(심볼)을 넣고 싶을때..

Question

Lv.0

등록일: 2006-09-292006-09-29T11:39:38+09:00 2006-09-29T11:39:38+09:00카테고리: AutoCAD & CADian

같은 문자에 블럭(심볼)을 넣고 싶을때..

안녕하세요.. 맨날 정보만 바라는 사람입니다..
블럭을 도면에 넣을때가 많은데..
예를 들어 .. c1 이라는 글자에 구조 심볼인 오각형을 글자 중심에
넣고 싶어요.. 지금은 멀티 카피에서 일일이 하고 잇는데..
왠지 방법이 있을거 같아서.. 혹시 없나요..

구조도면이 많으니 정말 이것도 일이네요.. 거의 단순노동을…
방법좀 알려주세요.. 다른분들은 어찌하시늕..

4 답변

[Deleted User] · Answer 1 · 2006-09-29T12:10:21+09:00

(defun c:tbin (/ ss bname os index ent old10 old50 textoutline tbp1 tbp2 mcpoint)
(command “undo” “g”)
(setq str (getstring “n 찾을문자 : “));;;와일드 카드 문자 사용가능
(if (/= bname “”)
(progn
(setq ss (ssget (list (cons 0 “text”) (cons 1 str))))
(if ss
(progn
(setq bname (getstring “n 블럭이름 : “))
(if (/= bname “”)
(progn
(setq os (getvar “osmode”))
(setvar “osmode” 0)
(setq index 0)
(repeat (sslength ss)
(setq ent (entget (ssname ss index)))
(setq old10 (cdr (assoc 10 ent)))
(setq old50 (cdr (assoc 50 ent)))
(setq textoutline (textbox ent))
(setq tbp1 (mapcar ‘+ (car textoutline) old10))
(setq tbp2 (mapcar ‘+ (cadr textoutline) old10))
(setq mcpoint (polar tbp1 (angle tbp1 tbp2) (/ (distance tbp1 tbp2) 2.0)))
(command “insert” bname mcpoint “” “” old50);;;블럭크기는 수정하세요
(setq index (1+ index))
)
(setvar “osmode” os)
)
)
)
)
)
)
(command “undo” “e”)
(princ)
)