求一个能够框选，其他人的插入图，线型比例改为与原图一样的图

tranney

大伙是不是经常和我一样可能会调入其他人的图纸到自己的图纸中
如果是的话，比如我们平时的lts 1000，调入其他人的图纸lts为1
但是，很多其他人的图纸线已经改变比例，比如有些线性为 2啊，3啊等等之类的。

请各位大哥帮我设计一个程序
我需要的是调入其他的图纸和直接打开他的图纸一样，
那么就需要一个循环，处理每个线并把其
请输入当前lts：比如我输入1000
请输入调入图纸的lts：比如输入100
框选
循环
获得直线等，读入其线型比例：比如20
计算就是直接20*1000/100=200赋值给直线。哇好喜欢！！

能改变块里的线型比例就更好了
谢谢，跪！！

wowan1314

简单的写个。块里的没有处理
看看能用不

2. (defun c:t11 (/ ss a l1 l2 xls en entb ls)
   
3.     (setq ss (ssget ":L" '((0 . "*LINE"))) a -1)
   
4.     (setq l1 (getint "\n当前比例:") l2 (getint "\n图纸原比例:"))
   
5.     (setq xls (/ l1 l2))
   
6.     (if (and ss xls)
   
7.         (while
   
8.             (setq en (ssname ss (setq a(1+ a))
   
9.                 )
   
10.             )
    
11.             (setq entb (entget en))
    
12.             (if (setq ls (assoc 48 entb))
    
13.                 (entmod (subst (cons 48 (* xls(cdr ls)))(assoc 48 entb) entb))
    
14.             )
    
15.         )
    
16.     )
    
17.     (princ)
    
18. )

(defun c:t11 (/ ss a l1 l2 xls en entb ls)<br />     (setq ss (ssget ":L" '((0 . "*LINE"))) a -1)<br />     (setq l1 (getint "\n当前比例:") l2 (getint "\n图纸原比例:"))<br />     (setq xls (/ l1 l2))<br />     (if (and ss xls)<br />         (while<br />             (setq en (ssname ss (setq a(1+ a))<br />                 )<br />             )<br />             (setq entb (entget en))<br />             (if (setq ls (assoc 48 entb))<br />                 (entmod (subst (cons 48 (* xls(cdr ls)))(assoc 48 entb) entb))<br />             )<br />         )<br />     )<br />     (princ)<br /> )