Guten Tag,
kurze Frage ...
Wie kann man abfragen, ob ein invisible geöffnetes Bauteil eine Abwicklung (Flatpattern) enthält? Ich bekomme es einfach nicht auf die Reihe.
Ich habe diesen Codeschnipsel von einem Forumsteilnehmer verwendet.
Enthält das Bauteil keine Abwicklung kommt Laufzeitfehler 91, trotz .. . resume next
Dim oCD As SheetMetalComponentDefinition
Set oCD = oDoc.ComponentDefinition
Dim oFP As FlatPattern
Set oFP = oCD.FlatPattern
Dim dimX, dimY, dimZ As Double
On Error Resume Next
dimX = Round((oFP.Body.RangeBox.MaxPoint.X ... -> Laufzeitfehler 91
Gibt es eine Erklärung für das nicht mögliche umbenennen können einer Skizze auf einer Zeichnung?
...
Dim osketch As Sketch
Set osketch = oDrawDoc.ActiveSheet.Sketches.Add
osketch.Name = "Test"
osketch.Edit
...
------------------
mfg
Patrick
EINFACH sein, einfach SEIN!
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP