[VBA]mline型式设定
<P><FONT face=Simsun size=2>mline比例变数已经为"6"了为何会出的线还是为"1"的宽？？<BR>奇怪！！＠＃！＠＃<BR>Dim objEnt As AcadMLine<BR>Dim points(17) As Double<BR>' " setup initial points<BR>points(0) = 0: points(1) = 0: points(2) = 0<BR>points(3) = 10: points(4) = 0: points(5) = 0<BR>points(6) = 10: points(7) = 10: points(8) = 0<BR>points(9) = 5: points(10) = 10: points(11) = 0<BR>points(12) = 5: points(13) = 5: points(14) = 0<BR>points(15) = 0: points(16) = 5: points(17) = 0<BR>ThisDrawing.SetVariable "CMLSCALE", 6<BR>Set objEnt = ThisDrawing.ModelSpace.AddMLine(points)</FONT></P><P><FONT face=Simsun size=2>vba中竟然找不到此语句的用法～～<BR>CMLJUST, CMLSCALE, and CMLSTYLE ＆MLSTYLE<BR>mlstyle要设为起始终点两边封闭（直线或外弧）要怎么设变数呢？<BR>:~( </FONT></P>
<P><BR></P> <P>改改Linetypescale属性试试？</P>
页:
[1]