| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| | |
 | PNY präsentiert die neue NVIDIA RTX A400 und die A1000 Grafikkarte, eine Pressemitteilung
|
|
Autor
|
Thema: Skizze beenden verursacht Absturz (723 mal gelesen)
|
Denk75
Mitglied
Konstrukteur
   Beiträge: 76
Registriert: 05.04.2005
|
erstellt am: 05. Dez. 2015 12:10  <-- editieren / zitieren -->   Unities abgeben:          
Hallo, ich bin immer noch dabei einen Firmen spezifischen Bohrdialog zu gestallten und komm auch gut voran. Da ich auf meinen Beitrag zum Thema Senkung noch nicht die gewünschte Antwort bekommen habe möchte ich hier noch ein zweites Problem erfragen.
Wenn ich über unten angehängte Zeile eine Skizze beenden möchte, Stütz Inventor ab. Was mach ich falsch? If TypeOf ThisApplication.ActiveEditObject Is Sketch Then sk.ExitEdit Gruß Jürgen Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Ex-Mitglied
|
erstellt am: 05. Dez. 2015 19:53
- Inhaltsloser Beitrag - |
Denk75
Mitglied
Konstrukteur
Beiträge: 76
Registriert: 05.04.2005 Solidworks Premium 2021 SP2.0
Solidworks PDM Profesisional
|
erstellt am: 07. Dez. 2015 07:00 <-- editieren / zitieren --> Unities abgeben:
Hallo Jürgen, danke für deine Nachfrage. Wenn ich Absturz meine, dann so dass ich noch einen Bericht senden kann aber keine Fehlermeldung bekommen. Hört sich so an als ob die Zeile eigentlich funktionieren müsste.
Ich werde es nochmal testen. Gruß Jürgen Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| | Anzeige: | Infos zum Werbeplatz >> | GeoTools CAD APP für Tiefbau, Facility Management, GIS, Vermessung und Kartografie GeoTools is a geo-data application that is useful to view, create, modify, analyze and report on CAD data that is geographic in nature. Useful for GIS data creation, surveying, mapping, facilities management, infrastructure, landscape development, city planning or similar, workflows.
|
|
Denk75
Mitglied
Konstrukteur
Beiträge: 76
Registriert: 05.04.2005
|
erstellt am: 09. Dez. 2015 07:13 <-- editieren / zitieren --> Unities abgeben:
Hallo Jürgen, ich habe es nun nochmal getestet. Der Absturz ist nicht immer zu reproduzieren. Es passiert beim ersten mal sowie auch nach dem fünften mal. Es ist auch nicht vom Rechner abhängig.
Code:
' Set active part document.
Dim oPartDoc As PartDocument
Set oPartDoc = ThisApplication.ActiveEditDocument
' Set a reference to the component definition. Dim oCompDef As PartComponentDefinition
Set oCompDef = oPartDoc.ComponentDefinition
' Set a reference to the transient geometry object.
Dim oTransGeom As TransientGeometry
Set oTransGeom = ThisApplication.TransientGeometry
' Get the sketch
Dim osketch As PlanarSketch
Dim os As Long
Dim oHoleTapInfo As HoleTapInfo
os = oCompDef.Sketches.Count
Set osketch = oCompDef.Sketches.Item(os)
If TypeOf ThisApplication.ActiveEditObject Is Sketch Then osketch.ExitEdit Kannst du da einen Fehler erkennen? Gruß Jürgen
[Diese Nachricht wurde von Denk75 am 09. Dez. 2015 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Foren auf CAD.de
| 
