---

Hi Forum,
mit dem befehl sendcommand setzte ich einen trimmbefehl ab.

ThisDrawing.SendCommand "_trim" & vbCr & P2 & "," & P4 & vbCr & "z" & _
vbCr & P1b & "," & P2b & vbCr & P3b & "," & P4b & vbCr & P5b & "," & _
P6b & vbCr & P7b & "," & P8b & vbCr & P1b & "," & P9b & vbCr & vbCr & vbCr

------------------

Bernd

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

---

upps ..versehentlich auf speichern statt auf vorschau geklickt.

also..obiger befehl funktioniert so wunderbar, wenn ich ihn direkt im autocad eingebe (statt der punkte p1b-P8b natürlich direktes anklicken der punkte)
die anzahl und reihenfolge der vbCr stimmen auch....trotzdem führt VBA diesen BEfehl nicht durch...es wird nicht getrimmt.
Woran kann das liegen?

------------------

Bernd

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

---

Vieleicht daran, das du die Punkte anders Acad übergeben mußt.
P1 wäre dann --> P1(0) & "," & P1(1) & "," & P1(2)

Probier es doch einmal, bin gespannt ob es dann funktioniert.

------------------
Roland

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

---

Danke, aber das ist es nicht.
der sendcommand-befehl will nen string... ich mußte sogar rPoint(0), rPoint(1) (also die Koordinate des eigentlichen Punktes) welche blöderweise eine Zahl mit Komma zurückgibt (warum eigentlich?) so umwandeln, daß ich einen Sting mit "." bekam. (also P1b, P2b...die Benennung ist nicht konsequent durchdacht daher vielleicht verwirrend)

Der sendcommand befehl (wie schon gepostet) funktioniert auch soweit, wenn ich die drei letzten vbCr weglasse, ein exit sub setzte und dann die restlichen eingaben (enter ) händisch mache. Aber genau das will ich ja nicht. bzw will nicht, daß meine anwender das machen müssen (außerdem gehts im makro ja auch noch weiter).

------------------

Bernd

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