修改线型比例tt

848818376

* ~% }, |% T* j8 j* S
修改线型比例tt
下面命令时修改线性比例用的LSP文件，快捷键：TT
3 f: L; S6 F3 P2 X;; 命令: TT

1. (defun C:TT (/ E I O SCALE SS)
   , G0 q( m. S! A+ U6 \* ]
2.   (princ "\n作者:小萝卜头 QQ:95818608 Rev 2010.04.11")
   
3.   (princ "\n欢迎使用: 修改线型比例 ")
   ) ?8 t7 o" V2 {
4.   ;;  (if (setq SS (ssget '((0 . "*LINE,CIRCLE,ARC,ELLIPSE,RAY"))))
   5 A( K$ x. B" z: U  `: b, M  J
5.   (if (setq SS (ssget))
   ) ~" b4 g& x: Y. ~3 [8 l- S
6.     (while (setq SCALE (getreal "\n输入新的比例<退出>:"))
   
7.       (repeat (setq I (sslength SS))
   
8.         (and (setq E (ssname SS (setq I (1- I))))
   + {% c2 H: S% f7 \: Q; _
9.              (setq O (vlax-ename->vla-object E))
   
10.              (vla-put-linetypescale O SCALE)
    
11.         )
    . R1 m1 k7 `8 H0 f5 \1 A$ s6 P' z
12.       )
    
13.     )
    0 M) e* L& H9 k8 M5 a
14.   )
    ) t  S, ]  Y5 F# e; ?. Z
15.   (princ)
    
16. )

复制代码

此命令运行时会出现错误，请哪位大侠帮忙看看，谢谢
9 J1 p' O; p7 m  ^9 z. x5 @

woaishuijia

代码本身并没有错误.只是有一点不合理(本人看法):第六行用 while 函数会导致用户指定了线型比例且程序已经按用户数据做了修改后,再次要求用户输入新的比例,直到用户按下回车.实际上这里用 if 更好一些.

848818376

老顾：你这样搞复杂了，用change就行。
(defun C:TT (/ ss SCALE)
  (princ "\n欢迎使用: 修改线型比例 ")
  (setq SS (ssget))
) e# A, o' a' s3 a# l# m) P0 r  (setq SCALE (getreal "\n输入新的比例<退出>:"))
+ F" ?6 R3 z& U0 m+ Y3 O  (command "change" ss "" "p" "s" scale "")  
7 T0 N$ `% v3 E9 l- U% o  (princ)
)

djh1006

謝謝分享!!