Hallo!
Ich hoffe hier kann mir jemand helfen.
Ich moechte in einer Autocad Datei eine Zeichnung auf den Nullpunkt schieben um sie berechnen zu koennen. Hab mir da auch schon ein kleines Script zurechtgebastelt, nur leider keine Reaktion... :-(
Vielleicht hat ja einer von Euch nen Tip:
Sub Verbindung_herstellen()
'------------------------------------------------------
' Verbindung zu Acad herstellen
'------------------------------------------------------
Dim acadApp As AcadApplication
On Error Resume Next
Set acadApp = GetObject(, "AutoCAD.Application")
If Err Then
Err.Clear
Set acadApp = CreateObject("AutoCAD.Application")
If Err Then
MsgBox Err.Description
Exit Sub
End If
End If
'------------------------------------------------------
' Dokumenten Variablen setzen
'------------------------------------------------------
Dim acadDoc As AcadDocument
Set acadDoc = acadApp.ActiveDocument
'------------------------------------------------------
' Object markieren
'------------------------------------------------------
Dim objEnt As AcadEntity
For Each objEnt In ThisDrawing.ModelSpace
objEnt.Highlight True
Next
'------------------------------------------------------
' Object verschieben
'------------------------------------------------------
Dim ObjVersetzen As Variant
ObjVersetzen = acdbregion.Offset(50000)
ObjVersetzen(0).Color = acRed
End Sub
Bis zu dem Punkt wo ich die Zeichnung markiere klappt alles wunderbar. Auf das verschieben zeigt sich aber keine Reaktion...
Greets
CowMover
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP