---

Hallo Forumianer,

nachdem ich endlich mein Modell soweit fertig habe, möchte jetzt zu mindest die Grundansichten automatisch in einem DrawingDocument erstellen lassen.

Wie ich Zeichnungsrahmen, Schriftfelder und die Erstansicht per API erstelle weiß ich inzwischen. Was ich allerdings noch nicht herausgefunden habe ist, wie ich parallele Ansichten per API erzeuge.
Bin mir nicht einmal sicher, wie der Befehel "parallele Ansicht" auf englisch heißt.

Kann mir da jemand weiterhelfen und mir vielleicht den Befehl zum erzeugen von parallelen Ansichten, wie beim manuellen Arbeiten, sagen?

Wäre echt dankbar, da ich momentan ziemlich aufm Schlauch stehe.

Einen heißen Bürotag (für alle die keine Klimaanlage haben, wie ich) wünscht

MrAnderson alias René

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

---

CreateIDW.JPG

Hallo Rene,

mit ein paar Anpassungen sollte der Code funktionieren.

Ich hab noch eine Form auf der ich verschiedene Einstellungen für die Zeichnung mache, siehe Bild.

Code:

---

Function oViewAdd()

Set oIDW = ThisApplication.Documents.Add(kDrawingDocumentObject, temp_str)

Dim oopt As Control
Dim ostab As Double
Dim oStyle As Long

For Each oopt In frmIDW.Frame_maßstab.Controls

If oopt.Value = True Then
ostab = Val(oopt.Tag)
End If

Next oopt

For Each oopt In frmIDW.Frame_Style.Controls

If oopt.Value = True Then
oStyle = Val(oopt.Tag)
Else: oStyle = frmIDW.Frame_Style.optVis.Tag

End If

Next oopt

Set osheet = oIDW.ActiveSheet

osheet.Size = osheet_str
osheet.Orientation = oorient

osheet.Border.Delete

osheet.AddBorder (osize_str)

Set otg = ThisApplication.TransientGeometry

opointx = osheet.Width / 2
opointy = osheet.height / 2

Set opoint = otg.CreatePoint2d(opointx, opointy)

Set oview = osheet.DrawingViews.AddBaseView(odoc, opoint, ostab, kCurrentViewOrientation, oStyle)

If frmIDW.but_li.Value = True Then

Set opoint = otg.CreatePoint2d(opointx - opointx * 0.9, opointy)
Set oview2 = osheet.DrawingViews.AddProjectedView(oview, opoint, oStyle)

End If

If frmIDW.but_re.Value = True Then

Set opoint = otg.CreatePoint2d(opointx + opointx * 0.9, opointy)
Set oview2 = osheet.DrawingViews.AddProjectedView(oview, opoint, oStyle)

End If

If frmIDW.but_ob.Value = True Then

Set opoint = otg.CreatePoint2d(opointx, opointy + opointy * 0.9)
Set oview2 = osheet.DrawingViews.AddProjectedView(oview, opoint, oStyle)

End If

If frmIDW.but_un.Value = True Then

Set opoint = otg.CreatePoint2d(opointx, opointy - opointy * 0.9)
Set oview2 = osheet.DrawingViews.AddProjectedView(oview, opoint, oStyle)

End If

If frmIDW.but_iso.Value = True Then

Set opoint = otg.CreatePoint2d(opointx / 5, opointy / 5)
Set oview2 = osheet.DrawingViews.AddProjectedView(oview, opoint, kShadedDrawingViewStyle, ostab / 2)

End If

End Function

---

Gruß
Reinhard

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

---

Hi,

vielen Dank für den Code, dein Programm sieht echt nicht schlecht aus.

Was mir nicht klar war ist, dass man parallele Ansichten über kProjectView und dann über die Position der Ansicht steuert.

Aber das weiß ich ja jetzt.

Also einen schönen Tag noch.

MrAnderson alias René

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