动态改变线型比例

rocking2008

我是小小搬运工，来自  [飞马系列]  的动态改变线型比例  功能。用的上下载。
明经币很多的朋友 ，支援1个币，没有币的，后面楼里面免费发。哈哈。
附件源码的作者是    [飞马系列]  ，非本人的。特此申明。




这个我画图中一直在用，特此感谢作者。

另外，如有热心的网友，请帮忙做一下优化最好。
1、能否将调出DCL界面，默认按键设置在第一个【单独线型比例修改】上，不要默认在【确定】上；
2、代码中      (setq b (getpoint "\n请选择一个点:"))    ，能否自动默认这个点为entsel对象线的中点。


这样修改，使用中，每次能少点2次鼠标，大大提高效率。

感谢先。
如有网友修改了，本贴中挂5个币，我来买它、买它、买它。

qjchen

建议挺好的：）
修改了一下
原代码可见原帖
http://bbs.mjtd.com/forum.php?mo ... 9%C2%ED%CF%B5%C1%D0

rocking2008

qjchen 发表于 2022-4-25 08:03
不想的话
把 (grdraw (cadr gr) apoint 1 1) 前面加个;就可以了

不是这个意思，注释掉这一行，鼠标拉比例的时候是全程不显示动态红线的，这个我明白。
我的意思是，鼠标移动到一个点，点击一下确定完成线型的比例设置，这时候，屏幕上还残留着刚才那么红色的动态虚线，鼠标滚轮滚一下，它就消失了。

rocking2008

qjchen 发表于 2022-4-24 16:43
建议挺好的：）
修改了一下
原代码可见原帖

我在使用中，发现程式执行完，屏幕上还有残留一条红色虚线，就是鼠标拉比例的那条动态的红色虚线，需要动一下屏幕才会消失。
这个是我的CAD设置问题，还是程式本身有这个问题。
对功能使用没有任何影响，就是看着有点别扭。

paulpipi

支持，盼高手帮忙解决

qjchen

rocking2008 发表于 2022-4-24 22:32
我在使用中，发现程式执行完，屏幕上还有残留一条红色虚线，就是鼠标拉比例的那条动态的红色虚线，需要动 ...

不想的话
把 (grdraw (cadr gr) apoint 1 1) 前面加个;就可以了

669423907

(redraw) ;刷新

669423907

在程序后面加上(redraw) ;刷新就可以去掉矢量线了

rocking2008

669423907 发表于 2022-4-26 10:04
在程序后面加上(redraw) ;刷新就可以去掉矢量线了

感谢，是这个原因。已解决。这个看起来舒服了，不然总感觉程序有哪里不对劲。

czb203

感谢楼主大人的分享