|
Lisp : Punktkoordinaten aus Datei auslesen
CADmium am 01.09.2011 um 09:50 Uhr (0)
Zitat:Original erstellt von cadplayer:Kann man via Lisp einen Block aus einem Suchpfad laden?Ja------------------ - 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 : Punktkoordinaten aus Datei auslesen
CADmium am 01.09.2011 um 10:15 Uhr (0)
Zitat:Original erstellt von cadplayer:Glasklare Antwort... wie, via script?z.b. ganz rudimentär ungefähr so :(if (tblobjname "BLOCK" NAME) (command "_insert" NAME ....) (if (findfile (strcat NAME ".dwg")) (command "_insert" (strcat NAME ".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 : Punktkoordinaten aus Datei auslesen
CADmium am 01.09.2011 um 10:37 Uhr (0)
Zitat:Original erstellt von cadplayer:(command "insert" (getfiled "TITEL" "M:/Mallar/Cad/Autolisp/simple-block/meas" "dwg" 2)) 0 1 1 0 )wie stelle ich es an das die Dialogbox nicht aufgeht?..getfiled ruft eine Dialogbox auf .. das ist Sinn und Zweck .... zur Lösung deines "Problems" .. Siehe 2 Beiträge zurück.IMHO stoppelst du dir da was zusammen ohne zu verstehen .....------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der ...
|
| In das Form Lisp wechseln |
|
Lisp : Punktkoordinaten aus Datei auslesen
CADmium am 10.06.2008 um 11:20 Uhr (0)
Ist es so klarer : ...?(setq LISTE (read(strcat "(" zeile ")")))(command "_.POINT" (list (nth 0 LISTE) ;_Nr des X Wertes (nth 1 LISTE) ;_Nr des Y Wertes (nth 2 LISTE) ;_Nr des Z Wertes ))------------------ - 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 : Punktkoordinaten aus Datei auslesen
CADmium am 10.06.2008 um 12:19 Uhr (0)
und bei (setq LISTE (read(strcat "(" zeile ")")))?------------------ - 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 : Kochbuch Autolisp im Antiquariat
CADmium am 07.10.2011 um 19:52 Uhr (1)
.. die wissen halt nicht , dass das Kochbuch auch als EBook beim AUTOCAD 2010 -Buch von diesem Flandera beiliegt .... ------------------ - 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 : Lisp Fehler
CADmium am 28.10.2011 um 09:01 Uhr (0)
Jo da fehlt auch ein Teil in der Lisp , den Ihr vielleicht in einer extra-lsp-Datei habt, die auf dem Rechner der Kollegen nicht existiert.IMHO kommt mir der Text auch sehr bekannt vor ....hier der Rest (defun ROUND-ATTRIBUTWERT ( INSERT ATTRIBUTNAME STELLEN / OBJEKTDATEN WERT) (if (and(=(type INSERT) ENAME) (=(cdr(assoc 0 (setq OBJEKTDATEN (entget INSERT)))) "INSERT") (assoc 66 OBJEKTDATEN) ) (progn (while (/= (cdr (assoc 0 OBJEKTDATEN)) "SEQEND") (setq OBJEKTDATEN (entget (en ...
|
| In das Form Lisp wechseln |
|
Lisp : .lsp entladen
CADmium am 22.11.2011 um 09:43 Uhr (0)
du kannst auch die Funktionen in einer Datei vorhalten .... und was hast du umdefiniert ? Befehle mit _undefine ? oder bloß ein (defun c:S()..) ?------------------ - 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 : Funktion zum Öffnen einer Lisp-Datei
CADmium am 22.11.2011 um 14:47 Uhr (0)
(startapp "notepad" "D:meine.lsp") ? oder(if(setq DATEI(findfile "MEINE.LSP")) (startapp "notepad" DATEI) (alert "Datei nicht gefunden"))Ansonsten Siehe Sig ------------------ - 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 : Funktion zum Öffnen einer Lisp-Datei
CADmium am 22.11.2011 um 18:13 Uhr (0)
Ähmmm .. du editierst deine lsp im Notepad und nicht im integrierten VLIDE ?------------------ - 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 : Funktion zum Öffnen einer Lisp-Datei
CADmium am 22.11.2011 um 18:50 Uhr (0)
ja ja ... ich muss Bäume fällen und hab keine Zeit , meine Axt zu schärfen oder mal zum Nachbarn zu gucken, wie der mit der Motorsäge umgeht ... ------------------ - 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 : Fehlerhafte Assoziationsliste
CADmium am 01.12.2011 um 09:27 Uhr (0)
Zitat:Original erstellt von Andreas Kraus:Wenn der Inhalt der TXT-Datei so aussieht:(QUOTE(("K0001" "a")("K0002" "b")("K0053" "K-ref.dwg")))brauchst du zum Einlesen nur (setq liste (load "Euska-Ref.txt"))evtl. mit Pfadangabe aber damit kannst du die Einlesefunktion vereinfachen.auch wenn das erstmal einfach aussieht( und auch ne schöne Idee ist!!) , wäre mir das zu Fehleranfällig ... da muss man genau wissen, was die Inhalte sind, und was passiert...Für solche Sachen ist das alte ini-Format eigentlich gan ...
|
| In das Form Lisp wechseln |
|
Lisp : Region umwandeln
CADmium am 09.12.2011 um 07:41 Uhr (0)
Zitat:Original erstellt von archtools: .... Es ist ein Jammer, dass AutoCAD solche Funktionalität nicht selbst enthält. IMO gehört sowas zu den Basisfunktionen jedes simplen 2D-CAD-Programms..... Mir wärs lieber, wenn AutoCAD das direkt enthielte.Unterschreib ich. Ich hätte da auch noch ein paar andere Ideen ....------------------ - 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 |
