|
Rund um Autocad : UMBENENN
joern bosse am 25.11.2005 um 10:32 Uhr (0)
Hallo Helmut,vielleicht hilft Dir das folgende LISP:aufrufen mit "la_umb" - Bei der Eingabe der Teilstring ist Groß und Kleinschreibung zu beachten- der zu ersetzenden Teilstring darf nur einmal im Layernamen vorkommen, sonst wird nur der erste gefundenen Teilstring umbenanntCode:(defun c:la_umb (/ alt neu neu Layer Lalist n) (setq alt (getstring "
umzubenennender Teilstring:") neu (getstring "
euer Teilstring:")) (setq Layer (cdr (assoc 2 (tblnext "LAYER" T)))) (while Layer (if (wcmatch Layer (strcat "* ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : alle Attribute eines Blockes verschieben
joern bosse am 06.08.2008 um 10:55 Uhr (0)
Hallo Jan,versuche es mal mit folgendem LISP (nur im WKS und es werden nur die GC 10s der Attribute berücksichtigt), kannst ja noch ein bißchen zurechtbasteln.Code:(defun c:attmove ( / A ATT_LISTE OBJ PKT1 PKT2) (if (and(setq obj (car (entsel "
Bitte Block auswählen:"))) (=(cdr(assoc 0 (entget obj)))"INSERT") (setq att_liste(attmove:att obj)) (setq pkt1 (getpoint "
Verschieben von Punkt:")) (setq pkt2 (getpoint pkt1 "
Verschieben nach Punkt:"))) (progn (mapcar (lambda(A) (entmod (subst (cons 10 ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : zeichnen->punkt->messen
joern bosse am 22.10.2004 um 08:37 Uhr (0)
Hallo, vielleicht hilft Dir folgendes LISP-Tool, durch Eingabe von Station und Abstand zu einer Linie, Polylinie oder Bogen wird ein Punkt gezeichnet. Aber bitte die Ergebnisse prüfen, es ist nur auf die schnelle geschrieben!!! ;;; Es werden Punkte auf dem aktuellem Layer gezeichnet entsprechend den Stationsangaben ;;; Wenn die Station größer als die Länge des Elementes ist, dann gibt es einen Fehler ;;; Beenden durch zweimalige Leereingabe (defun c:stat (/ pick_pkt aws stat abstand) (vl-load-com) (se ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : zeichnen->punkt->messen
joern bosse am 22.10.2004 um 09:12 Uhr (0)
Hallo nochmal, Jetzt muß ich nochmal nachfragen. Du sagst Du willst einen Punkt in einem betimmtem Abstand von einer Linie, meinetwegen auch Polyline mit einem Abstandsmaß absetzen? OK. Aber ich bin der Meinung, daß auch die Station auf der Linie bekannt sein muß, sonst ist die Lage des abzusetzenden Punktes nicht eindeutig bestimmt. Bei meiner LISP-Routine wird folgendermaßen abgefragt: starten von LISP-routine zeigen des objektes(die gezeigte seite bestimmt, von welchem ende aus gemessen wird) gib den 1 ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : zeichnen->punkt->messen
joern bosse am 22.10.2004 um 10:13 Uhr (0)
Hallo Helmut, das Du keine Seitenabstände brauchst erklärt meinen gedanklichen Klemmer, also, die LISP-Routine noch mal überarbeitet: -Es sind keine geschlossenen Polylinine erlaubt -Bei Kreisen werden die Punkte fortlaufend angeordnet Probier es einfach aus, wenn irgendetwas nicht passen sollten, dann mußt Du mal probieren das Tool noch ein bißchen anzupassen, denn ich muß gleich weg. Also schönes Wochenende) ;;; Es werden Punkte auf dem aktuellem Layer gezeichnet entsprechend den Stationsangaben ;;; Been ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Multilinie in Polylinie verwandeln
joern bosse am 26.10.2004 um 10:13 Uhr (0)
Hallo, probier doch mal folgendes LISP aus: Es werden nur die Stützpunkte (code 11) ausgelesen und damit wiederum eine Polylinie erstellt. Ist wieder nur auf die Schnelle = ERgebnisse prüfen (defun c:ml-pl ( / aws koord) (setq aws (entsel
Bitte Multilinie auswählen: )) (if aws (if (=(cdr(assoc 0(entget(car aws)))) MLINE ) (progn (mapcar (lambda (A) (if (=(car A)11)(setq koord(append koord (list (cdr A))))) )(entget (car aws))) (entmake (list(cons 0 POLYLINE ) ( ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Messreihen importieren
joern bosse am 12.01.2005 um 08:22 Uhr (0)
Hallo Praktikant, für Deinen Fall könntest Du folgendes LISP ausprobieren (ich habe jetzt erst gesehen, daß Dein Eintrag ja schon ziemlich alt ist, aber egal, falls Du es immer noch brauchst). Es wird an jeder Koordinate ein Punkt erzeugt. Voraussetzung: Die Nachkommstellen Deiner Koordinaten müssen immer einen festen Wert habe, in diesem Fall 8, wenn es anders ist, ist die Variable "nachkomma" in der Funktion "xyz" entsprechend zu ändern. Und natürlich: DIE ERGEBNISS PRÜFEN. (defun c:koord_in ( / datei ze ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : Attribute Texthöhe
joern bosse am 17.01.2005 um 08:50 Uhr (0)
Hallo Petra,probier mal die angehängte LISP-Datei aus. Aufruf mit "att_hoehe". Du wird dann aufgefordert die Höhe einzugeben, dann Blöcke auszuwählen. Alle enthaltenen Attribute sollten dann die entsprechende Attributs(Text)höhe bekommen, der Basispunkt der Attribute wird so geändert, das das Verhältnis Basispunkt Block - Basispunkt Attribut im Bezug zur Attributshöhe erhalten bleibt.------------------viele GrüßeJörn
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Attribute Texthöhe
joern bosse am 18.01.2005 um 13:14 Uhr (0)
Hallo Petra,eigentlich müßtest Du doch jetzt mit den Tool von Holger alles habe was Du brauchst, aber ich habe mein LISP trotzdem nochmal erweitert:Es wird jetzt zusätzlich zu der Höhe der Textstil, LAyer und die Farbe abgefragt, die Werte bleiben als Vorgabe erhalten.------------------viele GrüßeJörn
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : Koordinaten
joern bosse am 26.01.2005 um 12:43 Uhr (0)
Hallo Schlotti, Du mußt die *.dcl Datei in einen ACAD-Supportpfad kopieren, damit die Lisp-Routine diese finden kann. ------------------ viele Grüße Jörn
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Layernamen automatisch ersetzen ?
joern bosse am 27.01.2005 um 17:13 Uhr (0)
Hallo Matthias, wie sieht die Textdatei genau aus, sind die Nummern und die zugeordneten Layernamen in einer Zeile, durch ein festes Trennzeichen getrennt? Oder stehen die Angaben immer unter einander? Wenn ich das wüßte könnte man in LISP was basteln. ------------------ viele Grüße Jörn
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Layernamen automatisch ersetzen ?
joern bosse am 28.01.2005 um 16:02 Uhr (0)
Hallo Matthias, Du brauchst gar nicht weiter zu probieren, es waren noch ein paar kleine Fehler in der LISP-Datei. Ich schicke Sie nochmals korrigiert mit und auch die DWG-DAtei mit den umbenannten Layern, aber wie gesagt, die Prüfung der Layer liegt bei Dir. ------------------ viele Grüße Jörn
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Layernamen automatisch ersetzen ?
joern bosse am 31.01.2005 um 18:23 Uhr (0)
Hallo Matthias, daß Deine Zeichnung größer wird ist klar, die Layerbezeichnungen sind ja auch länger geworden und dementsprechend muß mehr gespeichert werden, das hat nichts mit der LISP-Datei zu tun. Das Du mehr Layer bekommen hast kann ich nicht nachvollziehen, ich habe in der Zeichnung von der Konvertierung 40 Layer + den Layer 0 und nach der Konvertierung ebenfalls. Ich schicke Dir die Layer der beiden Zeichnungen als txt.-Dateien mit. Die TXT-Datei, die Du mir gesendet hast habe ich nicht in eine L ...
|
| In das Form Rund um Autocad wechseln |
