안될거 같지만))무모한 질문하나…^^;;

1. x 모양, + 모양의 블록을 미리 정의해서 준비한다. 2. point의 삽입점 위치에 그대로 이 블록을 삽입한다. 3. 이후 point는 삭제한다. 이러한 과정을 리습으로 만들어야될듯..

아하 그렇군요.. 역시나 없군요.. xpress기능중에 spline을 pline로 변환하듯 될지도 모른다는 생각을 했습니다..

spline이나 문자도 분해안됩니다. spline을 무수하게 쪼개면 아주 짧은 선이 됩니다.이후 원래의 spline을 삭제하는것입니다. 문자도 문자를 따라 line,circle을 그리고 원래 문자를 삭제하는것입니다.

이거 저번에 리습으로 만들어 드렸었는데… 리습게시판인가에서 검색하시면 제가 만든게 나올겁니다.. 객체선택시 point만 선택이 되서 블럭으로 치환되는거…

저도 찾아보다가..제가만들어서 올린걸 못찾겠네여..^^:;;;

그래서 그냥 만들어버렸습니다.^^;;;

명령어실행 > 블럭선택 > 포인트선택..(전부할려면..all엔터)

하시면.. 포인트가 전부 해당블럭으로 대체됩니다.

; 아키모아 운영진 “행복한하루”
; http://cafe.daum.net/archimore
; 2007.10.10

(defun c:p2b(/ os en bn ss k ed ins)
;->*error* start
(defun *error* (msg)(princ “error: “)(princ msg)
(setvar “osmode” os) (if en (redraw en 4))
(princ))
;-<*error* end
(setvar “cmdecho” 0)
(setq os (getvar “osmode”))
(setq en nil)
(while (= en nil) (setq en (car (entsel “n블럭을 선택해주세염:”))))
(redraw en 3)
(setq bn (cdr (assoc 2 (entget en))))
(prompt “n->포인트를 선택해주세염..전부하실려면..all”)
(setq ss (ssget (list (cons 0 “point”))))
(redraw en 4)
(if ss
(progn
(setq k 0)
(command “undo” “be”)
(setvar “osmode” 0)
(repeat (sslength ss)
(setq ed (entget (ssname ss k))
ins (cdr (assoc 10 ed)))
(command “insert” bn ins 1 “” 0)
(setq k (1+ k))
);repaet
(command “erase” ss “”)
(setvar “osmode” os)
(command “undo” “e”)
)
)
(princ)
);defun

와와~~ 역시 대단하십니다.. 눈 크게 뜨고 검색중이었는데.. 프로그램을 아예 다시 만들어 버리셨군요.. 정말 존경스럽습니다. ^^