---

MyTools.txt

Hallo,

  ich versuche mittels VBA im ADT2004 eine Decke zu erzeugen. Da das Objekt AecSlab keine Eigenschaften für die Eckpunkte einer Decke hat, wollte ich es über die SendCommand Funktion machen. Hier mal ein Beispielcode:

Public Sub test_slab()
   
    Dim pickpolyline As AcadLWPolyline
   
    ThisDrawing.Utility.GetEntity pickpolyline, pickpnt, "Polylinie wählen"
    coord = pickpolyline.Coordinates
    pickpolyline.Delete
   
    ThisDrawing.SendCommand "SlabAdd"
    ThisDrawing.SendCommand vbCr

    For i = 0 To (UBound(coord) - 2) Step 2
        ThisDrawing.SendCommand MyTools.ErsetzeKomma(CStr(coord(i)))  & "," & _
                                MyTools.ErsetzeKomma(CStr(coord(i + 1)))
        ThisDrawing.SendCommand vbCr
    Next
   
    ThisDrawing.SendCommand "s "
    ThisDrawing.SendCommand vbCr
   
End Sub

Zum Testen liefert mir die gewählte Polylinie erstmal die Koordinaten. Nach dem Aufruf von "SlabAdd" bleibt das Makro allerdings stehen, und Autocad erwartet eine Nutzereingabe von mir. Erst wenn ich die Funktion abbreche oder Enter drücke folgt der Rest des Makros.
Kann sich jemand erklären woran das liegt, oder hat jemand eine andere Idee wie ich eine Decke erzeugen kann?

PS.: Die Prozedur myTools.ErsetzeKomma ersetzt in einem String Kommas durch Punkte. Das Modul myTools liegt im Anhang. Vieleicht kann ja jemand meine kleinen Helferlein gebrauchen 

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

---

Hi job,

'ne Decke bekommste schonmal so *gg* ;-)
Krux an der Sache ist, dass ich auch noch nicht dahintergestiegen bin,
wie man dem Dingens paar Stützpunkte mit auf dem Weg gibt.
Er scheint bei der Methode irgendwelche starren Standardeinstellungen zu nehmen.
Irgendwo in der Hilfe fand ich sogar 'nen verlinkten Punkt, der hiess: 'understanding slabs'
nur eben - naja, beim Draufklicken blieb der leer ...

Code:

---

Sub x()
  Dim slab As AecSlab
  Set slab = ThisDrawing.ModelSpace.AddCustomObject("AecSlab")
  ZoomExtents
End Sub

---

Egal, wenn Du eh' mit sendcommand und ner Pline was machen möchtest,
warum nicht gleich SLABCONVERT?
Wobei die vbcr's oder auch sendkeys gehorchen mir ebenso nicht ;-)

Code:

---

Public Sub test_slab()
    Dim i
    ThisDrawing.SendCommand "_AecSlabConvert"
'    For i = 1 To 5
'      SendKeys "{enter}"
'    Next
End Sub

---

Gruss Nancy 

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

---

Klasse! Danke Nancy, aecslabconvert funktioniert. Über sendcommand kann ich ja einen Punkt meiner PLine als Position der Polylinie senden und diese damit auswählen.

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