Lisp中的Break命令

Michaels · 发表于 2022-7-6 10:40:10

你好
我不知道为什么命令BREAK不接受
它在Autolisp中显示为“_f”，如下所示？
它带来了无效的观点？？？？

有什么想法吗？

当做

MSasu · 发表于 2022-7-6 10:47:52

这样使用：

(command "_BREAK" MyEntity MyPoint [color=red]"@"[/color])

当做

Michaels · 发表于 2022-7-6 11:02:38

谢谢
下面是悬而未决的。

copy

(setq abc (entget (ssname objs a)))
     (command "_.break" objs (cdr(assoc 50 abc)) "" "@" 20)

当做

MSasu · 发表于 2022-7-6 11:07:55

第一个参数应该是实体，而不是选择集。此外，不确定50 DXF代码-您使用的是哪种实体？请参阅下面的示例以了解其工作原理：

copy

(setq MyEntity (car (entsel)))   ;select a line
(setq MyPoint (getpoint))        ;select a point on that line (with Nearest)
(command "_BREAK" MyEntity MyPoint "@")

当做

Michaels · 发表于 2022-7-6 11:14:55

非常感谢。
我的Lisp程序。
[code]（if（setq objs（ssget“_x”'（（0。“圆，弧”）））（progn（setq i 0 all（sslength objs））（while（<i all）（setq abc（entget（ssname objs i）））（命令“_.break”abc（cdr（assoc 10 abc））“@”[color=“red”]45）[color=“red”]