|
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 |
|
Lisp : Hilfe bei command schleife
cadplayer am 29.08.2012 um 10:59 Uhr (0)
Absolut klasse, wie systematisch und strukturell du in deinem Code vorgehst ... ist eigentlich meine Art (nur nicht leicht umsetzbar), da ich nicht genau weiss, wie man vorgeht, wenn man eine Unterfunktion aufbaut. An deinem Beispiel habe ich zwar eine sehr gute Vorlage. Aber irgendwie platzt der Knoten nicht.Beispiel der DT:TEXTFILE-LST (DATEINAME /...1) Code:(if (and(=(type DATEINAME) STR)...Abfrage die Eingabe ein String ist2)Code:(while(=(type(setq ZEILE(read-line DATEI)))STR)...lies solange aus wie d ...
|
| In das Form Lisp wechseln |
|
Lisp : Kontrollfrage vor dem verlassen!
CADmium am 02.03.2007 um 07:59 Uhr (0)
Zitat:Original erstellt von joern bosse:@Udo: wenn ich vl-filename-base man schon vorher gekannt hätte... schon mal (fnsplitl "D:ACADBSP.DWG") versucht? ------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
AutoLisp : Dateiname plus Layout1
Brischke am 02.06.2003 um 15:49 Uhr (0)
Hallo Martin, versuchs mal hiermit: Code: (strcat u:druckin (vl-filename-base (getvar dwgname )) - (vla-get-Name(vla-get-ActiveLayout (vla-get-ActiveDocument (vlax-get-acad-object)))) ) Bei Fragen ... Grüße Holger ------------------ Holger Brischke CADlon - Lisp over night! 4 Neue Tool s im FreeDownload (gesamt 33)!?
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Basislayergruppe
CADmium am 03.03.2006 um 08:42 Uhr (0)
1. sag doch bitt, dass das eine Mechanical-Funktion ist, sonst suchen sich manche hier einen Wolf2.(command "_-amlayer" "_g" "_s" "BASE") ...------------------ - Thomas -"Du bist einen uns unbekannten Weg in eine andere Form des Seins gegangen. - Wir sehen uns wieder in deinem Paradies! - Tschüß Axel.."
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Welche .dcl?
Alpschorsch am 26.02.2004 um 11:02 Uhr (0)
Hallo, ich möchte das Fenster beim Block einfügen von seinem festen Korsett lösen. Insbesondere das Name Feld. Das heißt ich möchte das Feld größer machen und es mit dem Curser größer stellen können! Das geht wohl in der acad.dcl oder base.dcl! Wo genau und welche Werte müßte ich wie ändern? Please give me a Tip! Mfg Alpschorsch
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Teilstring ausfiltern
fuchsi am 10.11.2003 um 08:26 Uhr (0)
muss helmut recht geben (print (vl-filename-base D:userdwg_sTEST.TXT )) ; ergibt TEST (print (vl-filename-directory D:userdwg_sTEST.TXT )) ; ergibt D:userdwg_s (print (vl-filename-extension D:userdwg_sTEST.TXT )) ; ergibt .EXE ------------------ *********************************************** AutoCad 2000i, 2002, 2004 deutsch und englisch Windows 2000, NT, XP
|
| In das Form AutoLisp wechseln |
|
Lisp : Hilfe bei AutoLisp Script
CADmium am 29.09.2009 um 09:30 Uhr (0)
(getvar "DWGNAME")oder bei vorhandenem Teststring(strcat(vl-filename-base "H:CADDatenKundenProjekte7099870998244.dwg") (vl-filename-extension "H:CADDatenKundenProjekte7099870998244.dwg") )oder(strcat (cadr(fnsplitl "H:CADDatenKundenProjekte7099870998244.dwg")) (caddr(fnsplitl "H:CADDatenKundenProjekte7099870998244.dwg")))------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
Lisp : hyperlink länge
hometuruk am 20.05.2008 um 12:37 Uhr (0)
Aber händisch das fehlende String dazutippen funzt-- komisch!AC2007...und übernimmt er den url-base dann auch in die "dwf-Datei"?Wir arbeiten mit "eplot classic", da dort mit whip4! auch noch nach Texten mittels des Apis gesucht werden können. In dwf6 funktioniert dies meines wissens nicht mehr (ist aber ein anderes Thema).Aber danke für die HilfeGruesse
|
| In das Form Lisp 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 |
|
Lisp : Umwandlung von (getvar DWGNAME)
CADmium am 29.09.2006 um 10:29 Uhr (0)
es gibt auch die Funktionen (cadr(fnsplitl(getvar "DWGNAME")))oder (vl-filename-base (getvar "DWGNAME"))das mit dem (- (strlen (getvar "DWGNAME")) 4)) funktioniert zwar auch, aber die anderen Funcs sind besser für die anderen Eventualitäten gerüstet------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
AutoLisp : AMLAYER
axeld am 15.01.2003 um 08:59 Uhr (0)
Ich habe bei meinem Mechanical 6 den letzten Servicepack SP4 installiert, und habe seitdem Probleme mit dem Befehl AMLAYER in Verbindung mit meinem Lisp-Programm. Mit "-AMLAYER" "L" "ER" soll man Layer anlegen können. Dies klappt aber nur in einer Layergruppe. Bei mir steht in der Basislayergruppe BASE statt BASIS (wenn man das Fragezeichen eingibt). Gibt es hier vielleicht ein Übersetzungsproblem? Kann mir jemand helfen. Ist es ein AutoCAD-Fehler? ------------------ Axel
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Dateiname plus Layout1
Martin_0103 am 02.06.2003 um 15:35 Uhr (0)
Hallo Forum, ich (Anfänger) bin gerade an einer LSP Datei - ich möchte eine PLT-Datei in ein Verzeichnis schreiben. Die folgende Zeile funktioniert schon: (strcat u:druckin (vl-filename-base (getvar dwgname )) ) ) Jedoch bekomme ich es nicht hin, dass die Datei DWGNAME-Layout? heisst. Wir arbeiten mit MDT6 und mehreren Layouts pro Datei. Vielen Dank für Eure Hilfe... Gruß aus Hessen Martin PS: Leider kein Hitzefrei...
|
| In das Form AutoLisp wechseln |
