|
Lisp : DXF-Code Abfragen
CADmium am 11.09.2006 um 13:45 Uhr (0)
steht in der Lisp-Hilfe zu entmode und zu entmake .. zum Grund ... frag die Programmierer.. wahrscheinlich zeichnungsdatenbankmäßig zu viel zu beachten, so daß die entmake-Funktion an ihre Grenzen stieß und ne Weiter/Neuentwicklung wollte man sich sparen..------------------ - 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 : DXF-Code Abfragen
CAD-Huebner am 11.09.2006 um 14:34 Uhr (0)
Zitat:Original erstellt von PBPaul:Hallo,ich möchte gern zwischen 3D-Drahtmodel und Gouraud-Schattierung toggeln.Nun weiß ich inzwischen, dass der DXF-Gruppencode 281 für Viewportsfür Draht =1 und für Gouraud-Schattiert = 4 ist.Wie kann ich mit LISP diesen Status abfragen und ändern ?MfG PaulSicher wäre es sinnvoll gewesen, deinen Beitrag zum gleichen Thema hier zu verlinken, http://ww3.cad.de/foren/ubb/Forum54/HTML/014762.shtml und http://ww3.cad.de/foren/ubb/Forum259/HTML/001002.shtml damit du keine do ...
|
| In das Form Lisp wechseln |
|
Lisp : _amvars mit externer xls
CADmium am 11.09.2006 um 15:58 Uhr (0)
(if(and(setq DICT(cdr (assoc 350(member (3 . "MDT_EXT_FILES")(entget (namedobjdict)))))) (setq DICT(entget DICT)) (setq DICT(cdr (assoc 350 DICT))) (setq XLS(entget DICT)) (setq XLS(cdr(assoc 1 XLS))) ) XLS)so sollte man rankommen ... was in VBA machbar ist, kann man sicher auch in Lisp umsetzen und dann auch ohne Dialog und in ein Script für mehrere DWGs integriert. Thx an Peter!------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits meh ...
|
| In das Form Lisp wechseln |
|
Lisp : Funktion OSNAP in Intellicad (Bricscad)
s.wickel am 12.09.2006 um 10:46 Uhr (0)
Hallo Forum!ACHTUNG: IntelliCAD!Wegen Arbeitsplatzwechsel musste ich mich von ACAD verabschieden. Aber ich konnte eine Version von Bricscad erringen. Jetzt habe ich ein Poblem mit der LISP-Funktion OSNAP. Die Funktion liefert immer nur NIL zurück. Das bringt leider ein Programm, dass ich gerne benutzte durcheinander.Kennt jemand das Problem? Gibts da Abhilfe?Gruß Stefan.
|
| In das Form Lisp wechseln |
|
Lisp : verfügbare Schriftnamen
CAD-Huebner am 12.09.2006 um 11:55 Uhr (0)
@astlexVielen Dank an dieser Stelle mal für deinen übersichtlichen und gut dokumentierten Code (Jörn und Cadmium lobe ich jetzt mal nicht extra, die werden hier im Forum schon häufig genug - natürlich zu Recht - mit Dank überschüttet).Mir gefällt auch das konsequente Einsetzen der ActiveX Funktionalität von Visual Lisp in deinen Code. Mach bitte weiter so.@Cadmium - man muss auch mal loben - nicht immer nur nörgeln. Kritik ist ja wichtig, gerade bei Programmierung ist Sie ja nicht persönlich gemeint, aller ...
|
| In das Form Lisp wechseln |
|
Lisp : _amvars mit externer xls
schnurlos am 12.09.2006 um 15:35 Uhr (0)
So, und jetzt für alle, die das gleiche Problem haben:Man nehme den Mausrekorder: http://www.freeware.de/Windows/Tools_Utilities/System/Sonstiges/Detail_Mouse_Recorder_12274.html Starte die exe, öffne alle Dateien im Desktop, die editiert werden sollen, drücke beim Mausrekorder auf "Record", 3,2,1 beginne mit dem händischen Update (so wie immer), aktualisiert den xls, amupdate, abspeichern, ... Datei schließen, und jetzt die ESC Taste drücken. Damit hat man dem Mausrekorder alle Schritte gezeigt. Jetzt kan ...
|
| In das Form Lisp wechseln |
|
Lisp : Durchmesserzeichen
CAD-Huebner am 12.09.2006 um 16:18 Uhr (0)
Zitat:Original erstellt von Zec:hallo,es klappt bis zur auswahl besätigen und dann : ; Fehler: no function definition: VLAX-ENAME-VLA-OBJECTgrußzecDann muss einmalig in einem Lisp-Programm die Active X Schnittstelle von Lisp initialisiert werden mit dem BefehlCode:(vl-load-com)Am besten in der ersten Zeile des Lisp Quelltexte einfügen.------------------Mit freundlichem GrußUdo Hübner
|
| In das Form Lisp wechseln |
|
Lisp : Lisp command _explode ergänzen
BBecker am 12.09.2006 um 17:39 Uhr (0)
Hallo,die folgende Lisp-Routine wurde von Cadmium 2004 ins Forum gestellt:(setq auswahl (ssget "X" (list (cons 0 "INSERT")(cons 2 "tuer"))))(repeat(sslength AUSWAHL) (command "_explode" (setq OBJ(ssname AUSWAHL 0)) "") (ssdel OBJ AUSWAHL))Leider wird nach dem Ausführen der Befehl wiederholt. Kann man das irgendwie abstellen oder muß eine Systemvariable gesetzt werden, damit die Wiederholung nicht ausgeführt wird? Die Routine wäre dann perfekt für mich.Lieben Gruß Beate
|
| In das Form Lisp wechseln |
|
Lisp : Lisp command _explode ergänzen
Paulchen am 12.09.2006 um 17:48 Uhr (0)
Hallo Beate,WELCHER Befehl wird wiederholt? Falls das _explode sich wiederholt - kurz und ungetestet: Mach mal ausCode:(command "_explode" (setq OBJ(ssname AUSWAHL 0)) "")(command "_explode" (setq OBJ(ssname AUSWAHL 0)))ohne die "". Hoffe, das hilft?!Frederik
|
| In das Form Lisp wechseln |
|
Lisp : Lisp command _explode ergänzen
BBecker am 13.09.2006 um 09:56 Uhr (0)
Hallo Frederik,zu Deiner Frage welcher Befehl wird wiederholt: das Dialogfenster _appload wird geöffnet.Leider weiß ich nicht wie ich die beiden Zeilen anwenden soll, sorry.Danke und GrußBeate
|
| In das Form Lisp wechseln |
|
Lisp : Lisp command _explode ergänzen
Paulchen am 13.09.2006 um 10:18 Uhr (0)
Hallo Beate,die Sache mit _appload kann ich leider nicht nachvollziehen. Wenn ich bei mir diesenCode:(defun testauswahl (/ auswahl obj);lokale Variablen!(setq auswahl (ssget "X" (list (cons 0 "INSERT")(cons 2 "tesblock"))))(repeat(sslength AUSWAHL) (command "_explode" (setq OBJ(ssname AUSWAHL 0))) (ssdel OBJ AUSWAHL)))eingebe, so löst er alle Blöcke mit dem Namen "testblock" auf.Die "" in der 5. Zeile habe ich entfernt, da ACAD sonst den letzten Befehl erneut aufruft (entspricht [Enter] oder [Leertaste]). ...
|
| In das Form Lisp wechseln |
|
Lisp : Lisp command _explode ergänzen
BBecker am 13.09.2006 um 14:17 Uhr (0)
Super, danke, funktioniert bestens.Gruß Beate
|
| In das Form Lisp wechseln |
|
Lisp : Lisp command _explode ergänzen
marc.scherer am 13.09.2006 um 14:29 Uhr (0)
Hi,kurz und schmerzlos:Code:(if (setq AUSWAHL (ssget "X" (list (cons 0 "INSERT") (cons 2 "tuer")))) (progn (setq ALT-QAFLAGS (getvar "qaflags")) (setvar "qaflags" 1) (command "_explode" AUSWAHL "") (setvar "qaflags" ALT-QAFLAGS) ))Oder schick und sicher mit Rückmeldung und variabel:Aufruf in Deinem Fall dann mit:Code:(INSERTSEXPLODE "tuer")Variabel, weil man die Funktion auch mit allem füttern könnte was wcmatch so verarbeiten kann:Code:(INSERTSEXPLODE "tuer,fenster,schriftfeld")(INSERTSEXPLODE "*")Und ...
|
| In das Form Lisp wechseln |
