leasson 发表于 2006-2-18 15:59:00

尺寸标注

<P>求用vba写的尺寸标注子程序！<A href="mailto:song_song_shu@yahoo.com.cn" target="_blank" >song_song_shu@yahoo.com.cn</A></P>

gzmkshjsh 发表于 2006-2-24 11:49:00

<P>Sub Example_AddDimAligned()<BR>&nbsp;&nbsp;&nbsp; Dim dimObj As AcadDimAligned<BR>&nbsp;&nbsp;&nbsp; Dim point1(0 To 2) As Double<BR>&nbsp;&nbsp;&nbsp; Dim point2(0 To 2) As Double<BR>&nbsp;&nbsp;&nbsp; Dim location(0 To 2) As Double<BR>&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp; point1(0) = 5#: point1(1) = 5#: point1(2) = 0#<BR>&nbsp;&nbsp;&nbsp; point2(0) = 10#: point2(1) = 5#: point2(2) = 0#<BR>&nbsp;&nbsp;&nbsp; location(0) = 5#: location(1) = 7#: location(2) = 0#<BR>&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp; Set dimObj = ThisDrawing.ModelSpace.AddDimAligned(point1, point2, location)<BR>&nbsp;&nbsp;&nbsp; ZoomAll<BR>End Sub</P>
页: [1]
查看完整版本: 尺寸标注