Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Inventor VBA
  Maß automatisch fangen

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
Autor Thema:  Maß automatisch fangen (530 mal gelesen)
Mignon
Mitglied
Student


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

Beiträge: 43
Registriert: 10.12.2015

Inventor Prof. 2015
Windows 7, 64 bit

erstellt am: 22. Jan. 2016 08:34    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 @all

In meinem Programm habe ich zuerst ein Maß makiert, dass ich dann auslesen, damit etwas rechne und anschließend das an die Bauteilkante ansetzte, von der ich zuvor das Maß entnommen habe.

Wie schaffe ich es, dass er mir automatisch von der Makierung auf die Bauteilkante "springt", ohne, dass ich da zwischen durch in der Zeichnung die Bauteilkante anwählen muss?

LG M

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

DanSolo
Mitglied
TZ, MB Tech., Student

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

Beiträge: 5
Registriert: 01.03.2016

erstellt am: 01. Mrz. 2016 08:51    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 Mignon 10 Unities + Antwort hilfreich

Du willst also die Bauteilkanten von dem Maß auslesen und die automatisch selektieren? Versteh ich das richtig? Und von welcher Umgebung reden wir hier? Skizze in idw iam ipt ... oder einer Zeichnung?

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

Mignon
Mitglied
Student


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

Beiträge: 43
Registriert: 10.12.2015

Inventor Prof. 2015
Windows 7, 64 bit

erstellt am: 03. Mrz. 2016 09:50    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

Genau das meine ich. Umgebung ist .idw

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



Berechnungsingenieur (w/m/d) an dem Standort Pulheim

WEBER Engineering ist ein erfolgreich wachsendes Unter­nehmen innerhalb der WEBER-Gruppe mit umfassendem Know-how in Planung, Bau und Optimierung von Industrieanlagen. Die WEBER-Gruppe beschäftigt 2.000 Mitarbeiter und gehört zu den führenden Anbietern von industriel­len Dienstleistungen.

Unsere Kunden sind in der chemischen und petrochemischen Industrie, in der Öl- und ...

Anzeige ansehenMaschinenbau
DanSolo
Mitglied
TZ, MB Tech., Student

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

Beiträge: 5
Registriert: 01.03.2016

erstellt am: 03. Mrz. 2016 10:47    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 Mignon 10 Unities + Antwort hilfreich

So, das funktioniert jetzt für Lineare Maße, also keine Winkelbemaßung etc.
Bei Bedarf kannst es ja noch erweitern.

Sub Selektieren()

Dim odoc As Document
Set odoc = ThisApplication.ActiveDocument

If odoc.DocumentType <> kDrawingDocumentObject Then
    MsgBox "Dieses Makro kann nur in Zeichnungen angewendet werden"
    Exit Sub
End If

Dim oDrawdoc As DrawingDocument
Dim oselect As SelectSet
Dim oLine As ObjectCollection
Dim oDimension As LinearGeneralDimension
Set oLine = ThisApplication.TransientObjects.CreateObjectCollection

Set oDrawdoc = odoc
Set oselect = oDrawdoc.SelectSet
For i = 1 To oselect.Count
    If oselect.Item(i).Type = kLinearGeneralDimensionObject Then
        Set oDimension = oselect.Item(i)
        Call oLine.Add(oDimension.IntentOne.Geometry.Segments.Item(1))
        Call oLine.Add(oDimension.IntentTwo.Geometry.Segments.Item(1))
    End If
Next

oDrawdoc.SelectSet.Clear
Call oDrawdoc.SelectSet.SelectMultiple(oLine)


End Sub

Grüße DanSolo

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)2023 CAD.de | Impressum | Datenschutz