---

Hallo an alle,

da ich hier und in der Programierung ziemlich neu bin, suche ich auf diesen weg Hilfe.

Ich möchte einen Punkt selektieren durch eine UserSelection und den Punkt dann für ein Sphere weiterbenutzen. Habe auch schon einen Code geschrieben aber ich wei nicht wo der Fehler liegt. Vielleicht kann mir ja hier jemand helfen.

  Dim UserSel As Selection
  Set UserSel= CATIA.ActiveDocument.Selection
  UserSel.Clear

' Selektion vornehmen lassen --------------------------------------

  Dim E As CATBSTR
  E = UserSel.SelectElement2(Was, "Point oder Intersect", False)

  If E = "Normal" Then

Dim swp2 As  HybridShapeSphere
Set swp2 = Wzk3D.AddNewSphere (SelectElement2, Nothing, 20.000000, -45.000000, 45.000000, 0.000000, 180.000000)

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

---

Hallo Habe es durch viel Probieren dann selber geschafft..

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