【已解决】如何跟据扩展属性修改线型？

sunqv

yshf 发表于 2020-11-26 21:32
(defun c:gxx()
    (setq osm (getvar "osmode"))
    (setvar "osmode" 0)

大神，我想把这3个改线型的合并成一个，条件怎么改？我用了3个if（）  然后发现改不了，用cond 也该不了。。。

(defun c:gkg()
    (setq osm (getvar "osmode"))
    (setvar "osmode" 0)
    (command "_undo" "be")
    (if (setq ssa (ssget '((0 . "LINE") )))
        (progn
            (setq i 0)
            (repeat (sslength ssa)
               (setq dxf (entget (ssname ssa i) '("*")))
               (if (setq kzsj (cdr (assoc -3 dxf)))
                   (if (= (cdadr (assoc "线型2" kzsj)) "空管")
                       (progn
                           (if (assoc 6 dxf)
                               (setq newdxf (subst (cons 6 "KG") (assoc 6 dxf) dxf))
                               (setq newdxf (append dxf (list (cons 6 "KG"))))
                           )
                           (entmod newdxf)
                       )
                   )

               )
               (setq i (1+ i))
            )
        )
    )
    (command "_undo" "e")
    (setvar "osmode" osm)
    (princ)
)
(defun c:gdg()
    (setq osm (getvar "osmode"))
    (setvar "osmode" 0)
    (command "_undo" "be")
    (if (setq ssa (ssget '((0 . "LINE") )))
        (progn
            (setq i 0)
            (repeat (sslength ssa)
               (setq dxf (entget (ssname ssa i) '("*")))
               (if (setq kzsj (cdr (assoc -3 dxf)))
                   (if (= (cdadr (assoc "线型2" kzsj)) "顶管")
                       (progn
                           (if (assoc 6 dxf)
                               (setq newdxf (subst (cons 6 "DG") (assoc 6 dxf) dxf))
                               (setq newdxf (append dxf (list (cons 6 "DG"))))
                           )
                           (entmod newdxf)
                       )
                   )
               )
               (setq i (1+ i))
            )
        )
    )
    (command "_undo" "e")
    (setvar "osmode" osm)
    (princ)
)
(defun c:gfk()
    (setq osm (getvar "osmode"))
    (setvar "osmode" 0)
    (command "_undo" "be")
    (if (setq ssa (ssget '((0 . "LINE") )))
        (progn
            (setq i 0)
            (repeat (sslength ssa)
               (setq dxf (entget (ssname ssa i) '("*")))
               (if (setq kzsj (cdr (assoc -3 dxf)))
                   (if (= (cdadr (assoc "线型2" kzsj)) "非空管")
                       (progn
                           (if (assoc 6 dxf)
                               (setq newdxf (subst (cons 6 "FK") (assoc 6 dxf) dxf))
                               (setq newdxf (append dxf (list (cons 6 "FK"))))
                           )
                           (entmod newdxf)
                       )
                   )
               )
               (setq i (1+ i))
            )
        )
    )
    (command "_undo" "e")
    (setvar "osmode" osm)
    (princ)
)

yshf

1. 自行改不了

复制代码

yshf

2. (defun c:gkgdgfk()
   
3.     (setq osm (getvar "osmode"))
   
4.     (setvar "osmode" 0)
   
5.     (command "_undo" "be")
   
6. 
   
7.     (setq pdsjb (list (list "KG" "空管")
   
8.                       (list "DG" "顶管")
   
9.                       (list "FK" "非空管")
   
10.                 )
    
11.     )
    
12.     (initget "KG DG FK") ;关键字
    
13.     (setq pdbz (getkword "\n请选取[空管K/顶管D/非空管F]<K>:"))
    
14.     (If (null pdbz) (setq pdbz "KG"))
    
15.     (setq sjb (assoc pdbz pdsjb))
    
16.   
    
17.     (if (setq ssa (ssget '((0 . "LINE") )))
    
18.         (progn
    
19.             (setq i 0)
    
20.             (repeat (sslength ssa)
    
21.                (setq dxf (entget (ssname ssa i) '("*")))
    
22.                (if (setq kzsj (cdr (assoc -3 dxf)))
    
23.                    ;(if (= (cdadr (assoc "线型2" kzsj)) "空管")
    
24.                    (if (= (cdadr (assoc "线型2" kzsj)) (cadr sjb))
    
25.                        (progn
    
26.                            (if (assoc 6 dxf)
    
27.                                ;(setq newdxf (subst (cons 6 "KG") (assoc 6 dxf) dxf))
    
28.                                ;(setq newdxf (append dxf (list (cons 6 "KG"))))
    
29.                                (setq newdxf (subst (cons 6 (car sjb)) (assoc 6 dxf) dxf))
    
30.                                (setq newdxf (append dxf (list (cons 6 (car sjb)))))
    
31.                            )
    
32.                            (entmod newdxf)
    
33.                        )
    
34.                    )
    
35. 
    
36.                )
    
37.                (setq i (1+ i))
    
38.             )
    
39.         )
    
40.     )
    
41.     (command "_undo" "e")
    
42.     (setvar "osmode" osm)
    
43.     (princ)
    
44. )

(defun c:gkgdgfk()<br />     (setq osm (getvar "osmode"))<br />     (setvar "osmode" 0)<br />     (command "_undo" "be")<br /> <br />     (setq pdsjb (list (list "KG" "空管")<br />                       (list "DG" "顶管")<br />                       (list "FK" "非空管")<br />                 )<br />     )<br />     (initget "KG DG FK") ;关键字<br />     (setq pdbz (getkword "\n请选取[空管K/顶管D/非空管F]<K>:"))<br />     (If (null pdbz) (setq pdbz "KG"))<br />     (setq sjb (assoc pdbz pdsjb))<br />   <br />     (if (setq ssa (ssget '((0 . "LINE") )))<br />         (progn<br />             (setq i 0)<br />             (repeat (sslength ssa)<br />                (setq dxf (entget (ssname ssa i) '("*")))<br />                (if (setq kzsj (cdr (assoc -3 dxf)))<br />                    ;(if (= (cdadr (assoc "线型2" kzsj)) "空管")<br />                    (if (= (cdadr (assoc "线型2" kzsj)) (cadr sjb)) <br />                        (progn<br />                            (if (assoc 6 dxf)<br />                                ;(setq newdxf (subst (cons 6 "KG") (assoc 6 dxf) dxf))<br />                                ;(setq newdxf (append dxf (list (cons 6 "KG"))))<br />                                (setq newdxf (subst (cons 6 (car sjb)) (assoc 6 dxf) dxf))<br />                                (setq newdxf (append dxf (list (cons 6 (car sjb)))))<br />                            )<br />                            (entmod newdxf)<br />                        )<br />                    )<br /> <br />                )<br />                (setq i (1+ i))<br />             )<br />         )<br />     )<br />     (command "_undo" "e")<br />     (setvar "osmode" osm)<br />     (princ)<br /> )

sunqv

高手就是高手…膜拜

sunqv

还有个问题，代能批量全选来自动修改吗？

yshf

sunqv 发表于 2020-12-3 17:49
还有个问题，代能批量全选来自动修改吗？

将 (if (setq ssa (ssget '((0 . "LINE") )))
改为 (if (setq ssa (ssget  "x" '((0 . "LINE") )))

yshf

sunqv 发表于 2020-12-3 17:49
还有个问题，代能批量全选来自动修改吗？

或者：

(defun c:gkgdgfk1()
    (setq osm (getvar "osmode"))
    (setvar "osmode" 0)
    (command "_undo" "be")

    (setq pdsjb (list (list "KG" "空管")
                      (list "DG" "顶管")
                      (list "FK" "非空管")
                )
    )

    (if (setq ssa (ssget "x" '((0 . "LINE") )))
        (progn
            (setq i 0)
            (repeat (sslength ssa)
               (setq dxf (entget (ssname ssa i) '("*")))
               (if (setq kzsj (cdr (assoc -3 dxf)))
                   (progn
                       (setq xxmc (cdadr (assoc "线型2" kzsj)))
                       (if (member xxmc (mapcar 'cadr pdsjb))
                           (progn
                               (setq sjb (reverse (assoc  xxmc (mapcar 'reverse  pdsjb))))
                               (if (assoc 6 dxf)
                                   (setq newdxf (subst (cons 6 (car sjb)) (assoc 6 dxf) dxf))
                                   (setq newdxf (append dxf (list (cons 6 (car sjb)))))
                               )
                               (entmod newdxf)
                           )
                      )
                   )
               )
               (setq i (1+ i))
            )
        )
    )
    (command "_undo" "e")
    (setvar "osmode" osm)
    (princ)
)

sunqv

完美解决，谢谢