VB编程添加AutoCAD用户坐标系
2011-06-17 21:08
831 查看
用户使用的坐标系一般为世界坐标系,在某些情况下,自定义一个用户坐标系,可使绘图容易,UCS坐标系相对于WCS坐标系可以由平移和旋转,创建UCS语法格式如下。
RetVal=AcadApp.ActiveDocument.UserCoordinateSystems.Add(Origin,xAisPoint,yAxisPoint,Name)
下面的代码在WCS中创建一个长、宽均为4,高为1的立方体,然后再转换到UCS中。 Private Sub Command1_Click()
Dim boxobj As Acad3DSolid
Dim length As Double, width As Double, height As Double
Dim center(0 To 2) As Double
center(0) = 2#: center(1) = 2#: center(2) = 0
length = 4: width = 4: height = 1
Set boxobj = acadapp.ActiveDocument.ModelSpace.AddBox(center, length, width, height)
ZoomExtents
Dim ucsobj As AcadUCS
Dim origin(0 To 2) As Double
Dim xaxispoint(0 To 2) As Double
Dim yaxispoint(0 To 2) As Double
origin(0) = 2: origin(1) = 2: origin(2) = 0
xaxispoint(0) = 4: xaxispoint(1) = 4: xaxispoint(2) = 0
yaxispoint(0) = 0: yaxispoint(1) = 4: yaxispoint(2) = 0
Set ucsobj = acadapp.ActiveDocument.UserCoordinateSystems.Add(origin, xaxispoint, yaxispoint, "ucs1")
acadapp.ActiveDocument.ActiveUCS = ucsobj
acadapp.ActiveDocument.ActiveViewport.UCSIconOn = True
acadapp.ActiveDocument.ActiveViewport.UCSIconAtOrigin = True
Dim transmatrix As Variant
transmatrix = ucsobj.GetUCSMatrix()
boxobj.TransformBy (transmatrix)
End Sub
Dim boxobj As Acad3DSolid
Dim length As Double, width As Double, height As Double
Dim center(0 To 2) As Double
center(0) = 2#: center(1) = 2#: center(2) = 0
length = 4: width = 4: height = 1
Set boxobj = acadapp.ActiveDocument.ModelSpace.AddBox(center, length, width, height)
ZoomExtents
Dim ucsobj As AcadUCS
Dim origin(0 To 2) As Double
Dim xaxispoint(0 To 2) As Double
Dim yaxispoint(0 To 2) As Double
origin(0) = 2: origin(1) = 2: origin(2) = 0
xaxispoint(0) = 4: xaxispoint(1) = 4: xaxispoint(2) = 0
yaxispoint(0) = 0: yaxispoint(1) = 4: yaxispoint(2) = 0
Set ucsobj = acadapp.ActiveDocument.UserCoordinateSystems.Add(origin, xaxispoint, yaxispoint, "ucs1")
acadapp.ActiveDocument.ActiveUCS = ucsobj
acadapp.ActiveDocument.ActiveViewport.UCSIconOn = True
acadapp.ActiveDocument.ActiveViewport.UCSIconAtOrigin = True
Dim transmatrix As Variant
transmatrix = ucsobj.GetUCSMatrix()
boxobj.TransformBy (transmatrix)
End Sub
相关文章推荐
- VB编程引用AutoCAD实体对象
- VB编程修改AutoCAD长度型尺寸标注
- 编程实现在weblogic中添加用户
- VB 当控件被数据绑定时,无法以编程方式向 DataGridView 的行集合中添加行
- 在 SharePoint 2010 中以编程方式向声明网站添加用户
- C#和VB 在动态添加用户控件时, 不一样啊。。。
- shell脚本编程-例子_批量添加用户脚本
- VB编程操作AutoCAD线宽
- VB编程修改AutoCAD坐标型尺寸标注
- AutoCAD利用VBA设置线型和添加用户自定义线性
- 用VB写的一个组件,实现添加系统用户,并添加到指定组
- JMX 编程实现在weblogic中添加用户
- VB.NET中网络编程所需组件WinHTTP的添加
- VB编程操作AutoCAD尺寸标注样式
- VB数据库编程实现添加、查询、修改、删除
- 添加ucs(用户坐标系)并设为当前
- shell 编程 批量添加用户
- AutoCAD .Net 将当前用户坐标系(UCS)设置为世界坐标系(WCS)
- 机房收费系统【VB版】——添加和删除用户
- VB编程删除AutoCAD实体对象