选择像鼠标一样跟随i
是否可以在lisp中实现与Autocad的MOVE命令类似的效果?当用户决定目标点时,选择可视地跟随鼠标光标。。。选择不断地被吸引。GetPoint没有这样的选择,我认为。。。 我可以想象三种方法来实现这一点。
1>
(command "_.move" <selectionset> '(0 0 0) pause)
2>
使用快速工具功能:
(acet ss拖动)
3>
使用GrRead循环跟踪光标移动并相应地更新对象的位置。尽管这种方法限制了正交和OSnap的使用。 有关GrRead方法的帮助,请参阅此处:
http://www.cadtutor.net/forum/showthread.php?t=37420
http://www.cadtutor.net/forum/showthread.php?t=35234
http://www.cadtutor.net/forum/showthread.php?t=36273 Uou,伙计!谢谢我会选择这个GrRead方法。虽然绘制大量对象可能很慢。。。我认为它是快速绘制的,而不是逐渐绘制的(就像在移动工具中一样)。没有检查(没有时间)。但我很快就会试试。
顺便说一句,这个DINFO工具太棒了!没想到这样的事情可以用纯Lisp来完成。
呵呵谢谢
很高兴你喜欢 刚刚用GRRead做了一些测试。。。
功能强大,但由于它不允许OSnap,因此对几何体变换(移动、旋转等)毫无用处
我知道OSnap可以从头开始在Lisp中构建,但呵呵。。。甚至整个Autocad也可以
页:
[1]