| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY wird von NVIDIA zum Händler des Jahres gewählt – zum dritten Mal in Folge, eine Pressemitteilung
|
Autor
|
Thema: Gruppencodes? Will Layer ändern! (1343 mal gelesen)
|
kschlepp Mitglied Dipl.-Ing. FH
Beiträge: 63 Registriert: 02.05.2007
|
erstellt am: 15. Mai. 2007 16:22 <-- editieren / zitieren --> Unities abgeben:
Hallo Lispler! Ich habe mir aus dem Rund um AutoCAD-Forum ein Tool zum automatischen nummerieren geholt. Nun klappt das auch ganz prima, allerdings landen die Zahlen auf dem falschen Layer. An welcher Stelle kann ich das hier drin wie ändern? Und wo gibt es eine Übersetzungstabelle für diese "Gruppencodes" (heißen die so?)? Hier ist das Programm: Code:
(defun c:nummerieren (/ nr ipt ant) (setq nr (if (setq ant(getint "\nStartnummer <0>")) (1- ant) 0 ) )(while (setq ipt (getpoint (strcat "\nEinfügepunkt: " (itoa (setq nr (+ 1 nr))) ":"))) (entmake(list '(0 . "TEXT") '(100 . "AcDbEntity") '(67 . 0) '(410 . "Model") (cons 8 (getvar "CLAYER")) '(100 . "AcDbText") (cons 10 ipt) '(40 . 3.5) (cons 1 (itoa nr)) '(50 . 0.0) '(41 . 1.0) '(51 . 0.0) '(7 . "STANDARD") '(71 . 0) '(72 . 0) (cons 11 ipt) '(210 0.0 0.0 1.0) '(100 . "AcDbText") '(73 . 0) ) ) ) (princ) )
Vielen Dank Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Ex-Mitglied | |
kschlepp Mitglied Dipl.-Ing. FH
Beiträge: 63 Registriert: 02.05.2007
|
erstellt am: 15. Mai. 2007 17:44 <-- editieren / zitieren --> Unities abgeben:
@Rabbit: Tut mir leid, ich such jetzt seit einer Stunde nach so einer Übersetzungstabelle in der Lisp-Hilfe, kann aber leider keine finden. Ich möchte nämlich die Nummerierung nich auf irgendeinen neuen Layer schreiben, sondern auf den in Mechanical dafür vorgesehenen Text-Layer AM_6. Der heißt nur nicht immer AM_6, denn es gibt ja auch noch die Layergruppen, die sich dem Namen voranstellen. Möchte man eine Schraffur "richtig" einsortieren, so ruft man (glaube ich) "hatc" auf. Für den Layer 0 entsprechend "con1". Wie macht man das mit dem Text für den Text-Layer? Trotzdem schönen Feierabend allerseits... Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Ex-Mitglied | |
Ex-Mitglied | |
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: 15. Mai. 2007 18:06 <-- editieren / zitieren --> Unities abgeben: Nur für kschlepp
Lass die Zeile mit (getvar "clayer") und füge vor dem Entmake einfach ein Code: (command "-amlayer" "_O" "HATC")
hinzu, das wechselt mit der Mechanical Funktionalität jeweils auf den gewünschten Layer und unterstützt auch Layergruppen.------------------ Mit freundlichem Gruß Udo Hübner 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: 15. Mai. 2007 18:15 <-- editieren / zitieren --> Unities abgeben: Nur für kschlepp
|