|
AutoLisp : Nummern forlaufend
Dober Heinz am 20.04.2005 um 12:44 Uhr (0)
Hallo Lispler Habe eine Bitte kann mir jemand das Lisp so ändern, das ich dem Text am Fadenkreuz schon seh, damit ich ihn besser Platzieren kann. Danke Heinz (defun c:num (/ nr ipt ant th prefix) (setq LAY_OLD (getvar CLAYER )) (setq prefix (getstring
Textprefix: ) nr (if (setq ant (getint
Startnummer 0 )) (1- ant) 0 ) ;_ end of if th (getreal
Texthöhe: ) ) (princ
Wählen sie ein Element für die Layerschaltung : ) (setq A ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Nummern hochzählen
Dober Heinz am 19.10.2005 um 15:17 Uhr (0)
Hallo Lispler ich wiederHabe mir ein Lisp gepastel einfach (bin noch Anfänger)aber se funkt.Hat nur einen Hacken ich kann geade bis Hochzählen.(defun textzahler (aus)(setq copytext (entget aus))(setq txt (cdr (assoc 1 copytext)))(setq txt1 (substr txt 1 1))(setq txt2 (itoa(1+(1+(atoi(substr txt 2 1))))))(setq txt3 (substr txt 3 1))(setq txt4 (itoa(1+(1+(atoi(substr txt 4 1))))))(setq txtzu (strcat txt1 txt2 txt3 txt4)) (setq neuedxf (subst (cons 1 txtzu) (assoc 1 copytext) copytext)) (entmod neuedxf) )(def ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Nummern hochzählen
Dober Heinz am 19.10.2005 um 15:17 Uhr (0)
Hallo Lispler ich wiederHabe mir ein Lisp gepastel einfach (bin noch Anfänger)aber se funkt.Hat nur einen Hacken ich kann geade bis Hochzählen.(defun textzahler (aus)(setq copytext (entget aus))(setq txt (cdr (assoc 1 copytext)))(setq txt1 (substr txt 1 1))(setq txt2 (itoa(1+(1+(atoi(substr txt 2 1))))))(setq txt3 (substr txt 3 1))(setq txt4 (itoa(1+(1+(atoi(substr txt 4 1))))))(setq txtzu (strcat txt1 txt2 txt3 txt4)) (setq neuedxf (subst (cons 1 txtzu) (assoc 1 copytext) copytext)) (entmod neuedxf) )(def ...
|
| In das Form AutoLisp wechseln |
|
Rund um AutoCAD : Lisp Datei für Raumaustattung
Dober Heinz am 02.12.2008 um 14:21 Uhr (0)
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 (/ roomwidth columns)rowspacing (/ roomheight ro ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Probleme mit Lisp ... Blockwahl
Dober Heinz am 06.12.2008 um 09:04 Uhr (0)
Hallo PrzemoSo müsste es gehn(defun c:raum (/ corner1 corner2 columns rows roomwidth roomheight colspacing rowspacing)(setq Blockn (getstring "Blockname? ")) (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 corn ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Probleme mit Lisp ... Blockwahl
Dober Heinz am 06.12.2008 um 09:59 Uhr (0)
Hallo Przemoso gehts auch mit einer Zeile(defun c:raum (/ corner1 corner2 columns rows roomwidth roomheight colspacing rowspacing)(setq Blockn (getstring "Blockname? "))(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(mi ...
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : Copy und grread
Dober Heinz am 21.03.2012 um 13:33 Uhr (0)
Hallo brauche wieder mal eure HilfeHabr hier ein Lisp, ist nicht von mir, weiss aber nicht von wenn ich das habe.Ich kopiere ein Objekt, dann kann ich es mit der Leertaste drehn, alles ok so. Aber jetzt muss ich mit der ESC-Taste ok sagen um es abzusetzen, ich will das aber mit der linke Maustaste tun.Was muss ich da ändern.Danke mal im VorrausCode:(defun c:Dcc (/ BNAME LOOP ROT GR PT OLDPT EN) (vl-load-com) (setq ssett (car(entsel)));; (getstring (strcat "
Insert name" (getvar "INSNAME") "")) (setq sset ( ...
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : Block einfügen mit LISP und Wert 1
Dober Heinz am 14.01.2009 um 10:44 Uhr (0)
Hallo XEMHier habe ich was.(defun c:raum (/ Blockn corner1 corner2 columns rows roomwidth roomheight colspacing rowspacing)(setq Blockn (getstring "Blockname? "))(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 ...
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : Reaktoren
Dober Heinz am 16.01.2008 um 11:17 Uhr (0)
Hallo LisplerBeschäftige mich gerade mit den Reaktoren.Habe folgenden Code von Lisp-Buch kopiert und getestet.Wenn ich eine Bemassung wähle funktioniert der Code, es wird ein Layer angelegt.Aber wenn ich eine Schraff wähle geschied nichts, kann mir bitte einer sagen wo der Fehler liegt.Danke; Anfang der Datei; Funktion zum Setzen des Reaktors(defun add-cmd-reactors( / ) (vl-load-com) (vlr-command-reactor nil ( (:vlr-commandWillStart . cmd-start-callback)) ) (vlr-command-reactor nil ( (:vlr-commandEnded . ...
|
| In das Form Lisp wechseln |
