社区 › 编程申请 › 求改所有线型比例的工具

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

求改所有线型比例的工具

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

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

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

论坛里有很多，自己动手

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

(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:58

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

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

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

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

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

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

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

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

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:07

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:35

谢谢大家无私分享

查看完整版本: 求改所有线型比例的工具