求改所有线型比例的工具

lshpool · 发表于 2012-11-9 17:50

本帖最后由 lshpool 于 2012-11-9 18:05 编辑

我需要的不是改全局变量LTS，而是把所选择的所有虚线的单个线型比例一下子缩放N倍的工具,经常遇到这样的问题，拿到别人的图纸，他的全局线型比例和我的不同，我习惯设置为1000，但有的图纸是10，或100，如果我强制把别人的图纸改为1000，则里面所有的虚线都变了，所以我需要一个工具，可以把lts改变为我需要的值，并且里面的线型显示不变

adc · 发表于 2012-11-10 16:09

论坛里有很多，自己动手

1993063 · 发表于 2012-11-12 23:43

(Defun C:Ls ( / A E I Ns S )
(Setq Ns (Getreal "\n输入线形比例:") Ns (Cons 48 Ns))
(While (Setq S (Ssget "_:L:S"))
      (Repeat (Setq I (Sslength S))
         (Setq E (Entget (Ssname S (Setq I (1- I)))))
         (If (Setq A (Assoc 48 E))
            (Setq E (Subst Ns A E))
            (Setq E (Append E (List Ns)))
         )
         (Entmod E)
      )
)
(Princ)
);;调整线形比例

lshpool · 发表于 2012-11-15 07:46

我要的是一个线型比例缩放工具，可以一下子把所有线的线型比例缩放，而不是改全局变量

111118528 · 发表于 2012-11-25 11:13

不然就先看你要改的线条是多少的线型比例，然后快捷选所有这样的线条，在特性面板里直接改就OK了，3步就搞定了

lshpool · 发表于 2012-12-1 19:42

特性面板里只能同时改一种线型，如果有另外线型的比例不同的，就要再改一次

lshpool · 发表于 2013-12-14 07:24

就好像cad的sc缩放一样，输入sc，然后选择一堆线型比例不同的线(例如有的线线型比例是1，有的是0.5，)然后提示输入缩放比例，会自动把所选线型比例缩放

KO你 · 发表于 2019-1-13 00:06

lshpool 发表于 2013-12-14 07:24
就好像cad的sc缩放一样，输入sc，然后选择一堆线型比例不同的线(例如有的线线型比例是1，有的是0.5，)然后 ...

快捷键 qs 修改线型比例
(defun c:qs () (setq ent (ssget))(command "change" ent "" "p" "s"))

00放飞梦想00 · 发表于 2020-8-10 23:30

KO你发表于 2019-1-13 00:06
快捷键 qs 修改线型比例
(defun c:qs () (setq ent (ssget))(command "change" ent "" "p" "s"))

好代码，简单明了，顶起来

00放飞梦想00 · 发表于 2020-8-10 23:30

谢谢大家无私分享

账号		自动登录	找回密码
密码			注册

求改所有线型比例的工具

相关帖子