---

Hallo Leute

Ich versuche per Makro ein neues Blatt in einer Zeichnung zu erstellen.

Dazu habe ich die Vorgehensweise aufgezeichnet.
Beim Ausführen bekomme ich allerdings einen Laufzeitfehler

-Laufzeitfehler 450-
-Falsche Anzahl an Argumenten oder ungültige Zuweisung zu einer Eigenschaft-

Hier das Makro...
Option Explicit

Dim swApp As Object
Dim Part As Object
Dim SelMgr As Object
Dim WertDerEigenschaft As String
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim Feature As Object

Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
Part.NewSheet3 "DXF", 12, 12, 1, 1, True, "V:\Solidworks\Dokumentvorlagen\Schroeder\a3 - quer.slddrt", 0.42, 0.297, "Standard", False
End Sub

Kann mir da jemand helfen.

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

---

Hallo,

DrawingDoc::NewSheet3

Description

This method creates a new drawing sheet in this drawing.

Syntax (OLE Automation)

retval = DrawingDoc.NewSheet3 ( name, paperSize, templateIn, scale1, scale2, firstAngle, templateName, width, height, propertyViewName )

Input:
(BSTR) name
Name to be given to the new drawing sheet

Input:
(short) paperSize
Size of paper if using swDwgTemplateNone as defined in swDwgPaperSizes_e

Input:
(short) templateIn
Template index as defined in swDwgTemplates_e

Input:
(double) scale1
Scale numerator

Input:
(double) scale2
Scale denominator

Input:
(BOOL) firstAngle
TRUE for first angle projection, FALSE otherwise

Input:
(BSTR) templateName
Name of custom template with full directory path if templateIn is set to swDwgTemplateCustom

Input:
(double) width
Paper width if templateIn is set to swDwgTemplateNone or swDwgPapersUserDefined

Input:
(double) height
Paper height if templateIn is set to swDwgTemplateNone or swDwgPapersUserDefined

Input:
(BSTR) propertyViewName
Name of the drawing view containing the model to get custom property values from

Return:
(BOOL) retval
TRUE drawing sheet creation was successful, FALSE if not

Syntax (COM)

status = DrawingDoc->NewSheet3 ( name, paperSize, templateIn, scale1, scale2, firstAngle, templateName, width, height, propertyViewName, &retval )

Input:
(BSTR) name
Name to be given to the new drawing sheet

Input:
(short) paperSize
Size of paper if using swDwgTemplateNone as defined in swDwgPaperSizes_e

Input:
(short) templateIn
Template index as defined in swDwgTemplates_e

Input:
(double) scale1
Scale numerator

Input:
(double) scale2
Scale denominator

Input:
(VARIANT_BOOL) firstAngle
TRUE for first angle projection, FALSE otherwise

Input:
(BSTR) templateName
Name of custom template with full directory path if templateIn is set to swDwgTemplateCustom

Input:
(double) width
Paper width if templateIn is set to swDwgTemplateNone or swDwgPapersUserDefined

Input:
(double) height
Paper height if templateIn is set to swDwgTemplateNone and swDwgPapersUserDefined

Input:
(BSTR) propertyViewName
Name of drawing view containing the model to get custom property values from

Output:
(VARIANT_BOOL) retval
TRUE if successful, FALSE if not

Return:
(HRESULT) status
S_OK if successful

Es ist genau das was die Fehlermeldung sagt, es werden 10 Argumente verlangt, Du übergibts aber 11. 

Gruß HaPe

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

---

Vielen Dank für die schnelle Antwort.

So funktioniert das auch, allerdings habe ich immer den Zeichnungsrahmen samt Schriftfeld mit im neuen Blatt.

-Dies darf aber nicht sein-

Warscheinlich ist genau das der 11te Parameter, der im Makro aufgezeichnet ist.

Hast Du dafür auch noch eine Lösung, oder muß ich eine neue leere Vorlage dafür nutzen?

Thanx

Dirk Schröder

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

---

Erstelle doch eine neue (leere!) Vorlage, anstelle der "V:\Solidworks\Dokumentvorlagen\Schroeder\a3 - quer.slddrt" z.B. "V:\Solidworks\Dokumentvorlagen\Schroeder\a3 - quer-LEER.slddrt"

So solltest Du ein Problem weniger haben.

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

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