VBA遍历块求助

233229920 · 发表于 2014-11-10 20:03:07

手动框选图形后，然后再遍历块中的圆，代码该怎么写？

wangshuping42 · 发表于 2014-11-10 21:00:00

dim ent as acadentity
for each ent in block 'block为块
if ent.objectname="AcDbCircle" then
……
end if
next

233229920 · 发表于 2014-11-10 23:37:36

wangshuping42 发表于 2014-11-10 21:00
dim ent as acadentity
for each ent in block 'block为块
if ent.objectname="AcDbCircle" then
...

谢谢，请问框选这部分怎么写的？

zzyong00 · 发表于 2014-11-11 12:08:55

233229920 发表于 2014-11-10 23:37
谢谢，请问框选这部分怎么写的？

233229920 · 发表于 2014-11-11 22:50:12

zzyong00 发表于 2014-11-11 12:08
http://bbs.mjtd.com/thread-111783-1-1.html

感谢确实是很强大，希望能再出源码

233229920 · 发表于 2014-11-12 12:54:17

233229920 发表于 2014-11-11 22:50
感谢确实是很强大，希望能再出源码

正是因为有你在，所以才能造福后人

账号		自动登录	找回密码
密码			注册