求一个能够框选，其他人的插入图，线型比例改为与原图一样的图
大伙是不是经常和我一样可能会调入其他人的图纸到自己的图纸中如果是的话，比如我们平时的lts 1000，调入其他人的图纸lts为1
但是，很多其他人的图纸线已经改变比例，比如有些线性为 2啊，3啊等等之类的。
请各位大哥帮我设计一个程序
我需要的是调入其他的图纸和直接打开他的图纸一样，
那么就需要一个循环，处理每个线并把其
请输入当前lts：比如我输入1000
请输入调入图纸的lts：比如输入100
框选
循环
获得直线等，读入其线型比例：比如20
计算就是直接20*1000/100=200赋值给直线。哇好喜欢！！
能改变块里的线型比例就更好了
谢谢，跪！！
简单的写个。块里的没有处理
看看能用不(defun c:t11 (/ ss a l1 l2 xls en entb ls)
(setq ss (ssget ":L" '((0 . "*LINE"))) a -1)
(setq l1 (getint "\n当前比例:") l2 (getint "\n图纸原比例:"))
(setq xls (/ l1 l2))
(if (and ss xls)
(while
(setq en (ssname ss (setq a(1+ a))
)
)
(setq entb (entget en))
(if (setq ls (assoc 48 entb))
(entmod (subst (cons 48 (* xls(cdr ls)))(assoc 48 entb) entb))
)
)
)
(princ)
)
页:
[1]