이번에 평면도를 자르는데 집들이 다 3dface로 되어있어서
집모양을 그리고 매치를 해주고 있습니다. 시간이 너무많이 걸려서
작업속도가 안나가네요 ^^;;
여기서 받은건데 주신분은 실행이된다고 하던데 저는 안되네요 ㅎㅎ
명령어는 3DFtoPL이고 실행을 시키면 아래처럼 에러가 뜹니다.
Command: 3DFtoPL
; error: bad argument type: lselsetp nil
고수님들 해결좀 부탁드려요
(defun C:3DFtoPL(/ ss1 sl i)
(setq ss1 (ssget “X” (list (cons ‘0 “3DFACE”))))
(setq sl (sslength ss1))
(setq i 0)
(setvar “cmdecho” 0)
(while (< i sl)
(setq ent1 (entget (setq e1 (ssname ss1 i))))
(setq pt1 (cdr (assoc ’10 ent1)))
(setq pt2 (cdr (assoc ’11 ent1)))
(setq pt3 (cdr (assoc ’12 ent1)))
(setq pt4 (cdr (assoc ’13 ent1)))
; Plain 2D Polylines
;(command “PLINE” pt1 pt2 pt3)
; 3dPolylines ->
(command “3DPOLY” pt1 pt2 pt3)
(if (/= pt3 pt4) (command pt4 “c”) (command “c”) )
(entdel e1)
(setq i (1+ i))
)
(setvar “cmdecho” 1)
(setq ss1 nil)
(princ)
)