---

hallo zu allen, bin ich in VBA für AutoCAD neu, und bin, nach einem Code suchend, den Einsatz ein Blocksenkrechtes zu einem polyline erlaubt? getan zu werden ist möglich? jemand hat den Code? Dank für alles

P.D. Mein Deutsches schlecht entschuldigen

------------------
Roddy

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

---

Herzlich Willkommen!

willst du einen Block per Makro so drehen lassen dass er senkrecht zu einer Linie steht?

Da hätt ich dann was.

Code:

---

Public wink

Sub blocktoline()
If wink = "" Then wink = 90
On Error GoTo ENDE
Dim isse As AcadSelectionSet
Dim bl As AcadBlockReference
Dim altwink As String
origwin = ThisDrawing.Utility.GetAngle(, "Vorgabewinkel")
altwink = wink
wink = ThisDrawing.Utility.GetString(False, "In welchem Winkel soll der Block dazu stehen? <" & wink & ">:")
If wink = "" Then wink = altwink
On Error Resume Next
ThisDrawing.SelectionSets("dies").Delete
On Error GoTo ENDE
Set isse = ThisDrawing.SelectionSets.Add("dies")
isse.SelectOnScreen
For Each bl In isse
  bl.Rotation = origwin + ThisDrawing.Utility.AngleToReal(wink,acDegrees)
  DoEvents
Next bl
ENDE:
End Sub

---

Mfg Andreas

------------------
Gruß Andreas

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

---

hallo Dank für deine Antwort,
was ich benötige, ist, was ich dir im Diagramm das heißt zeige,
http://www25.brinkster.com/roddydz/grafico_perpendicular_bloque.jpg

daß der Block automatisch auf 90°

sitzt Dank für dein Hilfsmittel

------------------
Roddy

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

---

hallo Dank für deine Antwort,
was ich benötige, ist, was ich dir im Diagramm das heißt zeige,
http://www25.brinkster.com/roddydz/grafico_perpendicular_bloque.jpg

daß der Block automatisch auf 90°

sitzt Dank für dein Hilfsmittel

------------------
Roddy

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

---

Einen Block senkrecht zu einem Objekt ausrichten kann man ab AutoCAD 2006 mit Bordmitteln, indem man aus dem Block einen "dynamischen" Block macht und einfach einen Ausrichteparameter hinzufügt - da muss nichts programmiert werden.

------------------
Mit freundlichem Gruß

Udo Hübner

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

---

und wenn ich eine vorhergehende Version habe und wünschen, „userform“ für Eingang von Attributen zu benutzen? ein benimmt sich Gleichgestelltes?

------------------
Roddy

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

---

Hi, entschuldiung dass ich das fragen muss, aber ich verstehe den letzten Satz nicht.

Wie wäre es mit Englisch, vielleicht klappt das besser.

Das Makro das ich vorher gepostet hat frägt nach 2 Punkten (Start- und Endpunkt der Linie) die die Richtung der Linie oder Polylinie bestimmen und dreht den Block so dass er in einem bestimmten Winkel (also senkrecht wenn du 90° eingibst) zu dieser Linie / Polylinie steht.

Ist das nicht das was du am Anfang beschrieben hast?

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

Hi, sorry i have to ask this, but i do not understand your last sentence.

If it is better for you, we could propably talk English!

The VBA-code i postet previously asks you for 2 Points (the Start and the Endpoint of the Line) which are defining the direction of your line or polyline. It then rotates the Block matching to the angle, between the line and the block, which you have defined before. So if you type 90, your block will be rotated to be perpendicular to the line or polyline.

Isn't it the thing you have described at the top of the site?

------------------
Gruß Andreas

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