全局宽度到线宽

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

只是个主意，对不起

copy


(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'~

[编程交流] 全局宽度到线宽

发表回复

精选推荐