兰州人 发表于 2006-9-21 11:01:00

请教如何将UCS在VB中的应用！

<P>使用VBA建立UCS的语句是</P>
<P>&nbsp;&nbsp;&nbsp; ' Create a UCS and make it current<BR>&nbsp;&nbsp;&nbsp; origin(0) = 0: origin(1) = 0: origin(2) = 0<BR>&nbsp;&nbsp;&nbsp; xAxis(0) = 1: xAxis(1) = 1: xAxis(2) = 0<BR>&nbsp;&nbsp;&nbsp; yAxis(0) = -1: yAxis(1) = 1: yAxis(2) = 0<BR>&nbsp;&nbsp;&nbsp; Set newUCS = ThisDrawing.UserCoordinateSystems.Add(origin, xAxis, yAxis, "TestUCS")<BR>&nbsp;&nbsp;&nbsp; ThisDrawing.ActiveUCS = newUCS<BR></P>
<P>我的问题是<BR>lisp语言使用(command "ucs" "x" "") 绕X轴转90度,如何改成VBA语言</P>
<P>lisp语言使用(command "ucs"&nbsp;"")恢复到UCS的世界坐标，如何改成VBA语言。</P>
<P>lisp语言使用(command "ucs" "s" "aa")存贮到aa的UCS坐标系，如何改成VBA语言。</P>
<P>lisp语言使用(command "ucs" "r" "aa")恢复到aa的UCS坐标系，如何改成VBA语言。</P>
<P>谢谢，各位大侠</P>
页: [1]
查看完整版本: 请教如何将UCS在VB中的应用！