线形比例的小程序，当组码表中不存在某元素的问题！

cq4920

2. (defun c:tt5 (/ #g k1 kw1 #g kw2 k2   )
   
3.   (setvar "cmdecho" 0)
   
4. (setvar "blipmode" 0)
   
5.      (if (setq kw1 (ssget "X" '((0 . "*LINE")(6 . "MC-DASH"))));选择对象
   
6.   (progn
   
7.     ;(setq bl 30)
   
8.    (while (setq k1 (ssname kw1 0))
   
9.     (setq kw1 (ssdel k1 kw1))
   
10.     (setq #g1 (entget k1))
    
11.      ;(if (assoc 48 #g)
    
12.       ; (setq #g (subst '(48 . "bl") (assoc 48 #g) #g))
    
13.       ; (cons '(48 . bl) #g)
    
14.     ; )
    
15.     (setq #g1 (subst '(48 . 10) (assoc 48 #g1) #g1));修改线形比例
    
16.     ;(setq #g (subst '(8 . "D-节点填充") (assoc 8 #g) #g));修改图层
    
17.     (entmod #g1);刷新图元
    
18.    );while
    
19.   )
    
20. )
    
21.   
    
22.    (if (setq kw2 (ssget "X" '((0 . "*LINE")(6 . "MC-CENTER"))));选择对象
    
23.   (progn
    
24.     ;(setq bl 30)
    
25.    (while (setq k2 (ssname kw2 0))
    
26.     (setq kw2 (ssdel k2 kw2))
    
27.     (setq #g2 (entget k2))
    
28.      ;(if (assoc 48 #g)
    
29.       ; (setq #g (subst '(48 . "bl") (assoc 48 #g) #g))
    
30.       ; (cons '(48 . bl) #g)
    
31.     ; )
    
32.     (setq #g2 (subst '(48 . 0.1) (assoc 48 #g2) #g2));修改线形比例
    
33.     (entmod #g2);刷新图元
    
34.    );while
    
35.   )
    
36. )
    
37.   
    
38. (princ)
    
39.    
    
40. )
    

(defun c:tt5 (/ #g k1 kw1 #g kw2 k2   )<br />   (setvar "cmdecho" 0)<br /> (setvar "blipmode" 0)<br />      (if (setq kw1 (ssget "X" '((0 . "*LINE")(6 . "MC-DASH"))));选择对象<br />   (progn<br />     ;(setq bl 30)<br />    (while (setq k1 (ssname kw1 0))<br />     (setq kw1 (ssdel k1 kw1))<br />     (setq #g1 (entget k1))<br />      ;(if (assoc 48 #g)<br />       ; (setq #g (subst '(48 . "bl") (assoc 48 #g) #g))<br />       ; (cons '(48 . bl) #g)<br />     ; )<br />     (setq #g1 (subst '(48 . 10) (assoc 48 #g1) #g1));修改线形比例<br />     ;(setq #g (subst '(8 . "D-节点填充") (assoc 8 #g) #g));修改图层<br />     (entmod #g1);刷新图元<br />    );while<br />   )<br /> )<br />   <br />    (if (setq kw2 (ssget "X" '((0 . "*LINE")(6 . "MC-CENTER"))));选择对象<br />   (progn<br />     ;(setq bl 30)<br />    (while (setq k2 (ssname kw2 0))<br />     (setq kw2 (ssdel k2 kw2))<br />     (setq #g2 (entget k2))<br />      ;(if (assoc 48 #g)<br />       ; (setq #g (subst '(48 . "bl") (assoc 48 #g) #g))<br />       ; (cons '(48 . bl) #g)<br />     ; )<br />     (setq #g2 (subst '(48 . 0.1) (assoc 48 #g2) #g2));修改线形比例<br />     (entmod #g2);刷新图元<br />    );while<br />   )<br /> )<br />   <br /> (princ)<br />     <br /> )<br />

这个程序对已经修改了线形比例的线可以成功修改，其他线形比例为1 也就是祖玛表中没有 48 的时候，就不能修改。本打算加一个判断句，如果表中没有48 就在表中添加48  如果有48 就修改48.可惜没能成功！

另外还想加上手动设置比例值，但是不知道怎么带入！基础知识太少了！
有路过的大佬，麻烦动动你的小手，帮我优化一下！
这个真的很有用，填充比例，归层，改色，等等其他的功能就都能实现了！

start4444

发那么一大段还一堆注解，别人都没心思看你的。。。
这段是给颜色的，参考下，如果是小程序直接用 change 命令来改，啥事没有

(defun c:tt5 ()
(setq en (entsel "\n选择对象:") ent (entget (car en)) col (getint"\n输入颜色:"))
(if (assoc 62 ent) (entmod (subst (cons 62 col) (assoc 62 ent) ent)) (entmod (cons (cons 62 col) ent)))
        )

cq4920

start4444 发表于 2020-3-14 12:06
发那么一大段还一堆注解，别人都没心思看你的。。。
这段是给颜色的，参考下，如果是小程序直接用 change  ...

感谢！change 解决了！这样就不每次都要去调整线形比例了！
(defun c:tt5 (/ kw1 kw2   )
        (setvar "cmdecho" 0)
(setvar "blipmode" 0)
                 (if (setq kw1 (ssget "X" '((0 . "*LINE")(6 . "MC-DASH"))));选择对象
      (command "change" kw1 "" "p" "s" "20" "")
)
                                 (if (setq kw2 (ssget "X" '((0 . "*LINE")(6 . "MC-center"))));选择对象
      (command "change" kw2"" "p" "s" "0.05" "")
)
       
(princ)
               
)

cq4920

start4444 发表于 2020-3-14 12:06
发那么一大段还一堆注解，别人都没心思看你的。。。
这段是给颜色的，参考下，如果是小程序直接用 change  ...

但是有个问题，就是在布局空间不能修改模型空间里的图元！

start4444

cq4920 发表于 2020-3-14 21:21
但是有个问题，就是在布局空间不能修改模型空间里的图元！

布局空间你能选到模型空间的图元吗，还不是要进视口操作

stonedesign

cq4920 发表于 2020-3-14 20:10
感谢！change 解决了！这样就不每次都要去调整线形比例了！
(defun c:tt5 (/ kw1 kw2   )
        (setvar "cm ...

我怎么用不起来

cq4920

stonedesign 发表于 2022-12-22 18:20
我怎么用不起来

这个属于定制程序，因为线型是独有的，你只需要把 组码6 线型名称 改成你的名称

kucha007

要考虑随层的情况。线型随层的时候替换，不随层的时候修改。