[已经解决。]：lisp出现错误，运行说点无效？

fl202 · 发表于 2009-3-12 16:53:45

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

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

×

源代码为：
(print (list mx1 mx2 mx3))
(command "break" sb "f" mx2 mx3)
运行后显示为：
((440.0 300.0 0.0) (438.0 300.0 0.0) (442.0 300.0 0.0))
点无效。
; 错误: 函数被取消

其中sb是一条直线。
明明每个点都是存在的，而且赋值了，为什么说点无效呢？
而我的lisp在浩辰cad中运行就不会提示错误，运行正常。而在cad中就不行，提示点无效。

carrot1983 · 发表于 2009-3-12 23:17:38

提供完整的代码。

如果没问题，就是捕捉的问题

fl202 · 发表于 2009-3-13 08:34:34

跟捕捉没有关系，

我在明经社区找到答案了。
将command break 命令里的参数f去掉即可。

原因不知道是为什么，正常在cad中操作break两点打断是需要参数f的，为什么到里lisp里反而是多余的。

kytw · 发表于 2009-3-13 09:37:38

关于break函数应该看函数参考
确实不需要“f”参数

carrot1983 · 发表于 2009-3-14 10:37:53

最初由 kytw 发布
[B]关于break函数应该看函数参考
确实不需要“f”参数 [/B]

break只能算命令。不算函数。

命令: (command "break" (car (entsel))) break 选择对象:
选择对象:
指定第一个打断点: nil

指定第一个打断点:
指定第二个打断点:

fl202 · 发表于 2009-3-14 20:31:34

break命令使用的时候，
如果是两点打断的话，是需要参数f的。
也就是先输入break，再输入f，选择第一点，选择第二点。完成打断。

大家可以试一试，试了再来说，如果你不输入f的话，只能是打断于某个点。

qwe08 · 发表于 2009-3-15 10:21:00

楼上

rill0222 · 发表于 2009-3-17 14:42:25

不错

寒光四射 · 发表于 2009-3-19 18:51:57

参数问题
鉴定完毕

carrot1983 · 发表于 2009-3-24 09:38:10

[PHP]
;;;打断于点
;;;命令: BT
;;;By carrot1983 2009-03-24
(defun C:BT (/ ENT PT)
  (if (and (setq PT (getpoint "\n指定一个打断点: "))
   (setq ENT (car (nentselp PT)))
   (setq PT (trans PT 0 1))
   )
(command "._BREAK" ENT "_NON" PT "_NON" PT)
  )
  (princ)
)
[/PHP]

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

[已经解决。]：lisp出现错误，运行说点无效？

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

相关帖子