Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  AutoCAD VBA
  DXF-Code von MLEADER

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
  
Request a special discount on NVIDIA RTX 5000 Ada Generation GPU !, eine Pressemitteilung
Autor Thema:  DXF-Code von MLEADER (370 / mal gelesen)
otm
Mitglied
Bauingenieur


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

Beiträge: 190
Registriert: 26.08.2009

MS Win 10
AutoCAD Civil 3D 2023.2.1 Update
VBA Enabler 2019
MS Access Database Enginge X64
MSO 365 (64bit)

erstellt am: 05. Okt. 2023 21:55    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

Liebes Forum,

nach dem Durchlesen der DXF-Referenz bin ich nicht viel schlauer als vorher.

Wie lautet der DXF-Code den ich in einen Auswahlfilter eintragen muss, wenn ich unter anderem MULTILEADER auswählen möchte?

Folgendes habe ich:

Code:

        ReDim FilterType(7) As Integer
        ReDim FilterData(7) As Variant
        FilterType(0) = -4            'Bedingung
        FilterData(0) = "<AND"        'Liste Anfang
        FilterType(1) = 410            'Filter ob Modell oder Layout
        FilterData(1) = "Model"        '0=Model; 1=Papierbereich
        FilterType(2) = 8              'Filter nach Layern
        FilterData(2) = strLay        'Layernamen mit Komma getrennt
        FilterType(3) = -4            'Bedingung
        FilterData(3) = "<OR"          'Liste Anfang
        FilterType(4) = 0              'Filter nach Objekten. 2 wäre der Blockname
        FilterData(4) = "INSERT"      'Blöcke
        FilterType(5) = 0              'Filter nach Objekten
        FilterData(5) = "MLEADER"      'Multiführungslinien
        FilterType(6) = -4            'Bedingung
        FilterData(6) = "OR>"          'Liste Ende
        FilterType(7) = -4            'Bedingung
        FilterData(7) = "AND>"        'Layernamen als String (Liste) Ende


Die Multiführungslinie enthält einen Block. Vielleicht ist das noch wichtig?

------------------
Grüße aus München
Christian

[Diese Nachricht wurde von otm am 05. Okt. 2023 editiert.]

[Diese Nachricht wurde von otm am 05. Okt. 2023 editiert.]

[Diese Nachricht wurde von otm am 05. Okt. 2023 editiert.]

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

cadffm
Ehrenmitglied V.I.P. h.c.
良い精神



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

Beiträge: 22298
Registriert: 03.06.2002

System: F1
und Google

erstellt am: 06. Okt. 2023 08:23    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 otm 10 Unities + Antwort hilfreich

Moin,


es gibt kein Objekt "MLEADER" oder "MFÜHRUNG", da sollte man die FEEDBACK Möglichkeit der Hilfe nutzen..
und wenn das alle machen würden, dann hätten wir das Jahr(zehnt)e lang bestehende Problem längst vom Tisch.


Auch wenn du sowas recht sicher seit 26.08.2009 irgendwann schon mal getan hast,
hau dir das mal in deine acaddoc.lsp und wende es an.
Der Befehl DXFdata listet dir die AutoLisp-Objektdaten auf,
welche du ja wissen möchtest und welche zu 99.99% den DXF-Daten des Objektes entsprechen.

Code:

(defun c:DXFdata ()
  (foreach i (entget(car(entsel))'("*")) (print i))
(princ)
)


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

otm
Mitglied
Bauingenieur


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

Beiträge: 190
Registriert: 26.08.2009

MS Win 10
AutoCAD Civil 3D 2023.2.1 Update
VBA Enabler 2019
MS Access Database Enginge X64
MSO 365 (64bit)

erstellt am: 06. Okt. 2023 11:37    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

Vielen Dank.
Ich werde die Feedback-Funktion nutzen und das mal anmerken.

Und danke für die Lisp-Hilfe.

------------------
Grüße aus München
Christian

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

CAD-Huebner
Ehrenmitglied V.I.P. h.c.
Verm.- Ing., ATC-Trainer



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

Beiträge: 9803
Registriert: 01.12.2003

AutoCAD 2.5 - 2022, LDD, MDT, RD, ADT, Civil
Inventor AIP 4-11, 2008 -2022
Win 10

erstellt am: 07. Okt. 2023 18:25    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 otm 10 Unities + Antwort hilfreich

Da es LEADER und MULTILEADER gibt, würde ich als Filter dann
"LEADER,MULTILEADER" oder einfach
"*LEADER" verwenden.


------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

otm
Mitglied
Bauingenieur


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

Beiträge: 190
Registriert: 26.08.2009

MS Win 10
AutoCAD Civil 3D 2023.2.1 Update
VBA Enabler 2019
MS Access Database Enginge X64
MSO 365 (64bit)

erstellt am: 09. Okt. 2023 07: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

Hallo Udo,

danke für den Hinweis.

------------------
Grüße aus München
Christian

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