|
|
本人用VB的sendcommand方法调用cad的镜像命令时，提示“无效二维点”。
'连接CAD
On Error Resume Next
Set AcadApp = GetObject(, ".application")
If Err Then
Err.Clear
Set AcadApp = CreateObject("autocad.application")
If Err Then
MsgBox Err.Description
Exit Sub
End If
End If
AcadApp.Visible = True
Set AcadDoc = AcadApp.ActiveDocument
'访问镜像命令
Public sub scommand( )
Public point1(2) As Double
Public point2(2) As Double
Public Line1 As AcadEntity
Public Det1 as string
Public Enthandle as string
point1(0)=0
point1(1)=0
point1(2)=0
point2(0)=100
point2(1)=100
point2(2)=0
Set Line1 = Thisdrawing.ModelSpace.AddLine(point1, point2)
EntHandle = Line1.Handle
Det1 = "(handent " & Chr(34) & entHandle & Chr(34) & ")"
Thisdrawing.SendCommand "_mirror" & vbCr & Det1 & vbCr & vbCr & "0,0,0" & vbCr & "0,100,0" & vbCr & vbCr
End Sub
请大家帮忙！ |
|
置顶卡
