初学lisp，有一程序请教

qijiun · 发表于 2004-3-4 08:22:00

[I] 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。

qijiun · 发表于 2004-3-4 09:01:00

谢谢
这段程序考虑的很周到：）
好好学习一下

初学lisp，有一程序请教

发表回复

精选推荐

浏览过的版块