Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de
  Inventor VBA
  skizziertes Symbol auf inaktives Blatt

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
  
PNY: der unverzichtbare Partner für umfassende KI-Lösungen von Workstations bis zu Edge Computing und KI-Cluster-Bereitstellung, eine Pressemitteilung
Autor Thema:  skizziertes Symbol auf inaktives Blatt (2029 mal gelesen)
rkauskh
Moderator
Dipl.-Ing. (FH) Versorgungstechnik




Sehen Sie sich das Profil von rkauskh an!   Senden Sie eine Private Message an rkauskh  Schreiben Sie einen Gästebucheintrag für rkauskh

Beiträge: 2788
Registriert: 15.11.2006

Windows 10 x64, AIP 2020-2025

erstellt am: 19. Jan. 2011 21:10    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo

Gibt es eine Möglichkeit in Inventor 2011 ein skizziertes Symbol auf ein inaktives Blatt einzufügen?
Ich hab's mal versucht, aber das skizzierte Symbol wird auf dem aktiven Blatt angezeigt. Es taucht im Teilebrowser in der Liste aber nicht in den skizzierten Symbolen des aktiven, sondern des Blattes wo's eigentlich hin soll auf. Speichert man diese IDW kann man sie eigentlich auch gleich in den Müll werfen. Beim Öffnen kommt ein Segmentfehler blablabla.
Den Code dazu habe ich angehängt. Zum Testen müßte ein skizziertes Symbol "Test" erstellt werden.

Code:
Private Sub InsertSketchedSymbol()
   
Dim oDraw As DrawingDocument
Set oDraw = ThisApplication.ActiveDocument

Dim oSheet As Sheet
Dim oSketchedSymbol As SketchedSymbol
Dim oPosition As Point2d

For Each oSheet In oDraw.Sheets
    'oSheet.Activate - Würde ich gern vermeiden, um Zeit zu sparen.
    Call PutNewSymbol(oPosition, oDraw, oSheet)
Next
End Sub

Private Function PutNewSymbol(ByVal oPosition As Point2d, ByVal oDraw As DrawingDocument, ByVal oSheet As Sheet)
    Dim oSymbol As SketchedSymbolDefinition
    Set oSymbol = oDraw.SketchedSymbolDefinitions.Item("Test")
   
    Call oSheet.SketchedSymbols.Add(oSymbol, oPosition)
End Function


------------------
MfG
RK

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

mssoftware
Mitglied
alles mögliche


Sehen Sie sich das Profil von mssoftware an!   Senden Sie eine Private Message an mssoftware  Schreiben Sie einen Gästebucheintrag für mssoftware

Beiträge: 76
Registriert: 15.06.2005

erstellt am: 20. Jan. 2011 11:01    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für rkauskh 10 Unities + Antwort hilfreich

Hallo rkauskh,

ich habe deinen Code mal ausprobiert und musste das gleiche feststellen,
scheint wohl ein API Problem zu sein.
Bei mir taucht allerdings in beiden Blättern das Symbol in dem Baum unter "Skizzierte Symbole" auf, wird in dem inaktivem Blatt allerdings nicht korrekt dargestellt, man sieht nur die grünen Fangpunkte, wenn man es auswählt?? Nach dem speichern kann ich die Zeichnung auch nicht mehr öffnen.

Mußt wohl das Blatt aktivieren, oder wie hast du es jetzt gemacht?

Gruß

Maik Schmitz

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

rkauskh
Moderator
Dipl.-Ing. (FH) Versorgungstechnik




Sehen Sie sich das Profil von rkauskh an!   Senden Sie eine Private Message an rkauskh  Schreiben Sie einen Gästebucheintrag für rkauskh

Beiträge: 2788
Registriert: 15.11.2006

Windows 10 x64, AIP 2020-2025

erstellt am: 20. Jan. 2011 11:36    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo

Ja, ich aktiviere das jeweilige Blatt. Das funktioniert in leeren Test-IDW's auch ganz passabel. Ich fürchte nur, wenn das große Zeichnungsableitungen mit mehreren Ansichten sind, dauert der Blattwechsel unter Umständen sehr lange. Das hätte ich gern vermieden.

Vielleicht wirklich ein Fehler in der API. Ich werde mal Autodesk fragen.

------------------
MfG
RK

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

PaulSchuepbach
Moderator
Programmierer




Sehen Sie sich das Profil von PaulSchuepbach an!   Senden Sie eine Private Message an PaulSchuepbach  Schreiben Sie einen Gästebucheintrag für PaulSchuepbach

Beiträge: 1005
Registriert: 01.10.2003

erstellt am: 20. Jan. 2011 12:49    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für rkauskh 10 Unities + Antwort hilfreich

Zitat:
Original erstellt von rkauskh:
Hallo
...wenn das große Zeichnungsableitungen mit mehreren Ansichten sind, dauert der Blattwechsel unter Umständen sehr lange. Das hätte ich gern vermieden.

Hallo,

ev.:
- Zeichnung unsichtbar öffnen ? --> kein Grafikaufbau
- defer update vorher setzen ? --> keine Aktuakisierungen

HTH

------------------
Grüsse, Paul

Inventor-Programmierung, Inventor-Tools und Inventor API-Schulung

Meine Tochter auf Youtube

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

rkauskh
Moderator
Dipl.-Ing. (FH) Versorgungstechnik




Sehen Sie sich das Profil von rkauskh an!   Senden Sie eine Private Message an rkauskh  Schreiben Sie einen Gästebucheintrag für rkauskh

Beiträge: 2788
Registriert: 15.11.2006

Windows 10 x64, AIP 2020-2025

erstellt am: 20. Jan. 2011 13:07    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo

Unsichtbar öffnen geht leider nicht. Die Zeichnung wird von  einem anderen Programm (ERP-Aufsatz) geöffnet und ich springe nur dazwischen. DeferUpdates muß ich mal testen. Eventuell in Kombination mit ScreenUpdating=False.

------------------
MfG
RK

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

rkauskh
Moderator
Dipl.-Ing. (FH) Versorgungstechnik




Sehen Sie sich das Profil von rkauskh an!   Senden Sie eine Private Message an rkauskh  Schreiben Sie einen Gästebucheintrag für rkauskh

Beiträge: 2788
Registriert: 15.11.2006

Windows 10 x64, AIP 2020-2025

erstellt am: 16. Feb. 2011 22:41    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo

Da Autodesk diesmal leider nicht reagiert hat, hab ich meinen Programmablauf geändert. Es wird nur noch auf's aktive Blatt eingefügt. Zusätzlich sofort beim Erstellen eines neuen Blattes und beim Wechsel des aktiven Blattes. Immer natürlich nur, wenn das Symbol noch nicht da ist. Das paßt dann.

Danke für die Vorschläge. 

------------------
MfG
RK

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

PaulSchuepbach
Moderator
Programmierer




Sehen Sie sich das Profil von PaulSchuepbach an!   Senden Sie eine Private Message an PaulSchuepbach  Schreiben Sie einen Gästebucheintrag für PaulSchuepbach

Beiträge: 1005
Registriert: 01.10.2003

erstellt am: 17. Feb. 2011 11:03    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für rkauskh 10 Unities + Antwort hilfreich

Zitat:
Original erstellt von rkauskh:
Hallo

Da Autodesk diesmal leider nicht reagiert hat...



Wie meinst Du das ???


------------------
Grüsse, Paul

Inventor-Programmierung, Inventor-Tools und Inventor API-Schulung

Meine Tochter auf Youtube

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



Anzeige:Infos zum Werbeplatz >>

Point Cloud Cropping Tools CAD APP für 3D

Streamline your AutoCAD point cloud workflow with precision cropping, advanced sectioning, and multi-cloud support. Designed for engineers and surveyors, PCCTools is built for professionals who value speed, precision, and control in every project

rkauskh
Moderator
Dipl.-Ing. (FH) Versorgungstechnik




Sehen Sie sich das Profil von rkauskh an!   Senden Sie eine Private Message an rkauskh  Schreiben Sie einen Gästebucheintrag für rkauskh

Beiträge: 2788
Registriert: 15.11.2006

Windows 10 x64, AIP 2020-2025

erstellt am: 17. Feb. 2011 11:07    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo

Hab keine Antwort bisher erhalten. Wundert mich ehrlich gesagt auch, weil bisher immer binnen weniger Tage zumindest eine Reaktion erfolgte. Vielleicht ist auch meine Mail verschüttet gegangen.
Wenn ich wieder etwas Muse habe, werde ich vielleicht einen zweiten Anlauf unternehmen.

------------------
MfG
RK

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2025 CAD.de | Impressum | Datenschutz