求三个简单...的lsp

ZZXXQQ

1、程序是更改对象特性的，不是断点命令。

2、论坛上有多线删点程序，搜下看。

3、只要取得非闭合的多线，且其首尾点不重合的，再删除之。

ZZXXQQ

1、SSGET得到的是选择集，不能用于BREAK命令，要用ENTSEL才行。

(SETQ SS (ENTSEL "\nSelect a Object :"))

2、BREAK命令调用也有问题，应：(COMMAND "_.BREAK" SS "@")

caoyin

最基本的语法还没掌握，加油啊

(defun c:ppp (/ e p)
  (if (and (SETQ e (ENTSEL "\nSelect a Object :"))
           (or (setq p (getpoint "\n断开点: "))
               (setq p (cadr e))
           )
      )
    (COMMAND "_.BREAK" (car e) p p)
    (princ "\n未选择任何对象。")
  )
  (princ)
)