|
Rund um Autocad : LISP Anfänger
Brischke am 28.02.2002 um 15:54 Uhr (0)
Hallo Milizeus, dein Problem ist, dass der Bemlinear-Befehl nicht abgearbeitet ist, bevor der alte Layer wieder aktuell gesetzt wird. Deshalb muß eine Schleife eingebaut werden, in der abgefragt wird, ob der Befehl noch aktiv ist. Das ist in der Systemvariablen CMDACTIVE gespeichert. Ist der Bemlinear-Befehl noch aktiv, muß der Benutzer natürlich eingaben tätigen können (command pause). Die Lösung könnte dann wie folgt aussehen. (setq lyakt (getvar "clayer")) (setvar "clayer" "L-SO-BEM") (command "bemlinea ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : LISP Anfänger
Brischke am 01.03.2002 um 07:17 Uhr (0)
Welcher war denn vorher der aktuelle Layer? Beim Testen ist es mir auch mal passiert, daß der L-SO-BEM Layer vorher der aktuelle war, somit keine Änderung sichtbar. Holger
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Einfügewinkel Schraffur
Brischke am 07.03.2002 um 07:24 Uhr (0)
Hallo allerseits, ist ja wirklich ein Problem. Ich glaube prinzipiell erst, wenn ich es selber probiert habe. Der Effekt, den Stefan beschreibt ist tatsächlich vorhanden. Gehe ich nun die ganze Sache mit LISP an, stellt sich mir folgendes Problem in den Weg. Die Musterdaten werden mit in der Schraffur gespeichert. Stellt man einen Winkel für die Schraffur ein, dann wird dieser zu dem Wert des Winkels aus dem Schraffurmuster hinzuaddiert. Problem ist nun den korrekten Winkel des Schraffurmusters herauszubek ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Daten extrahieren
Brischke am 05.09.2001 um 08:22 Uhr (0)
Hallo, mit LISP ist das kein Problem. Folgender Ablauf müßte funktionieren. 1. Alle Blöcke aus der Blocktabelle auslesen. 2. aus allen Blöcken die in einer Liste speichern, die Attribute haben 3. Für jeden dieser Blöcke einen Auswahlsatz erstellen mit den eingefügten Blöcken 4. Aus den Blöcken in den Auswahlsätzen die Attributwerte auslesen und in eine Datei schreiben. Dateiname kann ja = Blockname.txt sein. Bei Fragen ... Grüße Holger
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : DWGs mit LISP als Block laden
Brischke am 16.05.2002 um 12:53 Uhr (0)
Hallo Stefan, wenn der Block immer gleich aussehen soll, dann kann man diesen ja auch im Programm mit entmake erzeugen. Dann brauchst Du kein Insert mehr. Dem Block gleich noch ein Attribut anhängen und du kannst an jeden Punkt diesen Block mit dem gewünschten Text plazieren. Grüße Holger
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : DWGs mit LISP als Block laden
Brischke am 16.05.2002 um 13:41 Uhr (0)
Hallo Stefan, die Frage ist, wie kompliziert bzw. aus wievielen Elementen die Blöcke bestehen. Zur Not kann man sich auch ein kleines Tool schreiben, welches einem das Schreiben der Blockdefinition abnimmt. Nachteil oder auch Vorteil ist: andere können nicht die Blöcke verpfuschen. Den Lisp-Code brauchst du nicht zu ändern, wenn du die Blockdefinitionen in eigenen Konfig-dateien speicherst. entsprechend der Konstellation im Programm wird genau wie beim Einfügen dann eben der eine oder der andere Block gela ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : DWGs mit LISP als Block laden
Brischke am 22.05.2002 um 11:31 Uhr (0)
Hallo Stefan, da ich es selber auch gut brauchen kann, habe ich mich mal damit beschäftigt, die Blöcke ohne (command _.insert ...) in die Zeichnung zu holen. Die von mir vorgeschlagene Variante scheitert ja nur an der Tatsache, dass das Erstellen der Blockdefinitionen zu aufwendig ist, weshalb ich mich damit beschäftigt habe. Beiliegendes Tool erstellt ASCII-Dateien mit der Erweiterung BLK für Block. Diese kann mit (load C: emplockname.blk ) geladen werden. der Block steht dann in der Zeichnung zur Verf ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Ellipse -> Kreis
Brischke am 21.08.2002 um 08:49 Uhr (0)
Hallo Gunnar, anbei die Lösung in Lisp (defun c:el- k (/ ALISTE) (setq ALISTE (ssget "X" ((-4 . " and") (0 . "ELLIPSE") (-4 . "and ") ) ) ) (if ALISTE (mapcar (lambda (el) (aust_el_k(apply append(mapcar (lambda (liel) (if (member(car liel) (-1 8 10 11)) (list liel) ) ) (entget el) ) )) ) (bau_elemli ALISTE) ) ) (princ) );defun (defun bau_elemli (asatz / n elemli) (setq n 0) (repeat ( ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Befehl: messen
Brischke am 03.09.2002 um 13:55 Uhr (0)
Hallo Andrea, du möchtest es ja selber in Lisp machen, deshalb anbei nur eine VLX-Datei, die Deine Aufgabenstellung erfüllt. Ich bin wie folgt vorgegangen: (entsel) - Polylinie analysiert, das gepickte PL-Segment ermitteln - 2Polylinien erstellen die 1. PL geht bis einschl. des 1. Segmentpunkt + Klickpunkt (aus (entsel) die 2. PL beginnt mit dem Klickpunkt + Alle weiteren Punkte aus der PL - Polylinien erzeugen (entmake) dabei die Elementnamen merken!! - jetzt nur noch den Messen-Befehl auf die beiden PL a ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : LISP oder besser VBA oder C++
Brischke am 04.09.2002 um 09:01 Uhr (0)
Hallo Andrea, wenn du von allem keine Ahnung ast, würde ich Dir empfehlen mit LISP weiter zu machen. Diese Sprache läßt sich meiner Meinung nach am schnellsten erlernen. Das Argument der schöneren Dialogfenster lasse ich kaum gelten. Sicherlich sind die Dialoge in Lisp nicht so super schön, aber wichtiger ist doch der Inhalt. Das erstellen der Dialogfenster mit DCL ist etwas bescheiden, aber es funktioniert. Das LISP ausstirbt (zumindest in Verbindung mit AutoCAD) kann ich mir nicht vorstellen. Dieses Gerü ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : LISP oder besser VBA oder C++
Brischke am 04.09.2002 um 09:53 Uhr (0)
Hallo Andrea, du bist schon bei Axel (mapcar) gelandet - das ist gut! Dieses Tutorial ist sehr gut, da man erkennen kann, in welcher Kombination die Befehle was bewirken. Ich nutze hauptsächlich die in VLisp enthaltene Hilfe und denke, dass diese auch beim MDT enthalten ist. DCL sollte dort auch erläutert sein. DCL ist auch nicht so schwer, das einzige was etwas unhandlich ist, ist die Anordnung der einzelnen Elemente. Wenn man aber den Aufbau von Reihen (row) und Spalten (column) erst einmal verstanden ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Linien -> Polylinien automatisch
Brischke am 01.10.2002 um 21:17 Uhr (0)
Hallo Tblaenky anbei ein paar Lisp-Zeilen, die das evtl. bringen. Ich weiß leider nicht wie komplex eine solche Zeichnung aussieht, weshalb ich ein 100% funktionieren nicht versprechen möhte. Bei Fragen ... Grüße Holger (defun c:lplv (/ as elem) (while (setq as (ssget "_X" (list (-4 . " and") (0 . "LINE") (-4 . "and ") ) ) ) (setq elem (ssname as 0) as (ssdel elem as)) (command "_.pedit" elem "_Y" "_J" as "" "") ) ) ------------------ Holger Brisch ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : LISP-Fachmann gesucht
Brischke am 09.10.2002 um 21:52 Uhr (0)
Hallo Urbanisto, wenn ich das richtig verstanden habe, dann hast du 2D-Blöcke in denen ein Punkt und Text enthalten sind. Ich vermute im Text ist auch die Z-Koordinate versteckt? Aus diesen Informationen möchtest Du nun die Blöcke (oder nur die Punkte? auf die entsprechende Z-Koordinate verschieben? Richtig? Grüße Holger PS: Es gibt hier sogar ein extra Lisp-Forum. ------------------ Holger Brischke CADlon - Lisp over night
|
| In das Form Rund um Autocad wechseln |
