如何改线宽

liuhaixin88

想将线宽改到0.35 如何改？

1. (defun dimfh-makeblock ( / &l1 &l2 &ci &at )
   
2.   (setvar "clayer" "0") (setvar "cecolor" "bylayer") (setvar "celtype" "bylayer")
   
3.   (setq &l1 (vla-addline &mod (vlp (list -1 0 0)) (vlp (list 1 0 0))))
   
4.   (setq &l2 (vla-addline &mod (vlp (list 0 0 0)) (vlp (list 0 1 0))))
   
5.   (setq &ci (vla-addcircle &mod (vlp (list 0 2 0)) 1))
   
6.   (setq &at (vla-addattribute &mod 1 acattributemodepreset "" (vlp (list 0 2 0)) "NUM" ""))
   
7.   (vla-put-alignment &at 4) (vla-put-TextAlignmentPoint &at (vlp (list 0 2 0)))
   
8.   (command "_.block" "$B-C1" (list 0 0 0) (vob &l1) (vob &l2) (vob &ci) (vob &at) "")
   
9. )

(defun dimfh-makeblock ( / &l1 &l2 &ci &at )<br />   (setvar "clayer" "0") (setvar "cecolor" "bylayer") (setvar "celtype" "bylayer")<br />   (setq &l1 (vla-addline &mod (vlp (list -1 0 0)) (vlp (list 1 0 0))))<br />   (setq &l2 (vla-addline &mod (vlp (list 0 0 0)) (vlp (list 0 1 0))))<br />   (setq &ci (vla-addcircle &mod (vlp (list 0 2 0)) 1))<br />   (setq &at (vla-addattribute &mod 1 acattributemodepreset "" (vlp (list 0 2 0)) "NUM" ""))<br />   (vla-put-alignment &at 4) (vla-put-TextAlignmentPoint &at (vlp (list 0 2 0)))<br />   (command "_.block" "$B-C1" (list 0 0 0) (vob &l1) (vob &l2) (vob &ci) (vob &at) "")<br /> )

liuhaixin88

{:soso_e132:}{:soso_e109:}

CSharpBoy

上图，你要修改什么。

看你程序好像要画园？ 圆没有宽度。可以改显示宽度。