|
Rund um AutoCAD : Layernamen ändern
CADmium am 13.01.2009 um 11:34 Uhr (0)
dafür würd ein Script verwenden und ein Lisp , das den Zeichnungsnamen (gevar "DWGNAME") anl Präfix einfach vor alle LAyer setzt. Sollte sich was zu im Netz finden lassen..Händisch kannst du das in jeder Zeichnung mit dem Befehl _rename machen .. Objekte : Layer ... alter Name * ... neuer Name "PRAEFIX"*------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Layernamen ändern
cadnetz am 13.01.2009 um 12:05 Uhr (0)
Hallo und Danke erstmalCADmium: Ich habe bei CADwiesel das Lisp Laykonv gezogen, das geht schon mal in die richtige richtung, Kann ich vielleicht noch etwas verschlimmbessern für michCADdog: Das mit dem Binden funktioniert auch ganz gut, nur die $-Zeichen stören doch etwas
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Layernamen ändern
cadnetz am 13.01.2009 um 11:27 Uhr (0)
Hallo,ich habe ca 600 Zeichnungen mit derselben Layerstruktur. Nun möchte ich diese Zeichnungen umarbeiten bzw. teilweise zusammenfügen. Nun müssen aber die bestehenden Layernamen den Präfix des dateinamens bekommen. Gibt es da in ACAD bzw. Lisp Möglichkeiten ? Beispiel: Zeichnung Anton.dwg mit Layern Mauer und Straßesowie Zeichnung Bernd.dwg mit Layern Mauer und StraßeDies soll eine neue Zeichnung ergeben mit den LayernAnton-MauerAnton-StraßeBernd-MauerBernd-StraßeDanke schon mal im Voraus
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Block einfügen mit LISP und Wert 1
xem am 14.01.2009 um 11:34 Uhr (0)
Zitat:Original erstellt von tunnelbauer:@Dober:Das ist die Hälte der Miete; Was ist jetzt nämlich bei [i]columns = 1?[/i]So langsam komme ich hinter das Geheimnis des LISP so funzt es in beide Richtungen:(defun c:bel (/ Blockn corner1 corner2 columns rows roomwidth roomheight colspacing rowspacing)(setq corner1 (getpoint "erste Ecke im Raum: ")corner2 (getpoint "gegenüber liegende Ecke: ")columns (getint "Anzahl X Richtung: ")rows (getint "Anzahl Y Richtung: ")roomwidth (abs (- (car corner1) (car corner2 ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Block einfügen mit LISP und Wert 1
Dorfy am 14.01.2009 um 11:54 Uhr (0)
ach nö, Zitat:Original erstellt von xem: Danke tunnelbauer - aber wie soll es denn aussehen mit "(cond"vlideF1Reiter Inhalt AutoLISP Reference AutoLISP Functions C Functions Cond... so.mfg heiko
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Block einfügen mit LISP und Wert 1
xem am 14.01.2009 um 12:00 Uhr (0)
Zitat:Original erstellt von Dorfy:ach nö, vlideF1Reiter Inhalt AutoLISP Reference AutoLISP Functions C Functions Cond... so.mfg heikoIch weiß - kann den Teil der Hilfe aber nicht öffnen.Internet Explorer-SkriptfehlerblablablaJA/Nein und das wars.
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Block einfügen mit LISP und Wert 1
tunnelbauer am 14.01.2009 um 12:09 Uhr (0)
http://support.microsoft.com/kb/902225/ Kam hier (auf cad.de) aber auch schon 100x vor...------------------GrüsseThomasKorrekturen zum Kochbuch AutoLISP
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Block einfügen mit LISP und Wert 1
Dorfy am 14.01.2009 um 12:19 Uhr (0)
ne necondmfg heiko
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Block einfügen mit LISP und Wert 1
CADmium am 14.01.2009 um 12:27 Uhr (0)
Warum sichert ihr eure Progs eigentlich nicht minimal gegen abkacken wegen fehlerhafter Usereingaben ab ?z.B. so : (ungetestet nur in den Editor geschrieben..)(defun c:bel (/ corner1 corner2 columns rows roomwidth roomheight colspacing rowspacing) (if(and(or(setq corner1 (getpoint "
Erste Ecke angeben: ")) (prompt "
Ungültiger 1. Punkt") ) (or(setq corner2 (getpoint "
Zweite Ecke angeben: ")) (prompt "
Ungültiger 2. Punkt") ) (or(and(setq columns (getint "
Anzahl wagerecht: ")) ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Layereigenschaften auf Zeichnungselemente
ChristianV am 14.01.2009 um 18:37 Uhr (0)
Halloich habe in diesem Forum eine alte LISP Anwendung (siehe Anhang) gefunden, welche mein Problem (siehe Betreff) fast löst. Leider überträgt die Routine, welche ab Zeile 390 abläuft die Layerinfos auf alle Elemente. Ich möchte jedoch nur diejenigen überschreiben, welche den Defaultwert vonLayer gesetzt haben. Kann mir jemand mitteilen, wie ich die LISP anpassen muss?Vielen Dank.
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Block einfügen mit LISP und Wert 1
Attilio am 15.01.2009 um 16:31 Uhr (0)
Geiles Programm, funktioniert !Ist es möglich, da noch irgendwo ne Abfrage einzubauen welcher Block eingefügt werden soll ?Jetzt wird ja immer der "E-Beleuchtung" gesetzt, cool wäre aber wenn ich auf ein Symbol klicken kann, welches dann vom Programm genommen wird.Ich kann auch ohne diese Funktion leben, aber wär halt schöner :-)Gruss Attilio
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Block einfügen mit LISP und Wert 1
Dorfy am 15.01.2009 um 16:39 Uhr (0)
hi,siehe weiter ober bei Dober Heinz...diese Zeile musst du geschickt in CADmium sein Zeilen einbauen...(setq Blockn......(command "_insert" Blockn ...versuch es mal ist garnet so schwer...mfg heiko[Diese Nachricht wurde von Dorfy am 15. Jan. 2009 editiert.]
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Block einfügen mit LISP und Wert 1
xem am 14.01.2009 um 10:15 Uhr (0)
Hallo,ich habe hier ein sehr schönes Lisp, was auch ganz gut funzt.(defun c:bel (/ corner1 corner2 columns rows roomwidth roomheight colspacing rowspacing)(setq corner1 (getpoint "erste Ecke angeben: ")corner2 (getpoint "zweite Ecke angeben: ")columns (getint "Anzahl wagerecht: ")rows (getint "Anzahl senkrecht: ")roomwidth (abs (- (car corner1) (car corner2)))roomheight (abs (- (cadr corner1) (cadr corner2)))colspacing (/ roomwidth columns)rowspacing (/ roomheight rows)lowerleft(list(min (car corner1) (car ...
|
| In das Form Rund um AutoCAD wechseln |
