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

VBA遍历块求助

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

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 static/image/common/back.gif
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 static/image/common/back.gif
谢谢，请问框选这部分怎么写的？

http://bbs.mjtd.com/thread-111783-1-1.html

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

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

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

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

233229920 发表于 2014-11-11 22:50 static/image/common/back.gif
感谢 确实是很强大，希望能再出源码

正是因为有你在，所以才能造福后人
页: [1]
查看完整版本: VBA遍历块求助