动态改变线型比例
本帖最后由 rocking2008 于 2022-4-23 11:37 编辑我是小小搬运工，来自[飞马系列]的动态改变线型比例功能。用的上下载。
明经币很多的朋友 ，支援1个币，没有币的，后面楼里面免费发。哈哈。
附件源码的作者是 [飞马系列]，非本人的。特此申明。
这个我画图中一直在用，特此感谢作者。
另外，如有热心的网友，请帮忙做一下优化最好。
1、能否将调出DCL界面，默认按键设置在第一个【单独线型比例修改】上，不要默认在【确定】上；
2、代码中 (setq b (getpoint "\n请选择一个点:")) ，能否自动默认这个点为entsel对象线的中点。
这样修改，使用中，每次能少点2次鼠标，大大提高效率。
感谢先。:lol
如有网友修改了，本贴中挂5个币，我来买它、买它、买它。
建议挺好的：）
修改了一下
原代码可见原帖
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=84751&highlight=%B7%C9%C2%ED%CF%B5%C1%D0
qjchen 发表于 2022-4-25 08:03
不想的话
把 (grdraw (cadr gr) apoint 1 1) 前面加个;就可以了
不是这个意思，注释掉这一行，鼠标拉比例的时候是全程不显示动态红线的，这个我明白。
我的意思是，鼠标移动到一个点，点击一下确定完成线型的比例设置，这时候，屏幕上还残留着刚才那么红色的动态虚线，鼠标滚轮滚一下，它就消失了。
qjchen 发表于 2022-4-24 16:43
建议挺好的：）
修改了一下
原代码可见原帖
我在使用中，发现程式执行完，屏幕上还有残留一条红色虚线，就是鼠标拉比例的那条动态的红色虚线，需要动一下屏幕才会消失。
这个是我的CAD设置问题，还是程式本身有这个问题。
对功能使用没有任何影响，就是看着有点别扭。 支持，盼高手帮忙解决 rocking2008 发表于 2022-4-24 22:32
我在使用中，发现程式执行完，屏幕上还有残留一条红色虚线，就是鼠标拉比例的那条动态的红色虚线，需要动 ...
不想的话
把 (grdraw (cadr gr) apoint 1 1) 前面加个;就可以了 (redraw) ;刷新 在程序后面加上(redraw) ;刷新就可以去掉矢量线了 669423907 发表于 2022-4-26 10:04
在程序后面加上(redraw) ;刷新就可以去掉矢量线了
感谢，是这个原因。已解决。这个看起来舒服了，不然总感觉程序有哪里不对劲。 感谢楼主大人的分享
页:
[1]
2