Dim objApp As SolidEdgeFrameWork.Application
Dim objDoc As SolidEdgeDraft.DraftDocument
Dim objSheet As SolidEdgeDraft.Sheet
Dim objhaths As SolidEdgeFrameWork.HatchPatternStyles
Dim objhath As SolidEdgeFrameWork.HatchPatternStyle
Dim objCircs As SolidEdgeFrameworkSupport.Circles2d
Const PI = 3.14159265358979
' Create/get the application with specific settings
On Error Resume Next
Set objApp = GetObject(, "SolidEdge.Application")
If Err Then
Err.Clear
Set objApp = CreateObject("SolidEdge.Application")
Set objDoc = objApp.Documents.Add("SolidEdge.DraftDocument")
objApp.Visible = True
Else
Set objDoc = objApp.ActiveDocument
End If
Set objSheet = objDoc.ActiveSheet
Set objCircs = objSheet.Circles2d
Call objCircs.AddByCenterRadius(X:=0.1, Y:=0.1, Radius:=0.1)
Set objhaths = objDoc.HatchPatternStyles
Set objhath = objhaths.Add(Name:="Normal", Parent:="DraftDocument")
Call objhath.AddHatch(drotation:=0, dxorigin:=0.1, dyorigin:=0.11, dspacing:=1, dshift:=1, ncolor:=1, dwidth:=1, dashtypename:="Normal")
error!
Please help me!
Thanks!
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP