[求助]：初学lisp，有一程序请教

qijiun · 发表于 2004-3-3 21:53:33

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

我想将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。

cy956 · 发表于 2004-3-3 23:08:59

读一遍帮助中pedit－join的部分。

qijiun · 发表于 2004-3-4 08:17:45

找到例子了嘿嘿
：）
http://www.mjtd.com/bbs/dispbbs. ... ID=16701&page=1

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：初学lisp，有一程序请教

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块