求大神帮我修改下lisp代码，chatgpt写的在cad报错.

xyp1964

1. (defun c:tt ()
   
2.   (setq i -1)
   
3.   (if (setq ss (ssget '((0 . "insert") (8 . "0-GPS"))))
   
4.     (while (setq s1 (ssname ss (setq i (1+ i))))
   
5.       (xyp-ExplodeBlock s1)
   
6.     )
   
7.   )
   
8.   (setq ss1 (ssget "x" '((8 . "*vp*"))))
   
9.   (setq ss (ssget "x"))
   
10.   (command "erase" ss "r" ss1 "")
    
11.   (princ)
    
12. )
    

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

轻尘

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

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

轻尘

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

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

轻尘

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

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

x_s_s_1

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

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

xj6019

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

其实很可能是桌子错了

`中微子

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

轻尘

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

确实，越改越离谱

塔门说

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

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

轻尘

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

把第5行

1. (xyp-ExplodeBlock s1)
   
2. 改成
   
3. (command "_.EXPLODE" S1 "")

(xyp-ExplodeBlock s1)<br /> 改成<br /> (command "_.EXPLODE" S1 "")

就好了