|
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 |
|
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 |