社区 › AutoLISP/Visual LISP 编程技术 › 点创建多段线 如系统没找到点周围封闭的线怎样提示错误，并终止后面的程序

湜１只鱼 发表于 2011-11-11 21:53:04

点创建多段线 如系统没找到点周围封闭的线怎样提示错误，并终止后面的程序

(defun c:1111 ()
(setq pt (getpoint))
(command "_.boundary" "A" "O" "P" "" pt "")
(command ……);其他程序
)
如系统没找到点周围封闭的线怎样终止后面其他的程序

Gu_xl 发表于 2011-11-11 22:58:55

(defun c:1111 ()
(setq pt (getpoint) ent（entlast))
(command "_.boundary" "A" "O" "P" "" pt "")
(if (not (equal ent (entlast)))
(progn
(command ……);其他程序
)
)
)

湜１只鱼 发表于 2011-11-12 17:09:26

不错 谢谢你哈

查看完整版本: 点创建多段线 如系统没找到点周围封闭的线怎样提示错误，并终止后面的程序