社区 › Auto Lisp › 全局宽度到线宽

hokie555 发表于 2022-7-6 12:14:48

全局宽度到线宽

谁能告诉我这个有什么问题吗？我试图选择全局宽度为0.014的多段线，并将其线宽更改为0.014“
 

(setq ss2 (ssget "_X" (list '(0 . "LWPOLYLINE") (cons 43 0.014))) count 0)
(repeat (sslength ss2)
(setq pline (ssname ss2 count))
(setq elist (entget pline))
(setq elist (subst (cons 370 35) (assoc 370 elist) elist))
(entmod elist)
(entupd pline)
(setq count (+ count 1))
(princ)
)

fixo 发表于 2022-7-6 13:52:44

 
只是个主意，对不起
 

(setq ss2 (ssget "_X" (list '(0 . "LWPOLYLINE") (cons 43 0.014))) count 0)
(repeat (sslength ss2)
(setq pline (ssname ss2 count))
(setq elist (entget pline))
(setq elist (subst (cons 43 0.35) (assoc 43 elist) elist))
(setq elist (subst (cons 370 35) (assoc 370 elist) elist))
(entmod elist)
(entupd pline)
(setq count (+ count 1))
(princ)
)

 
~'J'~

查看完整版本: 全局宽度到线宽