hallo liebe CAD Gemeinde, ich finde das gebündelte fachwissen in diesem forum echt beeindruckend. vorallem die VBA-themen sind sehr interessant.
ich hab mich etwas eingelesen und stolpere aber gleich am anfang
ich hab eine userform erstellt für 3 buttons "Ra 1,6" , "Ra 3,2" , "Ra 6,3".
und wollte erreichen das per klick ...das fenster für oberflächenangaben aufgeht und je nach bedarf schon die richtige drinn steht.
Public Sub Oberfläche()
Dim oDrawDoc As DrawingDocument
Set oDrawDoc = ThisApplication.ActiveDocument
Dim oSelectSet As SelectSet
Set oSelectSet = oDrawDoc.SelectSet
oDrawDoc.ActiveSheet.SurfaceTextureSymbols.Add(LeaderPionts As ObjectCollection, kMaterialRemovalProhibitedSurfaceType,[MaximumRoughness As String],kJoinOperation)
End Sub
ist zwar noch etwas wenig... aber ich möchte mich auch gerne noch selbst reindenken. also ehm wenn jemand helfen kann dann erst mal nur die halbe wahrheit ich muss da noch was zum basteln haben
ein problem hab ich allerdings bei der MaximumRoughness wie ich da die Ra "6,3" reinbekomm.
vielen herzlichen dank
------------------
Die Schwerkraft ist nur eine Option.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP