[LISP程序]：请帮忙看看问题在哪里

and2008 · 发表于 2005-8-30 14:46:02

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

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

×

;;选根线,指定一点,断开
;;为什么实现不了
(defun C:bb(/ a p1)
(setq l (ssget))
(setq p1 (getpoint))
(command "break" l "f" p1 p1 "" "")
)

snoopychen · 发表于 2005-8-30 15:02:46

(defun C:bb(/ a p1)
(setq l (entsel))
(setq p1 (getpoint))
(command "break" l "f" p1 p1 "" "")
)

注意：在(setq l (ssget))中，l这个时候是选择集体，不是对象

或者是这样

(defun C:bb(/ a p1)
(setq l (ssname (ssget) 0))
(setq p1 (getpoint))
(command "break" l p1 "@")
)

取第一个对象

and2008 · 发表于 2005-8-30 18:09:34

多谢楼上的。不过这个lsp还是不能选择需要断开的点，能否改进一下可以自由选择呢？

snoopychen · 发表于 2005-8-30 18:12:42

应该可以吧，不明白什么是自由选择

and2008 · 发表于 2005-8-30 19:24:25

就是指定特定的一点断开啊

draftsman · 发表于 2005-8-31 22:35:06

2楼程序可以实现特定的一点断开啊

and2008 · 发表于 2005-9-1 09:44:20

不能行噢，我打入bb以后就让选择对象。选择对象对象的同时就断开了，就没有选择我要的点（可以捕捉到）的空隙啊。

tjchkys · 发表于 2005-9-1 10:59:03

不知道这样行不行？
(defun C:bb(/ a p1)
(setvar "cmdecho" 0)
(prompt "\n选择需要打断的对象:")
(setq l (ssname (ssget) 0))
(command "break" l (getpoint "\n选择第一个断点:") (getpoint "\n选择第二个断点:") "")
(princ)
)

and2008 · 发表于 2005-9-1 12:41:49

感谢楼上的，我试了一下可以实现，不过得选断开的点两次才可以，要是只要选点一次就断开，就更加完美了。再次表示感谢！

蓝云 · 发表于 2005-9-2 12:13:31

(defun C:bb(/ a p1)
  (setvar "cmdecho" 0)
  (prompt "\n选择需要打断的对象:")
  (setq l (car (entsel)) p1 (getpoint "\n选择断点:") )
  (command "break" l p1 p1)
  (princ)
)

and2008 · 发表于 2005-9-2 12:21:41

感谢楼上的，这样就更加好用了。

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

[LISP程序]：请帮忙看看问题在哪里

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

相关帖子