---

Hallo.

Ich versuche mir einen simplen Symbolmanager zu basteln. Soweit funktioniert es auch. Aber den einen Schönheitsfehler bekomme ich nicht weg :/ Ich hätte gerne beim einfügen einer Blockdatei, dass die Position und Drehung am Bildschirm bestimmt werden können und der Block sichtbar am Fadenkreuz hängt. So ähnlich wie wenn man es manuell machen würde und die passenden Hacken setzt.

Mein Code sieht bis jetzt so aus:

Code:

---

Public Sub insert_Absperrarmatur()

' Insert the block
    Dim blockRefObj As AcadBlockReference
    Dim InsertionPoint As Variant
    Dim Name As String
    Dim Xscale As Double
    Dim Yscale As Double
    Dim Zscale As Double
    Dim Rotation As Double
   
    InsertionPoint = ThisDrawing.Utility.GetPoint(, "Einfügebpunkt:")
    Name = "C:\_IHTS-LOKAL\IHTS-Symbolmanager\Blockbibliothek\Armaturen\Absperrarmatur.dwg"
    Xscale = 1
    Yscale = 1
    Zscale = 1
    Rotation = 0
   
    Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(InsertionPoint, Name, Xscale, Yscale, Zscale, Rotation)

End Sub

---

Bei Rotation habe ich es auch bereits mittels Rotaion = ThisDrawing.Utility.GetAngle(, "Einfügewinkel:") versucht. Klappt zwar, aber man sieht den Block nicht am Fadenkreuz hängen =(

Für einen kleinen Tip wie ich das bewerkstellige wäre ich seeehr dankbar!

Grüsse und Gute Woche

Pantan

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

---

Kein Tip wie das am einfachsten gehen könnte?  Mir kam der Gedanke, dass ich den Block einfach vorerst auf 0,0,0 setze und dann einfach erneut greifen lasse mit einem move und einem drehen. Sollte doch eigentlich gehen oder?

Grüsse

Pantan

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

---

Das würde gehen, aber wenn du sowieso die gesamte Funktionalität des INSERT Befehls haben möchtest, warum nutzt du ihn dann nicht auch ?
Er ist von der Firma AutoDesk bereits fertig programmiert in der Software implementiert 

------------------
Link: User:FAQ (einiges Wissenswertes über AutoCAD)

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

---

Ohh mann.. weil ich blutiger Anfänger bin und darauf gar nicht erst gekommen bin. Damit ich es richtig verstehe, einfach ein "Insert Makro" verbauen meinst Du oder? Mal gucken ob ich das auch hinbekomme. Ich glaube ich schulde Dir ein grosses Bier!

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

---

Schau dir das mal an (und weitere Treffer im Forum) :
http://ww3.cad.de/foren/ubb/Forum259/HTML/001332.shtml

------------------
Link: User:FAQ (einiges Wissenswertes über AutoCAD)

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

---

Danke!! Komisch das ich das nicht gefunden hatte mit der Suchfunktion. Die Wortwahl macht es wohl aus. Jetzt bekommst Du schon zwei Bier von mir! 

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