【飞鸟集】心随我动--为LISP定制的动态输入,拖拉和动态信息函数(更新至20130731)

十字路 · 发表于 2012-8-4 02:23

本帖最后由十字路于 2012-8-4 10:05 编辑

我的应用是这样的（R2006）：
插入一个块，用SSJIG拖动块(vla-move模拟拖动)，点左键时结束拖动，在拖动过程中可输入关键字，输入"F"时图块前后翻转，输入"B时图块上下翻转，输入"R"时要求用户输入图块的角度，输入"S"时图块自动放大1.5倍，输入"E"时图块自动缩小1.5倍，等等。
问题1：当输入关键字时，屏幕会突然放大或缩小一下，不知道为什么？
问题2：在输入关键字时要求暂时隐藏块（就象insert命令一样），我用的隐藏图块的方法是(redraw en 2)，输入结束后用(redraw en 1)显示，但是应用中发现图块并不能隐藏，而是跑到第一次插入的位置去了。

使用心得：用entmod改变块插入点的方法模拟拖动块时，当鼠标静止时，块不能能正常显示，如果用vla-move模拟拖动，当鼠标静止时，块能正常显示。

十字路 · 发表于 2012-8-17 08:02

现在采用HFB_PointMonitor和getkeyword相结合的方法解决了问题，用HFB_PointMonitor动态拖动速度相当快，感觉比CAD自身的move等还要顺畅。太棒了。

myjping · 发表于 2012-9-11 17:06

多做点例子

328302216 · 发表于 2012-11-27 15:30

原来还有如此只牛的顶起来偶像

zh74 · 发表于 2012-11-27 21:06

真好，学习学习

mp3_2004 · 发表于 2012-12-1 23:49

暂时还看不懂是做什么用的

tiger1973 · 发表于 2013-3-16 23:15

楼主辛苦了，受益匪浅阿

潇湘飞雨 · 发表于 2013-3-17 15:43

台强大了支持下

wjl1014 · 发表于 2013-3-17 19:22

又一经典，学习。

jack093 · 发表于 2013-5-19 18:45

本帖最后由 jack093 于 2013-5-19 18:47 编辑

建议autodesk公司提供一些光标形状供lisp程序使用
开发者用arx或grread等实现的话，速度不可能快

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

[【高飞鸟】] 【飞鸟集】心随我动--为LISP定制的动态输入,拖拉和动态信息函数(更新至20130731)