社区 › VBA/VB/ActiveX/API 编程技术 › 两维变三维的问题

shirazbj 发表于 2006-11-6 16:41:00

两维变三维的问题

<P>目标：把建筑立面图转到各个平面上，然后组成简单的3维图。</P>
<P>过程：</P>
<P>1。先分析立面图所用的画图命令，然后针对各命令作旋转处理。</P>
<P>2。最简单的是画线命令，取得线的起终点，旋转坐标后，更新线的坐标就可以了。</P>
<P>3。对其他画图命令，因为autocad只在xy平面上画图，取得参数坐标后，先要用ucs命令转到对应平面，再画图。还要删除原来的图。</P>
<P>下面是一个转弧的例子。</P>
<P>生成弧的例程：</P>
<P>Sub Example_AddArc()<BR>&nbsp;&nbsp;&nbsp; ' This example creates an arc in model space.<BR>&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; Dim arcObj As AcadArc<BR>&nbsp;&nbsp;&nbsp; Dim centerPoint(0 To 2) As Double<BR>&nbsp;&nbsp;&nbsp; Dim radius As Double<BR>&nbsp;&nbsp;&nbsp; Dim startAngleInDegree As Double<BR>&nbsp;&nbsp;&nbsp; Dim endAngleInDegree As Double<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; ' Define the circle<BR>&nbsp;&nbsp;&nbsp; centerPoint(0) = 0#: centerPoint(1) = 0#: centerPoint(2) = 0#<BR>&nbsp;&nbsp;&nbsp; radius = 5#<BR>&nbsp;&nbsp;&nbsp; startAngleInDegree = 0#<BR>&nbsp;&nbsp;&nbsp; endAngleInDegree = 180#<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; ' Convert the angles in degrees to angles in radians<BR>&nbsp;&nbsp;&nbsp; Dim startAngleInRadian As Double<BR>&nbsp;&nbsp;&nbsp; Dim endAngleInRadian As Double<BR>&nbsp;&nbsp;&nbsp; startAngleInRadian = startAngleInDegree * 3.141592 / 180#<BR>&nbsp;&nbsp;&nbsp; endAngleInRadian = endAngleInDegree * 3.141592 / 180#<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; ' Create the arc object in model space<BR>&nbsp;&nbsp;&nbsp; Set arcObj = ThisDrawing.ModelSpace.AddArc(centerPoint, radius, startAngleInRadian, endAngleInRadian)<BR>&nbsp;&nbsp;&nbsp; ZoomAll<BR>&nbsp;&nbsp;&nbsp; <BR>End Sub</P>
<P>转弧的例程：</P>
<P>Sub myrotatearc()<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; Dim newObjs As AcadArc<BR>&nbsp;&nbsp;&nbsp; Dim centerPoint(0 To 2) As Double<BR>&nbsp;&nbsp;&nbsp; Dim radius As Double<BR>&nbsp;&nbsp;&nbsp; Dim startAngleInDegree As Double<BR>&nbsp;&nbsp;&nbsp; Dim endAngleInDegree As Double<BR>&nbsp;&nbsp;&nbsp; Dim startAngleInRadian As Double<BR>&nbsp;&nbsp;&nbsp; Dim endAngleInRadian As Double<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; Dim i, n As Long<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp; n = ThisDrawing.ModelSpace.Count<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp; For i = 0 To n - 1<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'AcDbArc<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If ThisDrawing.ModelSpace.Item(i).ObjectName = "AcDbArc" Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set newObjs = ThisDrawing.ModelSpace.Item(i)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; centerPoint(0) = newObjs.Center(0)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; centerPoint(1) = newObjs.Center(1)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; centerPoint(2) = newObjs.Center(2)<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; radius = newObjs.radius<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; startAngleInRadian = newObjs.StartAngle<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; endAngleInRadian = newObjs.EndAngle<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ThisDrawing.SendCommand "_Ucs" &amp; vbCr &amp; "y" &amp; vbCr &amp; "90" &amp; vbCr&nbsp; '绕y轴转90度<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set arcObj = ThisDrawing.ModelSpace.AddArc(centerPoint, radius, startAngleInRadian - 3.1415926 / 2#, endAngleInRadian - 3.1415926 / 2#)&nbsp; '注意这里减了90度，可能是因为上面ucs命令转了90度<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ThisDrawing.SendCommand "_Ucs" &amp; vbCr &amp; "y" &amp; vbCr &amp; "-90" &amp; vbCr '把画图平面转回来<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; newObjs.Delete&nbsp; '删除原来的弧<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp; Next i<BR>&nbsp; <BR>&nbsp; ZoomAll<BR>&nbsp; <BR>&nbsp; ThisDrawing.Regen acAllViewports<BR>&nbsp; <BR>&nbsp; MsgBox "Good on ya!"<BR>&nbsp;<BR>End Sub</P>

pzhlmp 发表于 2006-11-12 23:29:00

<P>学习了</P>

shirazbj 发表于 2006-11-13 17:58:00

用rotate3d更简单。

tcsl9621 发表于 2006-11-13 22:47:00

用对齐命令更简单。

查看完整版本: 两维变三维的问题