|
Lisp : Suche Lisp um ausgeschaltete Layer auch zu frieren
joern bosse am 03.12.2018 um 12:51 Uhr (1)
Hallo Wölfin,mit folgendem Code müßte es funktionieren, alles was aus ist wird dann auch gefroren.Code:(defun c:test ( / ) (vl-load-com) (vlax-for item (vla-get-layers (vla-get-activedocument(vlax-get-acad-object))) (if (=(vla-get-LayerOn item):vlax-false) (vla-put-Freeze item :vlax-true)) ) )------------------viele GrüßeJörnhttp://www.bosse-engineering.comFoto-Manager Youtube
|
| In das Form Lisp wechseln |
|
Lisp : reactor in lisp
fuchsi am 16.05.2011 um 12:32 Uhr (0)
vlr-modified Reaktoren sind ziemlich böse, wenn im Reaktor das Reaktor-aufrufende Objekt geändert wird.Frühere versionen von Autocad sind dabei gnadenlos abgestürtzt, da die im Reaktor aufgerufenen Änderung sofort wieder den Reaktor aufgerufen hat.Neuere versionen verweigern mittlerweile jedliche Änderung im Reaktor.Darum sind im Command-willStart (end) Reaktor auch kein (command "....) erlaubt.
|
| In das Form Lisp wechseln |
|
Lisp : Lisp und Dialogboxen
DrCNC am 10.07.2014 um 14:53 Uhr (1)
Hallo,Ich bin Anfänger in Lisp und bekomme leider das nicht hin.Ich möchte von einem Dialog die Auswahl in eine Variable schreiben.Die Textfelder funktionieren aber nicht die Auswahl.Code:(defun DialogFraesen (/ I1 OK)(setq I1 (load_dialog "CNC.DCL"))(if (null (new_dialog "CNC" I1))(alert "Laden der Dialogbox nicht moeglich!"))(setq ZAchse (atof (get_tile "ZAchse")))(setq WZNr (atof (get_tile "WZNr")))(setq Vor (atof (get_tile "Vor")))(setq Ab (atof (get_tile "Ab")))(setq Links (get_tile "Links"))(setq Nei ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Selektion als Collection in einer Sysvar
CADmium am 02.11.2005 um 08:52 Uhr (0)
in Lisp würde das bei mir so aussehen(if(or(setq AUSWAHL(ssget "_i")) ;_schon was gewählt? (setq AUSWAHL(ssget)) ;_ wenn nicht, dann wähle aus ) (progn (setq i -1) (repeat(sslength AUSWAHL) ;_durchlaufe die Auswahl (setq OBJ (ssname AUSWAHL(setq i (1+ i)) machwas mit OBJ ) )) aber evtl kannst du in VBA was mit dem ActiveSelectionSet des Cocuments machen?------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Neue .DWG erstellen
fewoer am 26.06.2012 um 13:50 Uhr (0)
Eigentlich ist es nicht viel - es geht nur darum einen Knopf zu erstellen, der vom Benutzer markierte Objekte eines 3D-Modells in eine leere DWG kopiert, anschließend aufbricht und sie dann unter Aufforderung eines Dateinamens abspeichert. Aber dazu müsste ich doch 2 Zeichnungen offen haben und zwischen denen Objekte hin- und herkopieren - und das geht ja dann irgendwie mit LISP allein nicht mehr?
|
| In das Form Lisp wechseln |
|
AutoLisp : Bemaßung (Überschreibung)
Proxy am 03.03.2004 um 10:36 Uhr (0)
leider ist die Struktur so angelegt BTW die Verzwiegung für Masszahllose Bemassung, somit eigentlich ein MText mit Pfeilen ist: Code: (if (and(not(wcmatch DIM-TXT * * ))(/= DIM-TXT )) (if (not OVERRIDEN) (setq OVERRIDEN(ssadd (ssname SS IDX))) (setq OVERRIDEN(ssadd (ssname SS IDX) OVERRIDEN)) ) ) ------------------ Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-departmen ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : DCL verkleinern
Brischke am 11.06.2004 um 11:36 Uhr (0)
Hallo Jürgen, wie groß der Bildschirm ist, das ist doch egal. Wichtig ist die Auflösung, mit der gearbeitet wird. Gibt es noch Leute, die mit 800x600 arbeiten? Welche Auflösung hast du? Kannst ja ausprobieren, ob bei 1024x768 das Diafenster noch angezeigt wird. Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man s hat! Treffen Sie (defun auf dem Autodesk Anwendertreffen am 15.06. in Steyr/Österreich !
|
| In das Form AutoLisp wechseln |
|
Lisp : Region in Polylinie verwandeln.
Bernhard GSD am 21.10.2005 um 10:00 Uhr (0)
Wie kann ich mittlels Lisp eine Region wieder in eine Polylinie verwandeln? Beim Ursprung entstehen ja nur Linien.Ich versuche hier den Ansatz von http://ww3.cad.de/foren/ubb/Forum54/HTML/012237.shtml weiterzuentwickeln.Ziel ist also ein Befehl der Polylinien so wie Regionen vereingigt.Zuerst sollen die Polylinien in Regionen verwandelt werden, dann erfolgt die Vereinigung und abschliessend die Rückverwandlung.------------------Gruß aus WienBernhard
|
| In das Form Lisp wechseln |
|
Lisp : Layer Ansichtsfenster Farbe mit lisp ändern
Andreas Kraus am 25.09.2025 um 11:20 Uhr (1)
Ja, sowas hab ich auch gefunden. Hab ich mich noch NIE mit beschäftigt. Hab ich irgendwie noch nie gebraucht.Finde es aber interessant vielleicht eine Layerverwaltung incl. Ansichtsfenster zu bauen.Da könnte man übergreifend Farben, frieren/tauen usw. managen.Komme ich aber grade nicht dazu. Vielleicht hat jemand Lust drauf ?------------------Geht nicht, gibts nichtGrußAndreashttp://kraus-cad.de
|
| In das Form Lisp wechseln |
|
AutoLisp : Layer in vorh. Lisp ändern
AsSchu am 17.09.2003 um 10:34 Uhr (0)
Hi Mapcar, das habe ich eben auch herausbekommen. So klappt das auch bei mir. ;; Blockdefinition fuer temp. Linienbloecke erzeugen: (setq clayer (getvar CLAYER )) ; (entmake ((0 . BLOCK )(2 . BOESCH )(10 0.0 0.0 0.0)(70 . 0))) (entmake (list (0 . LINE ) (10 0.0 0.0 0.0) (if (minusp d) (11 0.0 0.0001 0.0) (11 0.0 -0.0001 0.0) ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : polylinien gc70
Brischke am 29.09.2003 um 10:27 Uhr (0)
Hallo georg, der GC 70 ist wie folgt beschrieben: Flag Polylinie (bitcodiert); Vorgabewert = 0: 1 = Geschlossen; 128 = PLINEGEN PLINEGEN 70 Steuert die Erzeugung von Linientypmustern an den Kontrollpunkten einer 2D-Polylinie: 1 = Linientyp wird in einem fortlaufendem Muster an den Kontrollpunkten der Polylinie erzeugt 0 = Die Segmente der Polylinie beginnen und enden mit einem Strich Bei Fragen ... Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! ...mit erweitertem Leistunss ...
|
| In das Form AutoLisp wechseln |
|
Lisp : fensterstempel
tmoehlenhoff am 11.07.2006 um 12:28 Uhr (0)
Wenn man den Stempel hat kann man über den Anker das Fenster "finden". In Lisp sieht das dann so aus:Code:(setq tag (car (entsel "
Fensterstempel wählen:")) tagv (vlax-ename-vla-object tag) winv (vlax-get-property (vlax-invoke-method tagv getanchor) reference) win (vlax-vla-object-ename winv))Danach steht in win der Entity-Name des Fensters.sayonaraTorsten MöhlenhoffACAD-Systemhaus Bremen------------------Alles wirD guT
|
| In das Form Lisp wechseln |
|
AutoLisp : Scheitelpunkt x / Kontollpunkt
AB am 15.07.2003 um 07:19 Uhr (0)
Hallo Theodor, gut ist übertrieben, ich habe nämlich schon wieder ein Problem entdeckt. Wenn eine der Linien aus vielen kleinen, einzelnen Linien zusammengesetzt wurde, dann läßt sich schon wieder kein Schnittpunkt finden. Es ist zum Verrückt werden. Wenn ich das Problem gelöst habe, dann werde ich das LISP hier rein stellen. Viele Grüße Andrea
|
| In das Form AutoLisp wechseln |
