---

Hallo zusammen!

Über einen Selektionsset erzeuge ich einen WBlock.
Wenn ich diesen dann jedoch wieder einfüge, liegt der Einfügepunkt irgendwo, aber nicht am Fadenkreuz.
Kann man dem WBlock aus VBA heraus auch einen Basispunkt mitgeben?
z.B. den MinPoint von GetBoundingBox

Code:

---

ThisDrawing.Utility.GetEntity Objekt, PickedPoint, Prompt
If TypeName(Objekt) = "IAcadPolyline" Or "IAcadLWPolyline" Then
    Objekt.GetBoundingBox MinPoint, MaxPoint
    Set NewEntity1 = Objekt
    NewEntity1.Layer = "S_19"

    minp(0) = MinPoint(0)
    minp(1) = MinPoint(1)
    maxp(0) = MaxPoint(0)
    maxp(1) = MaxPoint(1)

    SSet.Clear
    SSet.Select acSelectionSetCrossing, minp, maxp, _
    tDXFCodes, tDXFValues
       
    strTempPath = "C:\Temp" & "\" & TextBox.Text
    ThisDrawing.Wblock strTempPath, SSet

    Set objExportFile = ThisDrawing.Application.Documents. _
    Open(strTempPath)
    With objExportFile
        .SaveAs ThisDrawing.Path & "\" & TextBox.Text , acR18_dxf
        .Close
    End With

    Set objExportFile = Nothing
    SSet.Delete

End If

'--WBlock einfügen und sprengen--!!!
Dim Path As String
Path = """" & (Replace(strTempPath, "\", "/")) & """"
ThisDrawing.SendCommand "(blockin " & Path & ")" & vbCr

---

Vielen Dank im Voraus.

------------------
Gruß

Dirk

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

kannst Du leider nicht, 2 Abhilfevarianten:

a) zuerst die Geometrie im Modellbereich zurechtschieben/drehen/..., damit der Punkt (WCS) 0,0,0 in bezug zu Deiner Geometrie den Basispunkt ergibt.

b) erst WBLOCK, dann die Zeichnung, die mittels WBLOCK erstellt wurde, öffnen, dann entweder
b1) die Geometrie hier zurechtrücken - oder
b2) die Variable INSBASE setzen, damit wird der Basispunkt für diese DWG definiert.

- alfred -

------------------
www.hollaus.at