Hallo zusammen,
gibt es eine Möglichkeit ein Oberflächensymbol z.B. über ein Journal einzufügen? Dieses sollte dann an der Maus hängen und entsprechend gesetzt werden können.
'----------------------------------------------------------------------
' DFT: Create a SurfaceFinishSymbol on a specific x,y-position of the
' Drawing sheet. In practice you will probably create the symbol
' attached to some geometry in a view!!
'----------------------------------------------------------------------
Const x = 0.5
Const y = 0.3
Dim objDoc As DraftDocument = objApp.ActiveDocument
Dim objSheet As Sheet = objDoc.ActiveSheet
' Create a point at a specific position in order to attach the symbol to it
Dim objPnt As Point2d = objSheet.Points2d.Add(x, y)
Dim objSFSymbols As SurfaceFinishSymbols = objSheet.SurfaceFinishSymbols
Dim objSFSymbol As SurfaceFinishSymbol = objSFSymbols.AddByTerminator(objPnt, 0, 0, 0, True)
If objSFSymbol IsNot Nothing Then
objSFSymbol.BreakLine = True
objSFSymbol.AddVertex(x + 0.01, y + 0.01, 0)
objSFSymbol.SurfaceFinishSymbol = DimSurfTextureSymTypeConstants.igDimSurfaceFinishBasic
End If
Vielen Dank.
Georg
[Diese Nachricht wurde von GeorgK am 05. Aug. 2016 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP