| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY präsentiert die neue NVIDIA RTX A400 und die A1000 Grafikkarte, eine Pressemitteilung
|
Autor
|
Thema: Nummern forlaufend (951 mal gelesen)
|
Dober Heinz Mitglied Technischer Zeichner
Beiträge: 1146 Registriert: 20.12.2002
|
erstellt am: 29. Apr. 2004 12:40 <-- editieren / zitieren --> Unities abgeben:
|
Proxy Ehrenmitglied Stateless-DHCP v6-Paketfragmentierer
Beiträge: 1629 Registriert: 13.11.2003 Tastaturen, Mäuse, Pladden, ..., AutoCADs 200X, SWX 2kX
|
erstellt am: 29. Apr. 2004 12:49 <-- editieren / zitieren --> Unities abgeben: Nur für Dober Heinz
Code:
(defun c:num (/ nr ipt ant th prefix) (setq LAY_OLD (getvar "CLAYER")) (setq prefix (getstring "\nTextprefix: ") nr (if (setq ant (getint "\nStartnummer <0>")) (1- ant) 0 ) ;_ end of if th (getreal "\nTexthöhe:") ) ;hier fehlte eine Klammer (princ "\nWählen sie ein Element für die Layerschaltung : ") (setq AWS (ssget)) (setq AWS (ssname AWS 0)) (setq LAY_NEW (cdr (assoc 8 (entget AWS)))) (setvar "CLAYER" LAY_NEW) (while (setq ipt (getpoint (strcat "\nEinfügepunkt: " (itoa (setq nr (1+ nr))) ":") ) ;_ end of getpoint ) ;_ end of setq (entmake (list '(0 . "TEXT") '(100 . "AcDbEntity") '(67 . 0) '(410 . "Model") (cons 8 lay_new) ; hier stand eine falsche Variable '(100 . "AcDbText") (cons 10 ipt) (cons 40 th) (cons 1 (strcat prefix (itoa nr))) '(50 . 0.0) '(41 . 1.0) '(51 . 0.0) '(7 . "STANDARD") '(71 . 0) '(72 . 1) (cons 11 ipt) '(210 0.0 0.0 1.0) '(100 . "AcDbText") '(73 . 0) ) ;_ end of list ) ;_ end of entmake ) ;_ end of while (setvar "CLAYER" LAY_OLD) )
Gruppencode 7 ist Textstill, en kannst du ändern mit (Setq textstill (getvar "textstyle")) und dann '(7 . Textstill). P.S. nicht getestet, nur so ein Quicki-Gedanke ------------------ "Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language?" Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Dober Heinz Mitglied Technischer Zeichner
Beiträge: 1146 Registriert: 20.12.2002
|
erstellt am: 29. Apr. 2004 12:55 <-- editieren / zitieren --> Unities abgeben:
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 29. Apr. 2004 15:36 <-- editieren / zitieren --> Unities abgeben: Nur für Dober Heinz
|
Dober Heinz Mitglied Technischer Zeichner
Beiträge: 1146 Registriert: 20.12.2002
|
erstellt am: 29. Apr. 2004 16:21 <-- editieren / zitieren --> Unities abgeben:
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 29. Apr. 2004 20:07 <-- editieren / zitieren --> Unities abgeben: Nur für Dober Heinz
Sieht ganz danach aus, als hättest du vergessen das ' zu entfernen, das die Ausführung von (cons..) verhindert. Muß wirklich heißen : ... '(51 . 0.0) (cons 7 (getvar "textstyle")) '(71 . 0) .... ------------------ - Thomas - Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Dober Heinz Mitglied Technischer Zeichner
Beiträge: 1146 Registriert: 20.12.2002
|
erstellt am: 30. Apr. 2004 06:45 <-- editieren / zitieren --> Unities abgeben:
|
Theodor Schoenwald Ehrenmitglied
Beiträge: 1672 Registriert: 16.04.2002
|
erstellt am: 03. Mai. 2004 00:23 <-- editieren / zitieren --> Unities abgeben: Nur für Dober Heinz
|
Dober Heinz Mitglied Technischer Zeichner
Beiträge: 1146 Registriert: 20.12.2002 Autocad 2021/64B Win10 WORKSTATION Intel(R) CPU E5-1620 3.60GHz 32 GB Ram 64 Bit-Betriebssystem HP Designjet T7200 Grafik NVIDIA Quadro P4000 ZWCAD2021
|
erstellt am: 03. Mai. 2004 06:53 <-- editieren / zitieren --> Unities abgeben:
|