IT Knowledge Base

在AutoCAD中，要把物件做成Polyline當然沒有難度，只要用Pedit命令便可。但用過Pedit命令，便會發現，要先選好物件，再詢問是否需要做成Polyline，再按Join。

要是只是一條Polyline，當然沒有問題。但當是數十條Polyline時，最好還是做一個Lisp程式，只要選物件，便可做成Polyline。

;Main program.
(DEFUN C:PE (/ SS1 SS1TEMP)
(PROMPT "\\nJoin selected objects to polyline.\\n")
(GRAPHSCR)
(SETVAR "CMDECHO" 0)
(SETQ SS1 (SSGET))
(SETQ SS1TEMP (SSGET "P"))
(IF (= (CDR (ASSOC 0 (ENTGET (SSNAME SS1 0)))) "CIRCLE")
(EXIT)
)
(IF (= (CDR (ASSOC 0 (ENTGET (SSNAME SS1 0)))) "LWPOLYLINE")
(PROGN
(COMMAND "EXPLODE" SS1)
(SETQ SS1 (SSGET "P"))
)
)
(COMMAND "PEDIT" SS1 "" "J" SS1 SS1TEMP "" "")
(SETVAR "CMDECHO" 1)
(PRINC)
)