|
Lisp : getfiled
CADwiesel am 23.09.2013 um 06:48 Uhr (1)
oder einfach die Endung der ausgewählten Datei aus der Rückgabe von getfieled per vl-filename-base entfernen.------------------GrußCADwieselBesucht uns im CHAT
|
| In das Form Lisp wechseln |
|
Rund um Autocad : Block-Attribute mit lisp ausfiltern.
CADwiesel am 11.10.2002 um 13:03 Uhr (0)
Hai Du kannst 1. Die Filterliste noch spezifizieren und 2. Musst Du dien Attribut benennen. (z.Zt. steht da Basis) und 3. musst Du einen Eintrag machen was Passieren soll, wenn das Attribut mit dem gesuchten übereinstimmt. (z.Zt steht da (setq M:base (assoc 10 M:ELIST)) ) (prompt "
---- Starten mit BLK-ATT ") (defun C:BLK-att (/ M:MD_ERR M:FEHLER M:SS1 M:SS1LEN i M:ENAME M:ELIST M:ETYPE M:BTAB M:BASE M:BLK ) (setq M:M ...
|
| In das Form Rund um Autocad wechseln |
|
AutoLisp : Block im Bestimmten Verzeichnis Speichern
CADwiesel am 27.06.2006 um 15:39 Uhr (0)
hier mal was unter 2002 gehtCode:(if(and (setq a(ssget) b(getpoint "
Einfügepunkt: ") c(getstring"
Blockname: ") ) (null(findfile(setq d(strcat "U:User"(vl-filename-base c)".dwg")))) ) (command "_.wblock" d "" b a "") )------------------Gruß CADwieselBesucht uns im CHAT
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Block im Bestimmten Verzeichnis Speichern
CADwiesel am 28.06.2006 um 12:57 Uhr (0)
Hier etwas zum laden und ausführen von Lisp-code http://ww3.cad.de/foren/ubb/Forum54/HTML/007058.shtml und hier nochmal schnell das lisp:[code](defun c:Userblk ( / a b c d )(vl-load-com)(if(and (setq a(ssget) b(getpoint "
Einfügepunkt: ") c(getstring"
Blockname: ") ) (null(findfile(setq d(strcat "U:User"(vl-filename-base c)".dwg")))) )(command "_.wblock" d "" b a "")))------------------Gruß CADwieselBesucht uns im CHAT
|
| In das Form AutoLisp wechseln |
