修改线型比例tt

848818376

8 Z: |* M- ]; k% j$ l' }
修改线型比例tt
  n3 l' {7 ]# h  m$ d8 P下面命令时修改线性比例用的LSP文件，快捷键：TT
;; 命令: TT

1. (defun C:TT (/ E I O SCALE SS)
   6 a9 L/ |* i% ~/ P  j+ z4 ~& ^
2.   (princ "\n作者:小萝卜头 QQ:95818608 Rev 2010.04.11")
   * @' S( T7 ]9 h/ \' f
3.   (princ "\n欢迎使用: 修改线型比例 ")
   0 r( M: }; V1 a/ T
4.   ;;  (if (setq SS (ssget '((0 . "*LINE,CIRCLE,ARC,ELLIPSE,RAY"))))
   
5.   (if (setq SS (ssget))
   
6.     (while (setq SCALE (getreal "\n输入新的比例<退出>:"))
   
7.       (repeat (setq I (sslength SS))
   ; ?3 D) v4 R8 j$ ~; M8 K1 g, \# W
8.         (and (setq E (ssname SS (setq I (1- I))))
   
9.              (setq O (vlax-ename->vla-object E))
   / d2 |. G0 f3 m- E, O; d! G$ y
10.              (vla-put-linetypescale O SCALE)
    
11.         )
    4 v2 x9 Q- L+ u) Z
12.       )
    ; i% T" O. v5 p: S# T/ q- S
13.     )
    
14.   )
    $ B; `$ r) q- [# |5 S0 a
15.   (princ)
    6 w$ K% v2 r4 {* x+ B0 O. ~$ k! ]
16. )

复制代码

此命令运行时会出现错误，请哪位大侠帮忙看看，谢谢
8 y7 ^5 [4 O( p; E: W

woaishuijia

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

848818376

老顾：你这样搞复杂了，用change就行。
1 G/ v4 L- y  c$ ?. [4 r; u6 Y(defun C:TT (/ ss SCALE)
  (princ "\n欢迎使用: 修改线型比例 ")
! n3 B' E: q" {  X  (setq SS (ssget))
  (setq SCALE (getreal "\n输入新的比例<退出>:"))
" S% o4 Y# h0 t2 n+ \, r0 l  (command "change" ss "" "p" "s" scale "")  
  (princ)
)

djh1006

謝謝分享!!