|
Lisp : Ein Attributt ändern
fuchsi am 08.10.2007 um 12:40 Uhr (0)
Zitat:Original erstellt von Dober Heinz:Hallo joern bosse Da hat sich ein Fehler eingeschlichen(progn (entmod (subst (cons 1 "a105txt1")Sehe ich aber nicht soa105txt1 ist eine Variable (sieghe Urpsrungsposting) , die den gewünschten Text ("Mein Text") enthält !Also ists so richtig, wies war !(progn (entmod (subst (cons 1 a105txt1) .....------------------ Ing. Anton FuchsWWW.FFZELL.AT.TC
|
| In das Form Lisp wechseln |
|
AutoLisp : Objekte suchen ihn Zeichnung
fuchsi am 18.10.2005 um 10:25 Uhr (0)
Zitat:Original erstellt von Dober Heinz:Hallo Lisplerich habe mit diesem Befehl (setq (ssget)) ein Objekt gewählt, wie kann ich die Ganze Zeichnug durchsuchen nach gleichen Objekten.danke heinzich würd das erste Objekt nicht mit SSGET wählen, sondern mit Entsel (ssget = Objkte wählten entsel = Objekt wählen)und dann z.B.: hiermit(setq en (car (entsel)))(setq ed (entget en))(setq ss (ssget "X" (list (cons 0 (cdr (assoc 0 ed))))))alle Elemente des gleichen Typs (z.B.: alle Linien) wählen------------------ ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Text kopieren und ändern
fuchsi am 29.09.2005 um 12:50 Uhr (0)
Zitat:Original erstellt von Dober Heinz:Hallo LisplerBin AnfängerHabe einen Text 111/9 will ihn kopieren und die neun um eine erhöhen.Nach abfrage bekomme ich das zurück "111/9" wie muss ich das umwandeln um den Text bearbeiten zu können bzw. die 9 auf 10 umwandeln. _$ (setq letzteob (cdr (assoc 1 abfrage)))"111/9"danke heinzich würds so machen(setq a1 "115/1")(setq a2 (fsplit a1 "/")) ; - (115 1)(strcat (itoa (car a2 )) "/" (itoa (1+ (cadr a2))));---------------------------------------------------------- ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Nummern hochzählen
fuchsi am 19.10.2005 um 15:58 Uhr (0)
Zitat:Original erstellt von Dober Heinz: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 c ...
|
| In das Form AutoLisp wechseln |
