|
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 : Block im Block
joern bosse am 30.05.2005 um 17:27 Uhr (0)
Für Variante 1 habe ich das LISP geändert (Zeile 25, 27, 73 und 75) Es wird jetzt an den Layernamen für das Attribut "_ATT" hinten angehängt, vergleiche es eifach mal mit der anderen LISP-Datei. ------------------ 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 |
|
Rund um AutoCAD : negatives abrunden
joern bosse am 09.07.2011 um 10:08 Uhr (0)
Hallo Cad4Fun,anbei ein kleines LISP, funktioniert aber nur mit LW-Polylinien. Du erzeugts zu Beginn nach außen gerichtetete Abrundungen, dann läßt Du das LISP drüber laufen.Code:(defun c:negBogen ( / A OBJ) (if (and(setq obj(car (entsel "
Bitte eine LW-Polylinie auswählen:"))) (=(cdr(assoc 0 (entget obj)))"LWPOLYLINE")) (entmod (mapcar (lambda(A) (if (=(car A)42) (cons 42 (* -1.0(cdr A))) A))(entge ...
|
| 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 : 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 : Flächen berechnen, Fehler in Lisp-Routine
joern bosse am 23.02.2008 um 06:57 Uhr (0)
Hallo Andi,Zitat aus der Datei Fläche.txt:"Sollten Fehler auftreten, bitte melden unter edietrich@i-one.at."Hast Du Ernst schon kontaktiert?------------------viele GrüßeJörn
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Lisp laden
joern bosse am 05.12.2007 um 08:29 Uhr (0)
Hallo Bob,Füge über Extras=Optionen Registerkarte "Dateien" einen Supportpfad zu diesem Verzeichnis hinzu, oder kopiere die beiden Dateien auf einen bereis vorhandenen Supportpfad.------------------viele GrüßeJö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 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 : XYZ auslesen mit neuem BKS
joern bosse am 30.11.2005 um 15:07 Uhr (0)
Hallo Günter, man könnte über LISP was machen, mit dem Befehl "trans". Dazu müsstest Du aber ein bißchen deutlicher werden, was wie ausgelesen werden soll.Einfügepunkt des Blockes, (alle)Attributswerte, wie soll den ausgegebenen Daten weiterverarbeitet werden? ------------------viele GrüßeJörn
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Attribut-Koordinaten
joern bosse am 09.03.2005 um 09:11 Uhr (0)
Hallo Petra, Du könntest folgende Code als LISP-Datei abspeichern und dann die Funktion über einen button aufrufen (wenn sie geladen ist): (defun test ( / ) (command -eattext o (princ Bitte Blöcke auswählen: ) (ssget) n n j c: emp est.blk x c: emp est.xls )) und das Macro für den Button: ^C^C(test) ------------------ viele Grüße Jörn
|
| In das Form Rund um Autocad wechseln |
