|
Rund um Autocad : Number Auto-lisp
cadffm am 09.12.2004 um 11:40 Uhr (0)
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/
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Number Auto-lisp
Kerstin B am 09.12.2004 um 11:49 Uhr (0)
Hallo cadffm, hast recht.Mein Fehler waren die Freistellen. Vielen Dank. Es funktioniert jetzt. Kerstin
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Number Auto-lisp
Kodat am 09.12.2004 um 11:57 Uhr (0)
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 ---------------- ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Number Auto-lisp
cadffm am 09.12.2004 um 12:01 Uhr (0)
wegen solcher Funktionen etc. : schonmal jmd google bemüht ? schonmal jmd Forumsuchfunktionen bemüht ? je nach Einsatzzweck (als Beispiel mal genannt) TCOUNT aus den ExpressTools ..
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Number Auto-lisp
Kodat am 09.12.2004 um 12:29 Uhr (0)
Hallo. Gibt es die Funktion in AC 2000 ? ------------------ Vielen Dank für jeden Hinweis. Carsten
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Number Auto-lisp
AsSchu am 09.12.2004 um 12:33 Uhr (0)
Zitat: Original erstellt von Kodat: Hallo. Gibt es die Funktion in AC 2000 ? welche Funktion ? Diese TCOUNT? hat cadffm doch gepostet. In den Expresstools Waren/sind in AC 2000 vorhanden.
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Number Auto-lisp
Kodat am 09.12.2004 um 12:52 Uhr (0)
Also bei mir finde ich sie nicht !! ------------------ Vielen Dank für jeden Hinweis. Carsten
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Number Auto-lisp
Kerstin B am 09.12.2004 um 13:46 Uhr (0)
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
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Number Auto-lisp
AsSchu am 09.12.2004 um 15:01 Uhr (0)
Moi,, so wie ich gesehen habe ist in genau dieser Lisp der Befehl programmiert. Versuche es doch einfach mit dem Laden der Lisp:-) Versuch macht kluch
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Number Auto-lisp
Kodat am 09.12.2004 um 15:41 Uhr (0)
Hallo. Das funktioniert nicht. Ich hab aber was gefunden das glaube ich das Problem löst. Mal ausprobieren. Der Link hier mi Forum sogar http://ww3.cad.de/foren/ubb/Forum54/HTML/001902.shtml Ich hoffe es klappt. Carsten ------------------ Vielen Dank für jeden Hinweis. Carsten
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Number Auto-lisp
michelangelo am 09.12.2004 um 15:42 Uhr (0)
ich sehe denn fehler nicht, kann mir jemand helfen? (defun c:nummerieren (/ nr ipt ant) (setq nr (if (setq ant(getint "
Startnummer 0 ")) (1- ant) 0 ) ) while (setq ipt (getpoint (strcat "
Einfü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 ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Number Auto-lisp
tunnelbauer am 09.12.2004 um 15:51 Uhr (0)
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 "
Startnummer 0 ")) (1- ant) 0 ) ) (while (setq ipt (getpoint (strcat "
Einfügepunkt: " (itoa (setq nr (+ 2 nr))) ":"))) (entmake(list (0 . "TEXT") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (cons 8 (getvar "CLAYER")) (100 . "AcDbText") (cons ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Layer Löschen ???
CADmium am 09.12.2004 um 16:34 Uhr (0)
lade folgendes Lisp (defun c:delofflayers() (vl-load-com) (vlax-for LAYER (vla-get-layers (vla-get-activeDOCUMENT(vlax-get-acad-object))) (if (=(vla-get-LayerOn LAYER):vlax-false) (vl-catch-all-error-p (vl-catch-all-apply vla-delete (list LAYER) ) ) ) ) ) und pack dir ^C^C DELOFFLAYERS auf einen Button ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösu ...
|
| In das Form Rund um Autocad wechseln |
