[VBA]mline型式设定

jacky789

mline比例变数已经为"6"了为何会出的线还是为"1"的宽？？
奇怪！！＠＃！＠＃
Dim objEnt As AcadMLine
Dim points(17) As Double
' " setup initial points
points(0) = 0: points(1) = 0: points(2) = 0
points(3) = 10: points(4) = 0: points(5) = 0
points(6) = 10: points(7) = 10: points(8) = 0
points(9) = 5: points(10) = 10: points(11) = 0
points(12) = 5: points(13) = 5: points(14) = 0
points(15) = 0: points(16) = 5: points(17) = 0
ThisDrawing.SetVariable "CMLSCALE", 6
Set objEnt = ThisDrawing.ModelSpace.AddMLine(points)

vba中竟然找不到此语句的用法～～
CMLJUST, CMLSCALE, and CMLSTYLE ＆MLSTYLE
mlstyle要设为起始终点两边封闭（直线或外弧）要怎么设变数呢？
:~(

xinghesnak

改改Linetypescale属性试试？