初学lisp，有一程序请教

qijiun

9pt 10pt 11pt 12pt 13pt 15pt
我想将line合为pline：
(defun C:j ()
(princ "\n请选择需要连接的线段: ")
(setvar "CMDECHO" 1)
(setq ss (ssget ()));'((0 . "LINE,PLINE"))))
(command "pedit" "m" ss "" "y" "j" "0" "")
(exit)
)
加载后调用命令“j”可以实现单独选择line的时候合为pline
但是如果选择集中有pl的话就不行了，不知如何解决
希望大侠们帮帮小弟这样的初学者
谢谢
还有就是是不是有时就算是线条相连，也不能变为pl呢？
我以前遇见过，线段全是l，无重复，线段相连，将线段拖开
然后再连上后才能用pe变为pl。

f5612140

dispbbs.asp?boardID=25&ID=16701&page=1

qijiun

谢谢


这段程序考虑的很周到：）


好好学习一下