|
AutoLisp : block tauschen gc2
Brischke am 14.10.2003 um 15:13 Uhr (0)
Hallo Georg, Ein INSERT ist ein Verweis auf einen BLOCK, die Darin enthaltenen ATTDEF s werden beim Einfügen kopiert und sind dann ATTRIB s. Im BLOCK sind die Geometrieelemente und auch als Besonderheit die variablen Elemente, die ATTDEF s, gespeichert. Mit Deiner Vorgehensweise schaffst du da Unterschiede, die Acad manchmal eben nicht so sehr mag. Egal was du machs, achte immer darauf, dass die Blockdefinition die gleichen Daten beinhaltet wie die Insert s, ansonsten fällst du damit auf die Nase. Um das s ...
|
|
AutoLisp : block tauschen gc2
Brischke am 15.10.2003 um 10:37 Uhr (0)
Hi Achim, ich habe in einem Tool die Attribute eines Inserts gelöscht. Danach war die Zeichnung nicht mehr zu gebrauchen. Das habe ich auf die Unterschiede zwischen Definition und Insert zurück geführt. Aus dieser Erfahrung heraus, ist es für mich zum Gesetz geworden, die Blockdefinition und die Inserts auf dem gleichen Stand zu halten, was die Anzahl der Attdefs/Attribs angeht. Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD NEU: AutoLISP ...
|
|
AutoLisp : Plotdialog in Lisp nutzen
Brischke am 15.10.2003 um 00:51 Uhr (0)
@marvin101010 wie steh ich nun da, wenn ich auch keine Antwort habe?? folgender Ansatz ist auch nur eine Idee, habe es nicht getestet (command _.plot (while (/= 0 (setq cmdak (getvar CMDACTIVE ))) ;Tja was soll er da machen? ) ) Wahrscheinlich ist noch der Wert von CMDAKTIVE zu unterscheiden, ob ein Diafenster offen ist, oder in der Befehlszeile etwas passiert. Bei befehlszeile dann ein fach die 2 (getpoint ..) rein. Vielleicht funzt das ja??? Grüße Holger ------------------ Holger Brischke (de ...
|
|
AutoLisp : Konstruktionslinien versetzen von einer Linie in einem Block
Brischke am 20.10.2003 um 20:47 Uhr (0)
Hallo CAD-Tötti, ob ein Layer vorhanden ist kannst du mit (tblobjname..) prüfen. Siehe dazu dort: http://ww3.cad.de/foren/ubb/Forum145/HTML/000261.shtml Einen Layer erzeugen solltest du innerhalb eines Reactors mit (entmake ..) Das könnte dann so aussehen: Code: (entmake (if ( 14 (atoi(substr (getvar acadver ) 1 2)));AutoCAD-Version abfragen (list (0 . LAYER ) (100 . AcDbSymbolTableRecord ) (100 . AcDbLayerTableRecord ) (cons 2 ltbs_name);Name als String (70 . 0) (cons 62 ...
|
|
AutoLisp : nummerierung der referenzen
Brischke am 22.10.2003 um 11:40 Uhr (0)
Hallo Steffen, ich habe es mir nun einmal engesehen, machbar ist das, aber auch ein wenig aufwendig. Du willst das also Programmieren, dann solltest du dir die (vlax-curve ..) -Funktionen mal anschauen, damit ist das dann, den ersten Teil betreffend, alles machbar. Das mit der Spline habe ich noch nicht so ganz verstanden. Ich versuche mal zu beschreiben, wie ich das verstanden habe. Du willst eine Spline/3DPolyline zeichnen, die entsprechend der Teilung der Linie (10er-Schritte) Stützpunkte hat. Diese St ...
|
|
Lisp : Layer umschalten bei der Bemassung
Brischke am 13.10.2003 um 13:28 Uhr (0)
Hi, jetzt will ich mich auch einmal einmischendie folgenden paar Zeilen sind für die Implementierung eines Reaktors vollkommen ausreichend- es sind auch alle Befehle, die mit DIM beginnen erschlagen. Code:(defun pre_lay (reatyp befname / );Wenn Bem gestartet wird (cond ((wcmatch (car befname) "DIM*") (setq *oldlay* (getvar "CLAYER")) (setvar "CLAYER" "0") ) ) )(defun after_lay (reatyp befname / );Wenn Bem beendet wird (cond ((and (wcmatch (car befname) "DIM*") *oldlay* ) (setvar "CLAYER ...
|
|
Lisp : Layer umschalten bei der Bemassung
Brischke am 13.10.2003 um 22:57 Uhr (0)
Hallo CAD-Tötti,Reactoren reagieren ohne weitere Befehlseingabe auf ein bestimmtes Ereignis.Object-Reactoren auf irgendeine Aktion, die mit einem Objekt ausgeführt wird.Command-Reactoren auf die Befehle. Das ist in meinem Code passiert. Es werden 2 Reaktoren geschaffen. Der eine für den Befehlsstart und der 2. für das Ende des Befehls.Bei Fragen ...Grüße Holger------------------Holger Brischke(defun - Lisp over night!AutoLISP-Programmierung für AutoCADNEU: AutoLISP- ProjektschulungNEU: Praxisorientierte Sc ...
|
|
Lisp : Layer umschalten bei der Bemassung
Brischke am 18.10.2003 um 16:29 Uhr (0)
Hallo CAD-Tötti, Zitat:Wie gestallte ich eine Überprüfung, diea) prüft ob der Layer in der zeichnung existiertb) den Layer ggf. nach den Maßgaben aus einer Datei z.B. "Layer.dat" anlegtc) die Layer generell beim Start von AutoCAD aus dieser Datei lädtzu a)(setq LayName "Testlayer")(if (tblobjectname "LAYER" LayName)(princ "
Layer vorhanden")(alert (strcat LayName " fehlt!")))zu b) das kann man verschieden lösen, hängt im wesentlichen vom Dateiaufbau ab.zu c) ich gestalte mir meist eine Menüdatei, und schre ...
|
|
AutoLisp : Dline mit Permanentfang
Brischke am 24.10.2003 um 14:02 Uhr (0)
Hallo, stelle mal die LISP-Datei hier rein, das kann man bestimmt auch korrigieren. Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD NEU: AutoLISP- Projektschulung NEU: Praxisorientierte Schulungen und Workshops durch die bekannten CAD.de Moderatoren AutoCAD, AutoCAD LT, AutoCAD Mechanical, Mechanical Desktop, Architectural Desktop
|
|
AutoLisp : Dline mit Permanentfang
Brischke am 25.10.2003 um 14:01 Uhr (0)
Hallo Jürgen, anbei die geänderte Lisp-Datei. Probier es aus, und wenn was ist ... melden. Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD NEU: AutoLISP- Projektschulung NEU: Praxisorientierte Schulungen und Workshops durch die bekannten CAD.de Moderatoren AutoCAD, AutoCAD LT, AutoCAD Mechanical, Mechanical Desktop, Architectural Desktop
|
|
AutoLisp : Sortieren von Listen
Brischke am 27.10.2003 um 08:23 Uhr (0)
Hallo Andrea, vielleicht hast du nur ein unpassendes Bsp gewählt, aber nach einer Sortierung sieht das nicht aus. Im Bsp sind die Listen einfach nur umgekehrt worden (reverseiert). Das bekommst du dann hiermit hin: (setq a (((1 2 3) (4 5 6) (7 8 9)) ((10 11 12) (13 14 15) (16 17 18))) b (mapcar reverse a)) Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD NEU: AutoLISP- Projektschulung NEU: Praxisorientierte Schulungen und Workshop ...
|
|
AutoLisp : stellen nach dem komma
Brischke am 27.10.2003 um 10:01 Uhr (0)
Hallo fca_mi2, gar nicht. Intern wird immer mit 16 Nachkommastellen gerechnet. Wenn du schreibst, was du vor hast, kann man evtl. etwas genauer antworten. Bei Fragen ... Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD NEU: AutoLISP- Projektschulung NEU: Praxisorientierte Schulungen und Workshops durch die bekannten CAD.de Moderatoren AutoCAD, AutoCAD LT, AutoCAD Mechanical, Mechanical Desktop, Architectural Desktop
|
|
AutoLisp : stellen nach dem komma
Brischke am 27.10.2003 um 11:22 Uhr (0)
Hallo, dann willst du also Texte einfügen. Dann schau dir mal den Befehl rtos an. Für dich sollte folgende Zeile passen (rtos zahl 2 2) Bei Fragen ... Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD NEU: AutoLISP- Projektschulung NEU: Praxisorientierte Schulungen und Workshops durch die bekannten CAD.de Moderatoren AutoCAD, AutoCAD LT, AutoCAD Mechanical, Mechanical Desktop, Architectural Desktop
|
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
