|
|
以下是源程序：程序的目的是在有各种图形的cad图中，把直线选出来，之后再将直线偏移一定的距离。 现在我可以选出直线，但是不知道该怎么偏移。请大家帮下忙~不盛感激。
Dim acadDoc As Object
Dim acadApp As Object
Private Sub CmdTj_Click()
MsgBox "There are " & acadDoc.Layers.Count & " layer(s) in the drawing."
MsgBox "There are " & acadDoc.ModelSpace.Count & " object(s) in ModelSpace."
Dim objCount As Integer
Dim I As Integer
objCount = acadDoc.ModelSpace.Count
Dim mspaceObj As AcadObject
For I = 0 To objCount - 1
Set mspaceObj = acadDoc.ModelSpace.Item(I)
If mspaceObj.ObjectName = "AcDbLine" Then
MsgBox "The objects in ModelSpace include: " & mspaceObj.ObjectName, vbInformation, "Count Example"
End If
Next
End Sub
Private Sub Form_Load()
Set acadApp = GetObject(, ".Application")
Set acadDoc = acadApp.ActiveDocument
End Sub
|
|
置顶卡
