|
Lisp : Drucken mehrerer Zeichnungen
Voltaren007 am 07.03.2007 um 09:53 Uhr (0)
Hallo,wie kann ich über Lisp mehrere Zeichnungen aufeinmal drucken?z.B. alle geöffneten Zeichnungen oder alle aus einem Verzeichnis
|
| In das Form Lisp wechseln |
|
Lisp : Drucken mehrerer Zeichnungen
cadffm am 07.03.2007 um 10:57 Uhr (0)
Also generell zum Drucken mehrerer Zeichnungen (ohne Lisp)AutoCAD-Befehl PUBLIZIEREN.oder über Script und ScriptPro bzw. SCC2Das sind die beiden Varianten und man muß sie nicht neu erfinden.Wie CADmium schon sagte: Diese Begriffe in die Suchfunktiondes RundUmAutoCAD-Forum und du hast viel Lesestoff.
|
| In das Form Lisp wechseln |
|
Lisp : Drucken mehrerer Zeichnungen
CADmium am 07.03.2007 um 10:01 Uhr (0)
Mit Lisp (ohne AktivX.. da gibt es die Methode "PlotToDevice") gehts gar nicht, da das Lispprogramm an den Namesspace der Zeichnung, in der es geladen wurde, gebunden ist, deshalb .. schon mal was von _script gehört? Ähnliche Anfragen (und Lösungen) wurden im "Rund um Autocad"-Forum schon des öfteren behandelt.Da verweis ich mal ganz schnöde an die Forensuche, ohne die jetzt selber für dich zu bemühen ------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems berei ...
|
| In das Form Lisp wechseln |
|
Lisp : Laufenden AutoCAD-Befehl in Lisp beenden.
fred_tomke am 12.03.2007 um 09:56 Uhr (0)
Hallo,ich habe mit der Suchfunktion nicht ganz das gewünschte Ergebnis erhalten, deshalb probiere ich es auf diesem Wege:Ich habe einen AutoCAD-Befehl in einem LISP-Programm gestartet, z.B. mit(vl-cmdf "_solidedit" "_face" "_color")Dann kann der User der Reihe nach die Flächen wählen. Leider geht das innerhalb von _solidedit nicht mit ssget, dann wäre das Problem schnell gelöst. Man muss den User in die Flächen des Volumenkörpers klicken lassen. Der Befehl _solidedit leuchtet die Flächen dann aus. Klar, au ...
|
| In das Form Lisp wechseln |
|
Lisp : Laufenden AutoCAD-Befehl in Lisp beenden.
CADmium am 12.03.2007 um 10:16 Uhr (0)
keine Ahnung worauf das hinauslaufen soll, aber(progn(vl-cmdf "_solidedit" "_face" "_color")(while (/=(getvar "cmdactive")0)(command pause)))suchst du sowas?..ein reines (command) statt (command pause) bricht ab ..------------------ - 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 : Laufenden AutoCAD-Befehl in Lisp beenden.
fred_tomke am 12.03.2007 um 10:49 Uhr (0)
Hi cadmium,nein, nicht ganz.(while (/=(getvar "cmdactive")0)(command pause))kenne ich. Diese Variante beendet das Programm, indem alle Eingaben mit Eingabe bestätigt werden. Und das ist das, was ich nicht unbedingt will.Konstruierter Fall:(vl-cmdf "_solidedit" "_face" "_color")der User pickt eine Fläche, nimmt dann die Option alle, stellt fest dass er doch nicht will und drückt ESC. Das fange ich ja ab bei getpoint. Mache ich dann wie von Dir beschrieben weiter, wird den gewählten Flächen eine andere Farbe ...
|
| In das Form Lisp wechseln |
|
Lisp : Laufenden AutoCAD-Befehl in Lisp beenden.
CADmium am 12.03.2007 um 10:55 Uhr (0)
na dann hätte ich noch(defun DT:SENDKEYS (KEYS / WSCRIPT) (if(setq WSCRIPT (vlax-create-object "WScript.Shell")) (progn (vlax-invoke-method WSCRIPT sendkeys KEYS) (vlax-release-object WSCRIPT) ) ) (princ) )und dann der Aufruf(DT:SENDKEYS "{ESC}")wenn du weißt, wann du ihn aufrufst.. ..wenn nicht, lad mal die Funktion und gib(DT:SENDKEYS "{F1}") in der Befehlszeile ein ------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr a ...
|
| In das Form Lisp wechseln |
|
Lisp : Laufenden AutoCAD-Befehl in Lisp beenden.
fred_tomke am 12.03.2007 um 11:12 Uhr (0)
Na, das sieht doch mal Klasse aus! Danke!Janze 10 Taler gehen auf die Reise.VG, Fred------------------Fred TomkeDipl.-Ing. (FH) Landespflege
|
| In das Form Lisp wechseln |
|
Lisp : Laufenden AutoCAD-Befehl in Lisp beenden.
CADmium am 16.03.2007 um 09:44 Uhr (0)
Zitat:Original erstellt von HofCAD:Hi cadmium,Warum nicht(command) und (command "HELP")?VG HofCADLies den gesamten Thread!! ------------------ - 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 : Unwandlung von dxf zu Text Format
Proxy am 12.03.2007 um 12:59 Uhr (0)
Du kannst ja auch die "x-y Koordinaten" mit Punkten markieren und dann mit Lisp ausgeben, bzw es mal zur Awechslung mit einer Polylinie verscuhen. IMHO wurde hier schon im Forum ein Lisp gepostet Pline 2 file osä. Zitat:[...] (if (= (vlax-get-property theobj ObjectName) "AcDbPolyline") (progn (setq thelist (vlax-get-property theobj coordinates)) (setq thelist (vlax-safearray-list (variant-value thelist)))[...] ------------------ MfG ProxyBitte beachten Sie: Die Verwendung der hier bereitgestellten ...
|
| In das Form Lisp wechseln |
|
Lisp : Befehlszeilenoption für _.save ??
marc.scherer am 26.09.2005 um 13:07 Uhr (0)
Hi Jörn,keine Chance mit Sysvar.Ich habe so etwas ähnliches bei meinem Block-Out Programm.Da frage ich einfach vorher ab, ob ich s mit Map zu tun habe und verzweige dann auf eine extra command-Zeile:Code:(if (findfile "acadmap.arx");_ Acad-Map aktiv! ;; Kommandozeile bei Autodesk Map 5 (command "_.-wblock" (strcat PATH "" ELEM ".dwg") ELEM "_n" ) ;_ end of command ;; Komandozeile ohne Map (command "_.-wblock" (strcat PATH "" ELEM ".dwg") ELEM) ) ;_ end of if...Edit:Wenn Dir das prüfen mi ...
|
| In das Form Lisp wechseln |
|
Lisp : Laufenden AutoCAD-Befehl in Lisp beenden.
HofCAD am 16.03.2007 um 09:38 Uhr (0)
Hi cadmium,Warum nicht(command) und (command "HELP")?VG HofCAD
|
| In das Form Lisp wechseln |
|
Lisp : layer invertieren
CADmium am 21.03.2007 um 22:14 Uhr (0)
Eine gute Einführung bietet das demnächst auch hoffentlich als Buch erscheinende Tutorial von Mapcar und ein Lisp-Handbuch für R14 ... nicht zu vergessen die Onlinehilfe (aber da muß man ja erst wissen wonach man sucht .Wenn du im englischen Fit bist kann ich noch AFRALISP empfehlen.Aber noch mal zu deinem Bsp:(defun c:swi (/ lay layli) ... lay layli sind lokale Variablen (while (setq lay (tblnext "LAYER" (not lay))) ...solange mit der Funktion tblnext noch ein Layer in der Layertabelle gefunden wird, spe ...
|
| In das Form Lisp wechseln |
