社区 › AutoLISP/Visual LISP 编程技术 › 求大神帮我修改下lisp代码，chatgpt写的在cad报错.

xyp1964 发表于 2023-3-9 21:43:13

(defun c:tt ()
(setq i -1)
(if (setq ss (ssget '((0 . "insert") (8 . "0-GPS"))))
    (while (setq s1 (ssname ss (setq i (1+ i))))
      (xyp-ExplodeBlock s1)
    )
)
(setq ss1 (ssget "x" '((8 . "*vp*"))))
(setq ss (ssget "x"))
(command "erase" ss "r" ss1 "")
(princ)
)

轻尘 发表于 2023-3-10 09:10:04

liuhe 发表于 2023-3-9 19:57
图元名是自动生成的编码。你怎么标记的？你说的是块名？扩展数据？上个图纸看看呗

打字打错了，不是图元名包含而是图层名中包含:(

轻尘 发表于 2023-3-10 13:22:35

xyp1964 发表于 2023-3-9 21:43


大佬，cad2020报错：no function definition: XYP-EXPLODEBLOCK

轻尘 发表于 2023-3-10 13:27:16

x_s_s_1 发表于 2023-3-9 21:53
试试，先保存图哈，不保证不崩溃

成功了一半，有少部分块被分解并删除了多余图元.:lol

x_s_s_1 发表于 2023-3-10 14:28:11

轻尘 发表于 2023-3-10 13:27
成功了一半，有少部分块被分解并删除了多余图元.

你看看自己的图，我是按你的需求写的，应该是你的图错了，要不就是需求错了;P

xj6019 发表于 2023-3-10 14:48:36

x_s_s_1 发表于 2023-3-10 14:28
你看看自己的图，我是按你的需求写的，应该是你的图错了，要不就是需求错了

其实很可能是桌子错了

`中微子 发表于 2023-3-11 00:26:54

我要chatgpt写过一些LISP代码，90%都有错，要它改错就越改越错，最后是一本正经说瞎话了。
不过有些很基本的错误可以要它改，还是不错的。

轻尘 发表于 2023-3-13 12:27:53

`中微子 发表于 2023-3-11 00:26
我要chatgpt写过一些LISP代码，90%都有错，要它改错就越改越错，最后是一本正经说瞎话了。
不过有些很基本 ...

确实，越改越离谱

塔门说 发表于 2023-3-16 11:17:33

xyp1964 发表于 2023-3-9 21:43


我特意买了个会员，就是为了发帖顶一下院长的这个法子(command "erase" ss "r" ss1 "")牛逼

轻尘 发表于 2023-3-21 10:27:25

xyp1964 发表于 2023-3-9 21:43


把第5行(xyp-ExplodeBlock s1)
改成
(command "_.EXPLODE" S1 "")
就好了

查看完整版本: 求大神帮我修改下lisp代码，chatgpt写的在cad报错.