wmz 发表于 2007-5-13 13:58:00

用VBA怎样实现所有图元的移动

<div>用VBA如何能实现下面LISP这样的功能:</div><div>(defun c:MyMove()</div><div>&nbsp;&nbsp;&nbsp; (setq s (ssget "a")) ;选择图上全部图元</div><div>&nbsp;&nbsp;&nbsp; (setq p1 (list 0 0) p2 (list 10 10))</div><div>&nbsp;&nbsp;&nbsp; (command "move" s "" p1 p2)</div><div>)</div>

兰州人 发表于 2007-5-13 14:28:00

<p>dim rr as acadentity</p><p>for each rr in thisdrawing.ModelSpace</p><p>&nbsp;&nbsp;</p><p>&nbsp; rr.Move pp1,pp2</p><p>next rr</p>

mccad 发表于 2007-5-13 15:35:00

<p>我已经帮楼主改过标题了。</p><p>这样的问题，基本上大家都会回答。</p>

wmz 发表于 2007-5-15 13:20:00

明总:2楼的方法亦不失为一个好方法,好像VBA就只能这么办了!
页: [1]
查看完整版本: 用VBA怎样实现所有图元的移动