;;Quick Block
(defun c:b(/ os bn ss po)
(princ “n 쉽게 블럭만들기”)
(setq os (getvar “osmode”))
(setq bn (rtos (getvar “cdate”) 2 6))
(setq ss (ssget))
(setq po (getpoint “삽입점:”))
(command “block” bn po ss “”)
(setvar “osmode” 0)
(command “insert” bn po 1 1 0)
(setvar “osmode” os)
(princ)
쉽게 블럭을 만드는 리습을 쓰고 있는데
블럭을 만들면 중첩되어있는 선? 폴리선? 들이 앞뒤 순서가 바뀌어서 블록이 생성됩니다.
다시 앞이나 뒤로 보내기를 해야 하니 시간을 많이 잡아먹더군요.
이 문제가 리습으로 해결이 가능한 것인지 아니면 원인이 다른 곳에 있는지 잘 모르겠습니다.
일단 사용하고 있는 리습을 적었습니다. 도움을 요청 드립니다.