将lts图形改为lts 1000，且保持所有线型显示情况不变

tranney

我拼凑起来的程序，呵呵不管用啊麻烦各位大哥帮我看看谢谢了(defun c:tt (/ ltsold ss en dxf celtsold celtsnew)
(setvar "CMDECHO" 0)
(setq ltsold (getvar "ltscale"));获取当前全局比例因子
; (setq ss (ssget "X" '((0 . "ARC,CIRCLE,ELLIPSE,LINE,*POLYLINE"))));选择所有的线
         (while (setq ss (ssget ":s"))
                (repeat (setq n (sslength ss))
                        (setq en (ssname ss (setq n (1- n))))
                        (setq dxf (entget en))
                        (if (not (cdr (assoc 6 dxf)))
                                (progn
                                           (setq celtsold (getvar "celtscale"));获取当前线段的比例因子，因为现在要将图纸的全局比例因子改成1000，所以现在线型的celtscale要变成(1000/lsold )*celtsold
                                           (setq celtsnew (* (/ 1000.0 ltsold) celtsold))
                                        (command "chprop" en "" "s" celtsnew  "")
                                )
                        )
                )
        )
     (setvar  "ltscale" 1000)  
(setvar "CMDECHO" 1)
         (princ (strcat "\n---已经将所选对象全部比例因子即lts从" ltsold "改为1000"))
(princ)
)[/code]

newer

程序运行有问题吗？

tranney

newer 发表于 2014-4-24 21:43
程序运行有问题吗？

就是有问题才到这里来请高手看看的

newer

tranney 发表于 2014-4-24 22:03
就是有问题才到这里来请高手看看的

把你遇到问题的显示信息帖上来吧。

tranney

完全不能用

ll_j

1. (defun c:tt (/ ltsold ss en dxf celtsold celtsnew)
   
2.   (setvar "CMDECHO" 0)
   
3.   (setq ltsold (getvar "ltscale"))      ;获取当前全局比例因子
   
4.                                         ; (setq ss (ssget "X" '((0 . "ARC,CIRCLE,ELLIPSE,LINE,*POLYLINE"))));选择所有的线
   
5.   (while (setq ss (ssget ":s"))
   
6.     (repeat (setq n (sslength ss))
   
7.       (setq en (ssname ss (setq n (1- n))))
   
8.       (setq dxf (entget en))
   
9.       (if (not (cdr (assoc 6 dxf)))
   
10.         (progn
    
11.           (setq celtsold (getvar "celtscale"))
    
12.                                         ;获取当前线段的比例因子，因为现在要将图纸的全局比例因子改成1000，所以现在线型的celtscale要变成(1000/lsold )*celtsold
    
13.           (setq celtsnew (* (/ ltsold 1000.0) celtsold))    ;这里原来有错误
    
14.           (command "chprop" en "" "s" celtsnew "")
    
15.         )
    
16.       )
    
17.     )
    
18.   )
    
19.   (setvar "ltscale" 1000)
    
20.   (setvar "CMDECHO" 1)
    
21.   (princ (strcat "\n---已经将所选对象全部比例因子即lts从"
    
22.                  (rtos ltsold)       ;原来主要错误在这里
    
23.                  "改为1000"
    
24.          )
    
25.   )
    
26.   (princ)
    
27. )

(defun c:tt (/ ltsold ss en dxf celtsold celtsnew)<br />   (setvar "CMDECHO" 0)<br />   (setq ltsold (getvar "ltscale"))      ;获取当前全局比例因子<br />                                         ; (setq ss (ssget "X" '((0 . "ARC,CIRCLE,ELLIPSE,LINE,*POLYLINE"))));选择所有的线<br />   (while (setq ss (ssget ":s"))<br />     (repeat (setq n (sslength ss))<br />       (setq en (ssname ss (setq n (1- n))))<br />       (setq dxf (entget en))<br />       (if (not (cdr (assoc 6 dxf)))<br />         (progn<br />           (setq celtsold (getvar "celtscale"))<br />                                         ;获取当前线段的比例因子，因为现在要将图纸的全局比例因子改成1000，所以现在线型的celtscale要变成(1000/lsold )*celtsold<br />           (setq celtsnew (* (/ ltsold 1000.0) celtsold))    ;这里原来有错误<br />           (command "chprop" en "" "s" celtsnew "")<br />         )<br />       )<br />     )<br />   )<br />   (setvar "ltscale" 1000)<br />   (setvar "CMDECHO" 1)<br />   (princ (strcat "\n---已经将所选对象全部比例因子即lts从"<br />                  (rtos ltsold)       ;原来主要错误在这里<br />                  "改为1000"<br />          )<br />   )<br />   (princ)<br /> )