mico_ye 发表于 2008-8-14 13:39:00

能自动并带手动调整线型比例的小东东

本帖最后由 作者 于 2009-5-14 12:30:08 编辑

清除了

ferious 发表于 2023-4-20 11:52:11

phoenixdjq 发表于 2009-2-12 08:39
在我的电脑上面不好用这个程序在很久以前就有人做过了，在本论坛就能找到，作者的名字一时拼不出来，请作者 ...

附件为效果，按加减号后不是证书比例，不实用。

有没有直接选取直线，然后输入数值，改为输入数值的源码？
:lol

carnelian101 发表于 2008-8-14 17:56:00

下载了，非常有用的小工具

jaminth 发表于 2008-8-14 20:22:00

<p>能不能提供原码,学习学习!</p><p>非常棒的设计思路!向你学习!</p>

carnelian101 发表于 2008-8-14 20:52:00

楼主，我试用了，可是只能用左键变小，右键好像没有用啊？

linx1314 发表于 2008-8-15 09:06:00

非常棒的东东啊,谢谢楼主的无私奉献啊!

wudongfeng 发表于 2009-2-11 17:31:00

我知道燕秀工具有该功能，不知这个如何？试一下！！

wudongfeng 发表于 2009-2-11 17:51:00

确实很优秀，左键可以变小，右键不好使，不知为什么？非常感谢!!!

phoenixdjq 发表于 2009-2-12 08:39:00

<p>在我的电脑上面不好用</p><p>这个程序在很久以前就有人做过了，在本论坛就能找到，作者的名字一时拼不出来，请作者见谅</p><p>这个程序我也保存了一份，现在贴上</p><p></p><p></p><p></p><p>(defun c:scl (/ DXF48 EDATA INDEX INPUTDATA SCALEDATA SS)<br/>&nbsp; (while (progn (initget 7) (= 1.0 (setq ScaleData (getreal "\n输入缩放系数:"))))<br/>&nbsp;&nbsp;&nbsp; (princ "\n缩放系数为不能为1。")<br/>&nbsp; )<br/>&nbsp; (if (setq ss (ssget '((0 . "*LINE"))))<br/>&nbsp;&nbsp;&nbsp; (while (progn (princ "\r放大[+]/缩小[-]/退出[回车]")<br/>&nbsp;&nbsp;&nbsp; (setq InputData (grread))<br/>&nbsp;&nbsp;&nbsp; (not (equal InputData '(2 13)))<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq Index 0)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (if (or (equal InputData '(2 61)) (equal InputData '(2 45)))<br/>&nbsp;(repeat (sslength ss)<br/>&nbsp;&nbsp; (setq Edata (entget (ssname ss Index))<br/>&nbsp; Dxf48 (assoc 48 Edata)<br/>&nbsp; Edata (if Dxf48<br/>&nbsp;&nbsp; (subst (cons 48<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (* (if (equal InputData '(2 61))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (+ 1 ScaleData)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (if (&gt; ScaleData 1)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (/ 1.0 ScaleData)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (- 1 ScaleData)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp; (cdr Dxf48)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dxf48<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Edata<br/>&nbsp;&nbsp; )<br/>&nbsp;&nbsp; (append Edata<br/>&nbsp;&nbsp;&nbsp; (list (cons 48<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (if (equal InputData '(2 61))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (+ 1 ScaleData)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (if (&gt; ScaleData 1)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (/ 1.0 ScaleData)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (- 1 ScaleData)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp; Index (1+ Index)<br/>&nbsp;&nbsp; )<br/>&nbsp;&nbsp; (if (not (entmod Edata))<br/>&nbsp;&nbsp;&nbsp;&nbsp; (*error* (strcat "不能更新对象数据“" (vl-princ-to-string Edata) "”。"))<br/>&nbsp;&nbsp; )<br/>&nbsp;)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp; )<br/>&nbsp; (princ)<br/>)<br/></p>

longer1000 发表于 2009-3-11 23:39:00

能自动根据屏显调整更加完美

lijunwww 发表于 2009-3-18 22:24:00

<p>非常有用的东本，谢谢了，您太伟大了，向您致敬!!</p><p></p>
页: [1] 2 3
查看完整版本: 能自动并带手动调整线型比例的小东东