批量选择最外矩形框

paulpipi

飞雪神光 发表于 2023-9-23 14:35
一个原理 把删图行改成删选择集

你好，大神，你这个程序真的挺好，我想请教一下，这样选取了之后，想执行自己写的程序怎么改，比如你的程序选择外形后，我要标注这些外形，这个标注外形的命令是QDIM,那怎么加到你的程序中，麻烦大神指点，谢谢！

飞雪神光

bai2000 发表于 2023-9-23 21:14
楼上的很完美，给下部批量“”框内删“”除提供了条件，希望能继续下去

第一版就是删框内图形

飞雪神光

paulpipi 发表于 2023-9-24 21:24
你好，大神，你这个程序真的挺好，我想请教一下，这样选取了之后，想执行自己写的程序怎么改，比如你的程 ...

这里的ss 就是外框的选择集 可以直接使用的

1. (sssetfirst nil ss)

(sssetfirst nil ss)

paulpipi

飞雪神光 发表于 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开始就行

paulpipi

飞雪神光 发表于 2023-9-24 22:58
从repeat开始就行

感谢高人耐心答复，本人太菜，试了几下搞不定，我把程序发信息给你了，有空帮忙改一下，谢谢！

飞雪神光

paulpipi 发表于 2023-9-24 23:15
感谢高人耐心答复，本人太菜，试了几下搞不定，我把程序发信息给你了，有空帮忙改一下，谢谢！

已经发过去了

qazxswk

飞雪神光 发表于 2023-9-23 19:00

这个接近我的想法了，不过两个框相邻，就不能识别出来。如下图所示。

xj6019

无极生太极，太极生两仪，两仪生四象，四象生八卦，卦卦不停，生生不息，继续！！

飞雪神光

qazxswk 发表于 2023-9-25 12:43
这个接近我的想法了，不过两个框相邻，就不能识别出来。如下图所示。

那这种情况就得一开始就说清需求