|
Rund um AutoCAD : Lisp Datei für Raumaustattung
xem am 15.12.2008 um 11:19 Uhr (0)
hab den fehler gefunden:(defun c:trial (/ corner1 corner2 columns rows roomwidth roomheight colspacing rowspacing)(setq corner1 (getpoint "Select one corner of room: ")corner2 (getpoint "Select opposite corner of room: ")columns (getint "Number of columns: ")rows (getint "Number of rows: ")roomwidth (abs (- (car corner1) (car corner2)))roomheight (abs (- (cadr corner1) (cadr corner2)))colspacing (/ roomwidth columns)rowspacing (/ roomheight rows)lowerleft(list(min (car corner1) (car corner2))(min (cadr cor ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Block nach Raster einfügen
xem am 30.04.2009 um 11:53 Uhr (0)
Hallo,ich habe hier ein LISP, welches supi funzt.Code: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)))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 |
|
Rund um AutoCAD : Kopieren und Nummerieren
xem am 30.07.2009 um 16:07 Uhr (0)
Hallo,gibt es was wo beim Kopieren gleich mit nummeriert wird. Also ich habe einen Text Baum 1 und wenn ich den kopiere wird Baum 2, Baum 3 usw. drauß?Ich habe hier ein LISP zum Nummerieren. Es ist eigendlich ganz gut. Nur habe ich den Kreis nicht raus bekommen und eine Abfrage zur Position bezogen auf den ersten Klick wäre nicht schlecht. Denn wenn ich z.B. Leuchten nummerier, klicke ich immer auf den Mittelpunkt, aber der Text soll mittig oberhalb der Leuchte stehen. (z.B. Klick 0,0 und Text 0,5)Code:(de ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Raster
xem am 28.08.2009 um 09:14 Uhr (0)
Hallo,ich habe hier ein LISP mit dem ich in einen Raum ein Raster von Hilfspunkten legen kann.Jetzt habe ich mal versucht nicht einen Block sondern die Zwischenablage einfügen zu lassen.Einfach _insert mit _pasteclip austauschen war es aber nicht.Hat einer von den Profis mal einen Tip?Code:(defun c:ras (/ Blockn corner1 corner2 columns rows roomwidth roomheight colspacing rowspacing)(setq layfarb "2"); Farbe für Layer(command "layer" "m" "E-Konstruktion" "fa" layfarb "E-Konstruktion" "")(setq corner1 (getp ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Lisp Datei für Raumaustattung
xem am 15.12.2008 um 11:05 Uhr (0)
Zitat:Original erstellt von Dober Heinz:Hallo PrzemoDas hab ich mal gefunden im internet.Ist schon lange her, funktioniert aber.(defun c:trial (/ corner1 corner2 columns rows roomwidth roomheight colspacing rowspacing)(setq corner1 (getpoint "Select one corner of room: ")corner2 (getpoint "Select opposite corner of room: ")columns (getint "Number of columns: ")rows (getint "Number of rows: ")roomwidth (abs (- (car corner1) (car corner2)))roomheight (abs (- (cadr corner1) (cadr corner2)))colspacing (/ room ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Block nach Raster einfügen
xem am 30.04.2009 um 13:43 Uhr (0)
also so funzt esCode:(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)))roomheight (abs (- (cadr corner1) (cadr corner2)))colspacing (/ roomwidth columns)rowspacing (/ roomheight rows)lowerleft(list(min (car corner1) (car corner2))(min (cadr corner1) (ca ...
|
| In das Form Rund um AutoCAD wechseln |
