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

mico_ye

清除了

ferious

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

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

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

carnelian101

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

jaminth

能不能提供原码,学习学习!

非常棒的设计思路!向你学习!

carnelian101

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

linx1314

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

wudongfeng

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

wudongfeng

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

phoenixdjq

在我的电脑上面不好用

这个程序在很久以前就有人做过了，在本论坛就能找到，作者的名字一时拼不出来，请作者见谅

这个程序我也保存了一份，现在贴上

(defun c:scl (/ DXF48 EDATA INDEX INPUTDATA SCALEDATA SS)
  (while (progn (initget 7) (= 1.0 (setq ScaleData (getreal "\n输入缩放系数:"))))
    (princ "\n缩放系数为不能为1。")
  )
  (if (setq ss (ssget '((0 . "*LINE"))))
    (while (progn (princ "\r放大[+]/缩小[-]/退出[回车]")
    (setq InputData (grread))
    (not (equal InputData '(2 13)))
    )
      (setq Index 0)
      (if (or (equal InputData '(2 61)) (equal InputData '(2 45)))
 (repeat (sslength ss)
   (setq Edata (entget (ssname ss Index))
  Dxf48 (assoc 48 Edata)
  Edata (if Dxf48
   (subst (cons 48
         (* (if (equal InputData '(2 61))
       (+ 1 ScaleData)
       (if (> ScaleData 1)
         (/ 1.0 ScaleData)
         (- 1 ScaleData)
       )
     )
     (cdr Dxf48)
         )
          )
          Dxf48
          Edata
   )
   (append Edata
    (list (cons 48
         (if (equal InputData '(2 61))
           (+ 1 ScaleData)
           (if (> ScaleData 1)
      (/ 1.0 ScaleData)
      (- 1 ScaleData)
           )
         )
          )
    )
   )
        )
  Index (1+ Index)
   )
   (if (not (entmod Edata))
     (*error* (strcat "不能更新对象数据“" (vl-princ-to-string Edata) "”。"))
   )
 )
      )
    )
  )
  (princ)
)

longer1000

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

lijunwww

非常有用的东本，谢谢了，您太伟大了，向您致敬!!