| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Number Auto-lisp (1152 mal gelesen)
|
Kerstin B Mitglied
Beiträge: 39 Registriert: 04.03.2003 AutoCad2002 AutoCad Mechanical6 auf Windows2000 SP4
|
erstellt am: 09. Dez. 2004 10:51 <-- editieren / zitieren --> Unities abgeben:
Hallo zusammen, ich habe diese Lsp-Datei für Nummerierung. Mit einer Sprüngen ich würde aber gerne zweier Sprünge haben. Wenn ich an der Stelle 1+ 2+ schreibe gibt´s bei mir eine Fehlermeldung.In welcher Zeile muß ich was ändern. Wenn ich nummeriere liegt der Text auf Layer0 wie bekomme ich ihn auf den aktuellen Layer? Wer kann mir behilflich sein. Danke im voraus. Kerstin <pre> (defun c:number (/ 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") '(8 . "0") '(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) ) </pre> Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13508 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 09. Dez. 2004 11:05 <-- editieren / zitieren --> Unities abgeben: Nur für Kerstin B
(while (setq ipt (getpoint (strcat "\nEinfügepunkt: " (itoa (setq nr (+ 2 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) ) (ungetestet)
------------------ - 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 |
carmelli76 Mitglied CAD/GIS Teamleitung
Beiträge: 553 Registriert: 05.07.2004 Autodesk Civil 3D 2014 Revit 2016 Vault 2014
|
erstellt am: 09. Dez. 2004 11:16 <-- editieren / zitieren --> Unities abgeben: Nur für Kerstin B
hallo, füge hinter in die nächst zeile (while (setq ipt (getpoint (strcat "\nEinfügepunkt: " (itoa (setq nr (1+ nr))) ":"))) (entmake(list folgendes ein '(2 . "LAYERNAME") bei LAYERNAME musst du deinen gewünschten eingeben.
viele grüsse aus berlin. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Kerstin B Mitglied
Beiträge: 39 Registriert: 04.03.2003 AutoCad2002 AutoCad Mechanical6 auf Windows2000 SP4
|
erstellt am: 09. Dez. 2004 11:18 <-- editieren / zitieren --> Unities abgeben:
Hallo CADmium, das mit +2 funktioniert leider nicht.; Fehler: Fehlerhafte Funktion: 2 meldet er. Aber das mit den aktuellen Layer geht.Super. Eine Sache hatte ich vorhin vorgessen und zwar wenn ich 0100 eine Nummer haben will schreibt er mir nicht die 0 vorweg sondern 100. Geht das überhaupt mit der 0 vorweg?. Kerstin Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
carmelli76 Mitglied CAD/GIS Teamleitung
Beiträge: 553 Registriert: 05.07.2004 Autodesk Civil 3D 2014 Revit 2016 Vault 2014
|
erstellt am: 09. Dez. 2004 11:25 <-- editieren / zitieren --> Unities abgeben: Nur für Kerstin B
|
cadffm Moderator 良い精神
Beiträge: 21533 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 09. Dez. 2004 11:40 <-- editieren / zitieren --> Unities abgeben: Nur für Kerstin B
und der aktuelle Layer ist nicht "LAYERNAME" sondern (getvar "clayer") weiter: CADmium hat geschrieben (+ 2 nr) und nicht wie du getestet hast : (+2 nr) /falls ich mit der Annahme richtig liege/ Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Kerstin B Mitglied
Beiträge: 39 Registriert: 04.03.2003 AutoCad2002 AutoCad Mechanical6 auf Windows2000 SP4
|
erstellt am: 09. Dez. 2004 11:49 <-- editieren / zitieren --> Unities abgeben:
|
Kodat Mitglied Architekt
Beiträge: 310 Registriert: 27.01.2004
|
erstellt am: 09. Dez. 2004 11:57 <-- editieren / zitieren --> Unities abgeben: Nur für Kerstin B
Hallo. Eintolles Lisp. Kann es nicht globaler geschrieben werden. Mein Vorschlag. -Texte auf aktuellen Layer mit eingestelltem Textstil -Wählen ob Numerisch oder alphabetisch -dann Schrittweite bestimmen z.B. 1 oder 2 oder 3 , wenn möglich sogar einen Text voranstellen, A1 A2 A3 etc. ober Hans Ende 1A 2A, - Startpunkt wenn man mittendrin anfängt z.B. bei A12 oder 12A,und und wenn noch einer eine Idee hat bitte ergänzen. Vielleicht hat ja jemand so etwas schon geschrieben. Gruß Carsten ------------------ Vielen Dank für jeden Hinweis. Carsten Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 21533 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 09. Dez. 2004 12:01 <-- editieren / zitieren --> Unities abgeben: Nur für Kerstin B
|
Kodat Mitglied Architekt
Beiträge: 310 Registriert: 27.01.2004
|
erstellt am: 09. Dez. 2004 12:29 <-- editieren / zitieren --> Unities abgeben: Nur für Kerstin B
|
AsSchu Ehrenmitglied Konstrukteur
Beiträge: 1632 Registriert: 27.06.2003 ACAD 2012
|
erstellt am: 09. Dez. 2004 12:33 <-- editieren / zitieren --> Unities abgeben: Nur für Kerstin B
|
Kodat Mitglied Architekt
Beiträge: 310 Registriert: 27.01.2004
|
erstellt am: 09. Dez. 2004 12:52 <-- editieren / zitieren --> Unities abgeben: Nur für Kerstin B
|
Kerstin B Mitglied
Beiträge: 39 Registriert: 04.03.2003 AutoCad2002 AutoCad Mechanical6 auf Windows2000 SP4
|
erstellt am: 09. Dez. 2004 13:46 <-- editieren / zitieren --> Unities abgeben:
Hallo cadffm, das tcount würd mich auch interessieren. Leider habe ich das gleiche Problem wie Kodat.Ich finde das nicht. Ich habe ACad2002.Bei cadwiesel habe ich im Express2004 geguckt darin gibt es eine acettxt.lsp hat die da was mit zutun? Kann ich die lsp bei mir einfach loaden? Kerstin
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
AsSchu Ehrenmitglied Konstrukteur
Beiträge: 1632 Registriert: 27.06.2003 ACAD 2012
|
erstellt am: 09. Dez. 2004 15:01 <-- editieren / zitieren --> Unities abgeben: Nur für Kerstin B
|
Kodat Mitglied Architekt
Beiträge: 310 Registriert: 27.01.2004
|
erstellt am: 09. Dez. 2004 15:41 <-- editieren / zitieren --> Unities abgeben: Nur für Kerstin B
|
michelangelo Mitglied
Beiträge: 158 Registriert: 08.04.2004 Win XP, ACAD 2002 ExpressTool vom ACAD 2000
|
erstellt am: 09. Dez. 2004 15:42 <-- editieren / zitieren --> Unities abgeben: Nur für Kerstin B
ich sehe denn fehler nicht, kann mir jemand helfen? (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 (+ 2 nr))) ":"))) (entmake(list '(8 . (getvar "clayer")) '(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) )
------------------ [AutoCAD spricht mit jedem, nur leider nicht immer die gleiche Sprache.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
tunnelbauer Ehrenmitglied V.I.P. h.c. Bauingenieur
Beiträge: 7085 Registriert: 13.01.2004 Sie nannten ihn google.
|
erstellt am: 09. Dez. 2004 15:51 <-- editieren / zitieren --> Unities abgeben: Nur für Kerstin B
ein Fehler ist die fehlende Klammer vor dem while (es steckt aber noch einer drin, war jetzt zu faul zum Suchen deshalb: 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 (+ 2 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) )
------------------ Grüsse Thomas PS: doch noch gefunden; vor dem (princ) am Ende fehlt noch eine [Diese Nachricht wurde von tunnelbauer am 09. Dez. 2004 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
FeR Mitglied
Beiträge: 150 Registriert: 27.10.2003 Win7 Llatest SP AutoCAD 2016 Design Ultimate Suite
|
erstellt am: 09. Dez. 2004 18:19 <-- editieren / zitieren --> Unities abgeben: Nur für Kerstin B
Tcount ist ein Befehl von den Expresstools glaub Bei cadwiesel kann man sich die Installationsdatei runterladen sowie auch die deutsch Übersetzung. Einfach datei runterladen Installation ausführen fertig. Habe es mehrmals pro Tag in Verwendung. ------------------ mfg FeR "gefundene Rechtschreibfehler dürfen behalten werden." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Dober Heinz Mitglied Technischer Zeichner
Beiträge: 1143 Registriert: 20.12.2002 Autocad 2020/64B Win10 WORKSTATION Intel(R) CPU E5-1620 3.60GHz 16,0GB Ram 64 Bit-Betriebssystem HP Designjet T7200 Grafik NVIDIA Quadro P4000 ZWCAD2019
|
erstellt am: 10. Dez. 2004 07:02 <-- editieren / zitieren --> Unities abgeben: Nur für Kerstin B
|