飞雪神光 发表于 2023-9-23 14:35
一个原理 把删图行改成删选择集
你好，大神，你这个程序真的挺好，我想请教一下，这样选取了之后，想执行自己写的程序怎么改，比如你的程序选择外形后，我要标注这些外形，这个标注外形的命令是QDIM,那怎么加到你的程序中，麻烦大神指点，谢谢！
bai2000 发表于 2023-9-23 21:14
楼上的很完美，给下部批量“”框内删“”除提供了条件，希望能继续下去
第一版就是删框内图形
paulpipi 发表于 2023-9-24 21:24
你好，大神，你这个程序真的挺好，我想请教一下，这样选取了之后，想执行自己写的程序怎么改，比如你的程 ...
这里的ss 就是外框的选择集 可以直接使用的(sssetfirst nil ss)
飞雪神光 发表于 2023-9-24 22:19
这里的ss 就是外框的选择集 可以直接使用的
请教一下，这个选择集，怎么替换掉我程序中的SS呢？
(setq ss(ssadd a))
(repeat (setq n (sslength ss))
(setq obj (vlax-ename->vla-object (ssname ss (setq n (1- n)))))
(vla-getboundingbox obj 'x 'y)
(setq lst (cons (vlax-safearray->list y)
(cons (vlax-safearray->list x) lst)
)
paulpipi 发表于 2023-9-24 22:51
请教一下，这个选择集，怎么替换掉我程序中的SS呢？
...
从repeat开始就行
飞雪神光 发表于 2023-9-24 22:58
从repeat开始就行
感谢高人耐心答复，本人太菜:'(，试了几下搞不定，我把程序发信息给你了，有空帮忙改一下，谢谢！
paulpipi 发表于 2023-9-24 23:15
感谢高人耐心答复，本人太菜，试了几下搞不定，我把程序发信息给你了，有空帮忙改一下，谢谢！
已经发过去了
飞雪神光 发表于 2023-9-23 19:00
这个接近我的想法了，不过两个框相邻，就不能识别出来。如下图所示。
无极生太极，太极生两仪，两仪生四象，四象生八卦，卦卦不停，生生不息，继续！！
qazxswk 发表于 2023-9-25 12:43
这个接近我的想法了，不过两个框相邻，就不能识别出来。如下图所示。
那这种情况就得一开始就说清需求