---

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

---

Hallo GeorgK,

das Einfügen sollte problemlos funktionieren, das Bewegen am Cursor ist da schon schwieriger. Das geht über UF_UI_Specify_screen_position zusammen mit dem sog. MotionCallback. Beispiele hierzu gibt's lokal unter UGOpen oder auf GTAC.

Gruß, Michael

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

---

Hallo Michael,

vielen Dank für den Tipp. Es gibt da zwar einige Beispiele. Leider bekomme ich es damit nicht zum laufen.

Georg

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