chavlji 发表于 2022-7-6 12:24:40

选择像鼠标一样跟随i

是否可以在lisp中实现与Autocad的MOVE命令类似的效果?当用户决定目标点时,选择可视地跟随鼠标光标。。。选择不断地被吸引。
 
GetPoint没有这样的选择,我认为。。。

Lee Mac 发表于 2022-7-6 12:36:51

我可以想象三种方法来实现这一点。
 
1>
 

(command "_.move" <selectionset> '(0 0 0) pause)

 
 
2>
 
使用快速工具功能:
 
(acet ss拖动)
 
 
3>
 
使用GrRead循环跟踪光标移动并相应地更新对象的位置。尽管这种方法限制了正交和OSnap的使用。

Lee Mac 发表于 2022-7-6 12:49:20

有关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

chavlji 发表于 2022-7-6 13:01:44

Uou,伙计!谢谢我会选择这个GrRead方法。虽然绘制大量对象可能很慢。。。我认为它是快速绘制的,而不是逐渐绘制的(就像在移动工具中一样)。没有检查(没有时间)。但我很快就会试试。
 
顺便说一句,这个DINFO工具太棒了!没想到这样的事情可以用纯Lisp来完成。

Lee Mac 发表于 2022-7-6 13:22:38

 
 
呵呵谢谢
 
很高兴你喜欢

chavlji 发表于 2022-7-6 13:36:02

刚刚用GRRead做了一些测试。。。
 
功能强大,但由于它不允许OSnap,因此对几何体变换(移动、旋转等)毫无用处
 
我知道OSnap可以从头开始在Lisp中构建,但呵呵。。。甚至整个Autocad也可以
页: [1]
查看完整版本: 选择像鼠标一样跟随i