| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY bietet das umfangreichste Ökosystem von B2B als auch B2C-Lösungen für IT-Akteure auf dem Markt, eine Pressemitteilung
|
Autor
|
Thema: Neuen Layer mit ActiveX erzeugen (1700 mal gelesen)
|
Christoph_W Mitglied Orgelbauer
Beiträge: 11 Registriert: 25.03.2002 AutoCAD 2005, CADiMENU 2005 Athlon 2000XP, 1 GB RAM Plotter HP DesignJet 500
|
erstellt am: 10. Feb. 2005 16:26 <-- editieren / zitieren --> Unities abgeben:
Hallo, Dank Mapcars Seite kann ich erfolgreich Layer über ActiveX erzeugen: z.B. (create-layer "Bohrung_-CNC-" '((Color . 205))). Nun soll dieser Layer aber noch nicht plotbar sein, welches Punktepaar muss ich hier angeben, dass dieser Layer entsprechend erzeigt wird? Ich habe bei Visuallisp keine Angaben gefunden, welche Eigenschaft und welchen Wert ich für nicht plotbar übergeben muss. Danke für euere Hilfe, Gruß Christoph
------------------ Gruss aus LA Christoph Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CAD-Huebner Ehrenmitglied V.I.P. h.c. Verm.- Ing., ATC-Trainer
Beiträge: 9803 Registriert: 01.12.2003 One AutoCAD 2.5 - 2024, AutoCAD, Civil 3D, Win10/Win11
|
erstellt am: 10. Feb. 2005 16:41 <-- editieren / zitieren --> Unities abgeben: Nur für Christoph_W
Ohne zu testen, aber das wirds wohl sein Auszug aus der AutoCAD Hilfedatei Acadauto.chm Code:
Plottable PropertySpecifies if the layer is plottable. See Also | Example Signature object.Plottable object Layer The object or objects this property applies to. Plottable Boolean; read-write TRUE: The layer is plottable. FALSE: The layer is not plottable.
------------------ Mit freundlichem Gruß Udo Hübner ---------- Der versteckte Fehler bleibt nie unentdeckt. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Christoph_W Mitglied Orgelbauer
Beiträge: 11 Registriert: 25.03.2002 AutoCAD 2005, CADiMENU 2005 Athlon 2000XP, 1 GB RAM Plotter HP DesignJet 500
|
erstellt am: 10. Feb. 2005 17:11 <-- editieren / zitieren --> Unities abgeben:
Danke, die Eigenschaft ist jetzt schon richtig, nur sagt mir oben aufgeführte Zeile dann, wenn ich bei Wert 1 oder 0 eintrage: ; Fehler: Keine Umwandlung des lisp-Wertes in VARIANT mit folgendem Typ: (1). Ich habe schon t oder true versucht, dies alles funktioniert nicht. Veileicht gibt es hier noch einen kurzen Tipp! Danke! ------------------ Gruss aus LA Christoph Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
marc.scherer Ehrenmitglied V.I.P. h.c. CAD-Administrator
Beiträge: 2494 Registriert: 02.11.2001 Windows 10 64bit AutoCAD Architecture 2018/2019 (deu/eng) AEC-Collection 2019 (Revit und Zeugs) Wenn sich's nicht vermeiden läßt: D-A-CH Erweiterung (mies implementierter Schrott)
|
erstellt am: 10. Feb. 2005 17:37 <-- editieren / zitieren --> Unities abgeben: Nur für Christoph_W
Hi, an diesen Beispielen: Code:
(vla-put-Plottable (vla-get-ActiveLayer (vla-get-ActiveDocument (vlax-get-acad-object))) :vlax-false)und (vla-put-Plottable (vla-get-ActiveLayer (vla-get-ActiveDocument (vlax-get-acad-object))) :vlax-true)
kannst Du sehen, was von den ActiveX Funktionen als 0 oder 1 erwartet wird... ------------------ Ciao, Marc Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Christoph_W Mitglied Orgelbauer
Beiträge: 11 Registriert: 25.03.2002 AutoCAD 2005, CADiMENU 2005 Athlon 2000XP, 1 GB RAM Plotter HP DesignJet 500
|
erstellt am: 10. Feb. 2005 17:48 <-- editieren / zitieren --> Unities abgeben:
Hi, hier mein Code: ;Eerzeugt einen neuen Layer (defun create-layer (name props / newlayer) (setq newlayer (vla-add (document-layers) name) ) (foreach prop props (vlax-put-property newlayer (car prop) (cdr prop) ) ) newlayer ) ; Gibt die Layer-Collection zurück (defun document-layers (/) (vla-get-layers (current-document) ) ) ; gibt die aktuelle Zeichnung zurück (defun current-document (/) (vla-get-activedocument (vlax-get-acad-object) ) ) Geht dies mit dieser Befehlsfolge vielleicht nicht die Plotbarkeit eines Layers einzustellen? Ich bin scheinbar zu doof dazu. ------------------ Gruss aus LA Christoph Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
marc.scherer Ehrenmitglied V.I.P. h.c. CAD-Administrator
Beiträge: 2494 Registriert: 02.11.2001 Windows 10 64bit AutoCAD Architecture 2018/2019 (deu/eng) AEC-Collection 2019 (Revit und Zeugs) Wenn sich's nicht vermeiden läßt: D-A-CH Erweiterung (mies implementierter Schrott)
|
erstellt am: 10. Feb. 2005 17:56 <-- editieren / zitieren --> Unities abgeben: Nur für Christoph_W
Null Problemo: Code:
(CREATE-LAYER "HaselDasel" '( (COLOR . 7) ;_ Farbe (DESCRIPTION . "Dies ist ein Testlayer") ;_ Beschreibung (FREEZE . :vlax-false) ;_ Gefroren? (LAYERON . :vlax-true) ;_ AN / AUS? (LINETYPE . "Continuous") ;_ Linientyp (LINEWEIGHT . -3) ;_ Linienstärke (LOCK . :vlax-false) ;_ gesperrt? (PLOTTABLE . :vlax-false) ;_ Plotbar? ) )
... ------------------ Ciao, Marc Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Christoph_W Mitglied Orgelbauer
Beiträge: 11 Registriert: 25.03.2002 AutoCAD 2005, CADiMENU 2005 Athlon 2000XP, 1 GB RAM Plotter HP DesignJet 500
|
erstellt am: 10. Feb. 2005 18:09 <-- editieren / zitieren --> Unities abgeben:
|
mkl-cad Mitglied Technischer Zeichner
Beiträge: 378 Registriert: 23.07.2003 ACAD 2002 Express Tools 1-9 Architektural Desktop Windows XP Server Windows 2003 3 GHz Rechner 1 GB RAM 80 GB Festplatte ATI FireGL V3100 2 17" Flachbildschirme
|
erstellt am: 18. Nov. 2005 12:39 <-- editieren / zitieren --> Unities abgeben: Nur für Christoph_W
Hallo Marc, Gibt es hier bei der Layererstellung nicht die Möglichkeit den Plotstilnamen anzugeben? Wie nennt man das dann? Die Plotstildatei braucht nicht angegeben werden die ist schon aktuell. Danke. ------------------ Martin Viele Grüße aus dem schönen Münsterland! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
marc.scherer Ehrenmitglied V.I.P. h.c. CAD-Administrator
Beiträge: 2494 Registriert: 02.11.2001 Windows 10 64bit AutoCAD Architecture 2018/2019 (deu/eng) AEC-Collection 2019 (Revit und Zeugs) Wenn sich's nicht vermeiden läßt: D-A-CH Erweiterung (mies implementierter Schrott)
|
erstellt am: 18. Nov. 2005 13:17 <-- editieren / zitieren --> Unities abgeben: Nur für Christoph_W
Klaro: Code:
(CREATE-LAYER "HaselDasel2" '( (COLOR . 7) ;_ Farbe (DESCRIPTION . "Dies ist ein Testlayer") ;_ Beschreibung (FREEZE . :vlax-false) ;_ Gefroren? (LAYERON . :vlax-true) ;_ AN / AUS? (LINETYPE . "Continuous") ;_ Linientyp (LINEWEIGHT . -3) ;_ Linienstärke (LOCK . :vlax-false) ;_ gesperrt? (PLOTTABLE . :vlax-false) ;_ Plotbar? ;; Plotstil hier > AAAABER: Der muß bereits existieren!!! ;; sonst > ; Fehler: Automatisierungsfehler Schlüssel nicht gefunden (PLOTSTYLENAME . "WuscheligesWiesel") ) )
...------------------ Ciao, Marc [Diese Nachricht wurde von marc.scherer am 19. Nov. 2005 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
mkl-cad Mitglied Technischer Zeichner
Beiträge: 378 Registriert: 23.07.2003 ACAD 2002 Express Tools 1-9 Architektural Desktop Windows XP Server Windows 2003 3 GHz Rechner 1 GB RAM 80 GB Festplatte ATI FireGL V3100 2 17" Flachbildschirme
|
erstellt am: 24. Nov. 2005 12:40 <-- editieren / zitieren --> Unities abgeben: Nur für Christoph_W
Hallo, könnt Ihr mir nochmal helfen. Wie muß ich vorgehen wenn ich das gleiche umgekehrt haben möchte. Soll heißen eine Liste mit allen Layereigenschaften. Habe zwar schon Teillösungen gefunden ohne Reaktoren aber die liefern nicht alles. Danke ------------------ Martin Viele Grüße aus dem schönen Münsterland! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 24. Nov. 2005 12:50 <-- editieren / zitieren --> Unities abgeben: Nur für Christoph_W
z.B. so (ohne Fehlerabfangroutinen ect.) (defun get-layer-props (name props / layer LISTE) (setq LAYER(vla-item (vla-get-layers(vla-get-activedocument(vlax-get-acad-object)))NAME)) (foreach prop props (setq Liste (cons (list (vl-princ-to-string PROP) (vlax-get-property layer prop ) ) LISTE ) ) ) (reverse LISTE) ) Aufruf z.B: (get-layer-props "0" '("Color" "Linetype" "Name")) die Liste der Props kannste dir erweitern, die Props bekommst du aus der Onlinehilfe bzw. mittels vlax-dump-object ... ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
mkl-cad Mitglied Technischer Zeichner
Beiträge: 378 Registriert: 23.07.2003 ACAD 2002 Express Tools 1-9 Architektural Desktop Windows XP Server Windows 2003 3 GHz Rechner 1 GB RAM 80 GB Festplatte ATI FireGL V3100 2 17" Flachbildschirme
|
erstellt am: 24. Nov. 2005 14:17 <-- editieren / zitieren --> Unities abgeben: Nur für Christoph_W
DANKE War prima hab nur noch einen kleinen Fehler gefunden. So währe es richtig: (defun get-layer-props (name props / layer LISTE) (setq LAYER(vla-item (vla-get-layers(vla-get-activedocument(vlax-get-acad-object)))NAME)) (foreach prop props (setq Liste (cons (cons (vl-princ-to-string PROP) (vlax-get-property layer prop ) ) LISTE ) ) ) (reverse LISTE) ) OK? ------------------ Martin Viele Grüße aus dem schönen Münsterland! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 24. Nov. 2005 14:20 <-- editieren / zitieren --> Unities abgeben: Nur für Christoph_W
jo ... alles ne Frage des gewollten AusgabeFormats ( aber so wollte ich 's eigentlich ) ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
mkl-cad Mitglied Technischer Zeichner
Beiträge: 378 Registriert: 23.07.2003 ACAD 2002 Express Tools 1-9 Architektural Desktop Windows XP Server Windows 2003 3 GHz Rechner 1 GB RAM 80 GB Festplatte ATI FireGL V3100 2 17" Flachbildschirme
|
erstellt am: 24. Nov. 2005 15:03 <-- editieren / zitieren --> Unities abgeben: Nur für Christoph_W
|