|
Lisp : Welche Dias sind in SLB ?
joern bosse am 11.12.2007 um 11:09 Uhr (0)
Hallo Andreas,vielleich helfen Dir folgende Codeschnipsel weiter:Code:(if (setq pfad (ext_folder "Bitte sld-Verzeichnis auswählen:")) (mapcar vl-filename-base(vl-directory-files pfad "*.sld" 1)));;;Verzeichnisauswahl(defun ext_folder (str / folder obj_shell) (setq obj_shell (vlax-get-or-create-object "shell.application")) (if (setq folder (vlax-invoke obj_shell "BrowseForFolder" 0 str 1)) (setq folder (vlax-get (vlax-get folder "Self") "Path"))) (vlax-release-object obj_shell) folder)------------------vie ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Basislayergruppe
bu am 03.03.2006 um 08:36 Uhr (0)
Tach Leute, über (command "_-amlayer" "_g" "_s") versuche ich die Basislayergruppe zu setzen.Auf dieses command bekomme ich Enter layer group name to make current (enter BASE for base) or select object:zurück.Doch wenn ich nun "BASE" eingebe bekomme ich nunCannot find layer group "base"zurück.Wo steckt mein Denkfehler?Gruesse bu
|
| In das Form AutoLisp wechseln |
|
AutoLisp : 2006 - der zweitbeste Wackelpudding nach 13
mapcar am 15.09.2005 um 00:23 Uhr (0)
Ich zerbreche mir grad den Kopp über das hier - ein Original-Mitschnitt der Kommandozeile.Code:Command: !*base-bottom-left*(200 0 200)Command: lineSpecify first point: !*base-bottom-left*Invalid point.Specify first point: *Cancel*Command: (setq *start* *base-bottom-left*)(200 0 200)Command: lineSpecify first point: !*start*(200 0 200)Specify next point or [Undo]: 1000,0,0Specify next point or [Undo]: Ich verstehe das nicht. Versteht das irgend jemand hier?Gruß, Axel Strube-Zettler------------------Meine Au ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Kontrollfrage vor dem verlassen!
joern bosse am 02.03.2007 um 07:25 Uhr (0)
Hallo Steinwurm,dann müßte es doch eigentlich so funktionieren: (den Serverpfad in der ersten SETQ-Anweisung müßtest Du anpassen)Code:(setq serverpfad "K:Server")(command "bereinig" "bl" "" "n") (cond ((tblsearch "BLOCK" "A$C783F64F9") ( (if (not (findfile (strcat serverpfad (vl-filename-base(getvar "DWGNAME"))".dxf") )) (alert "DXF für ASS bitte erstellen!")))))@Udo: wenn ich vl-filename-base man schon vorher gekannt hätte... ------------------viele GrüßeJörn
|
| In das Form Lisp wechseln |
|
Lisp : Hilfe bei command schleife
CADmium am 28.08.2012 um 10:14 Uhr (0)
wie sieht dir Datendatei denn nun überhaupt aus ?bis dahin ein paar Funktionen mit nur einer Aufgabe;; Funktion zum Einlesen einer Datei(defun DT:TEXTFILE-LST (DATEINAME / DATEI ZEILE BASE-LST ) (if (and(=(type DATEINAME) STR) (setq DATEINAME(findfile DATEINAME)) (setq DATEI (open DATEINAME "r")) ) (progn (while(=(type(setq ZEILE(read-line DATEI)))STR) (setq BASE-LST (cons (vl-string-trim " " ZEILE) BASE-LST)) ) (setq DATEI(close DATEI)) BASE-LST ...
|
| In das Form Lisp wechseln |
|
Lisp : Block mit Command _.insert und * für Ursprung einfügen?
joern bosse am 08.08.2016 um 08:51 Uhr (1)
Hallo,ich habe mich jetzt für folgende Version entschieden:Code:(setq pfad "s:MeineBloeckeMeinBlock.dwg")(command "_.insert" (strcat (vl-filename-base pfad)"="pfad))(command)(vla-delete (vla-item (vla-get-blocks (vla-get-activedocument (vlax-get-Acad-Object)))(vl-filename-base pfad)))Damit habe ich mein Ziel erreicht, es geht sehr viel schneller als meine bisherige Version. Jetzt ist das Thema für mich abgehakt, danke für die vielen Antworten.------------------viele GrüßeJörnhttp://www.bosse-engineering.co ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Eingabe eines Punktes per Lisp
WolfgangE am 14.01.2004 um 10:03 Uhr (0)
Vielleicht nochmal ein ganz konkretes Beispiel bezüglich der Koordinaten-Eingabe: Die Varialbe BASE beinhaltet die Koordinaten aus der (ENTGET)-Definition. Die Koordinaten speichere ich nach X und Y (alles direkt an der Kommandozeile): Befehl: AMCVTFRAME12 Bitte Rahmenblock wählen: X,Y *Ungültige Auswahl* Erwartet einen Punkt oder Letztes Bitte Rahmenblock wählen: *Abbruch* Befehl: (SETQ X (CAR BASE)) -1714.6 Befehl: (SETQ Y (CADR BASE)) -1703.23 ********************************* Jetzt Folgende Eingaben: ...
|
| In das Form AutoLisp wechseln |
|
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 : Dateiname plus Layout1
Martin_0103 am 03.06.2003 um 12:31 Uhr (0)
Hallo Holger, erstmal vielen Dank für die schnelle Antwort - aber irgendwie steckt bei mir der Wurm im Getriebe... Folgend findest Du meine LSP Datei, sie läuft durch, erstellt von dem aktiven Layout eine PS Datei unter dem DWGNAMEN (defun c:PS_MDT6_OUT () (setq diafile (getvar filedia )) (setvar filedia 0) (command -layer machen iso se 0 fr iso ) (command _zoom g ) (command _.-plot _yes PS Drucker A3 QUER (PDF).pc3 A3 _m Hochformat nein grenzen anpass ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Automatic Dimension AutoCAD LISP??
kadirozen am 28.07.2023 um 15:14 Uhr (1)
Ich habe mich entschieden, mit LISP-WriteBlock zu beginnen, weil das für uns am meisten Zeit in Anspruch nimmt.Ich habe ein gewisses Niveau mit dem Code erreicht, aber ich versuche immer noch herauszufinden, was wirklich los ist.Ich habe die Befehle DXFOUT WBLOCK und SAVEAS ausprobiert, dxf out funktioniert tatsächlich, aber die Daten, die damit erstellt werden, sind beschädigt und können nicht geöffnet werden.Wblock geht auch nicht weiter.Mit dem Befehl SAVEAS komme ich auf eine bestimmte Ebene.Ich bleibe ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Teilstring ausfiltern
Helmut F am 10.11.2003 um 07:59 Uhr (0)
Hallo Theodor, wäre die Funktion (vl-filename-base filename) nicht die optimale Lösung? Gruß Helmut
|
| In das Form AutoLisp wechseln |
|
Lisp : Automatic Dimension AutoCAD LISP??
kadirozen am 28.07.2023 um 16:12 Uhr (1)
Ich konnte es nicht ausgiebig testen, aber dieser Code funktioniert im Moment.Ich suche nach einer Möglichkeit, beide if-Anweisungen zu kombinieren, um eine Bedingung zu erfassen und zu machen, so dass, wenn ein Fehler auftritt, das Programm beendet werden kann, bevor es weitergeht.Der nächste Schritt wäre, die Änderung des Layerstatus am Anfang hinzuzufügen, ich habe ein wenig gesucht, konnte aber leider nicht viele Informationen zu diesem Thema finden.Code:(defun c:RZ ( / dwg_name dxf_name folder_r12 fo ...
|
| In das Form Lisp wechseln |
|
Lisp : Getiled Dateinamen ohne Erweiterung in Variable
cadffm am 12.05.2015 um 13:49 Uhr (1)
ohne mir jetzt die optionen von getfiled in der kostenlosen Hilfe anzusehen würdeauf jeden Fall ein (vl-filename-base PFAD) funktionieren. ------------------CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD
|
| In das Form Lisp wechseln |
