|
Lisp : DCL list_box mit Spaltentext
joern bosse am 10.12.2021 um 14:14 Uhr (1)
Hallo Georg,eine Idee habe ich noch, aber funktioniert leider nur in BricsCAD, nicht in AutoCAD:Du kannst der list_box folgendes Attribut beifügen: bcad_label = "Spalte 1 Spalte 2 Spalte 3";Damit werden die Spaltenüberschriften erzeugt, die Breiten wie gehabt über TABS, und die Spaltenüberschriften bleiben dann natürlich auch sichtbar, wenn Du bei langen Listen nach unten scrollst:Schade, das bei Autodesk LISP wohl nicht mehr auf der ToDo-Liste der wichtigen Sachen steht:-(Achja, wo es bei AutoCAD und Bric ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Position des Maßtexts ändern
marc.scherer am 10.11.2004 um 14:14 Uhr (0)
Hi, wie lange arbeitest Du schon mit Acad? Guckst Du in der Acad-Hilfe (F1, sehr nützlich) unter "Bemaßungsstile", Bemstil, -Bemstil Option "Anwenden"). Je nach Acad-Version auch erst in Bemassungsmodus wechseln (BEM -Enter-, dann UPDATE -Enter- und dann Bemaßungsobjekte auswählen, denen der aktuelle Bemaßungsstil zugewiesen werden soll.) Ach so, VORHER mußt Du natürlich Deine(n) Bemaßungsstil(e) so wie von Dir gewünscht einstellen... Überprüfe mal die Bemaßungsvariablen: (DIMTVP) DIMTVP 0.000 1.000 Bem-Li ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Spline schliessen
ositodepeluche am 01.09.2022 um 22:41 Uhr (1)
Hallo zusammen,Ich möchte in einer LISP eine mit SKIZZE gezeichnete Spline schliessen. Mit Command Splineedit geht das zwar, aber wenn ich die Skizze nicht abschliesse und abbreche gibts ein Problem. Darum habe ich es folgendermassen versucht: (While (initcommandversion) (Setq letzte (command "_SKETCH" pause)) (setq obj_data (entget letzte)) (if (assoc 70 obj_data) (setq obj_data (subst (cons 70 1)(assoc 70 obj_data) obj_data)) ) (entmod obj_data) (setq letzte nil) )Dabei kommt folgende ...
|
| In das Form Lisp wechseln |
|
Lisp : entlast nach ARRAY
Dorfy am 19.08.2009 um 10:07 Uhr (0)
Zitat:Original erstellt von alterHausmeister:.... (setq AWS(ssadd)) (while (setq OBJ(entnext OBJ))(ssadd OBJ AWS)) (sssetfirst AWS AWS) (setq Sprossen (AWS)) [b]--- hier liegt....(setq AWS(ssadd));auswahlsatz wird erstellt (leer)(while ;beginn schleife(setq OBJ(entnext OBJ));bedingung (argument) und setzen von obj auf folgeobjekt(ssadd OBJ AWS));(expression) objekt zu auswahlsatz hinzufügen, ende schleife(sssetfirst AWS AWS);aws aktivsetzen -- brauchst du das?!aws ist bereits vorhanden(setq spross ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Datei öffnen & schließen; crosspost. VBA
Helmut F am 15.08.2003 um 15:42 Uhr (0)
Hallo Sebastian, wie wäre es mit folgendem Trick? Du schreibst mit Lisp eine Script-Datei und führts diese aus, z. B.: (defun C:close_open ( / ) (setq scr_file (open (strcat (getvar TEMPPREFIX ) My_script.scr ) w )) (if (= (getvar DBMOD ) 0) (write-line _CLOSE scr_file) (write-line _CLOSE _Y scr_file) ) (write-line (strcat _OPEN (getvar DWGPREFIX ) (getvar DWGNAME )) scr_file) (close scr_file) (princ) ) Dann belegst du einen Button eines Werkzeugkastens mit dem Befehl: ^C^C ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Z-Wert in Blockattribut um Wert x erhöhen
zimmernagel am 23.04.2020 um 09:34 Uhr (1)
Hallo zusammen!Ich habe von einer Vermessungsdatei Blöcke in AutoCAD übertragen lassen. Der Attributtext von der Z-Höhe ist allerdings hier z.b. um 2 m zu tief, z.b. steht bei einem Block 415.49, und es müsste aber 417.49 sein von der Höhe her, da das Gerät falsch eingestellt war!Das ist aber von den vielen Punkte her vermischt, daher wollte ich das händisch anklicken können bzw. als Auswahl vielleicht, welche Höhe mit einem Wert x geändert werden sollen.Habe schon bei Lee-Mac alles durchforstet, aber bin ...
|
| In das Form Lisp wechseln |
|
Lisp : Schleifen kontrollieren
Dorfy am 01.02.2012 um 10:04 Uhr (0)
heute noch nicht munter?Code:(setq cplist (("TB" "BRUNN" "LAYER1") ("SS" "SCHACHT" "LAYER2") ("BL" "MAST" "LAYER3")))(setq relist (assoc "BL" cplist))und dann mit car, cdr... weiterEdit: oder du wertest den Rückgabewert weiter aus, falls dein gesuchter Wert öfters vorkommt, auf die schnell und ungetestetCode:(setq cplist (("TB" "BRUNN" "LAYER1") ("SS" "SCHACHT" "LAYER2") ("BL" "MAST" "LAYER3") ("BL" "MAST1" "LAYER4") ))(setq re ())(mapcar (lambda (x) (and (= "BL" (car x)) (setq re (cons ...
|
| In das Form Lisp wechseln |
|
AutoLisp : EED und Variable
U. Neumann am 27.01.2004 um 09:18 Uhr (0)
Hallo Lisp-Gemeinde, ich möchte an Zeichnungsobjekte EED s anhängen. Die anzuhängenden Daten liegen in Variablen gespeichert vor. Der nachfolgende Ansatz liefert mir aber immer einen Fehler, da fehlerhafte DXF-Gruppe. Ersetze ich die Variablen durch Festwerte funktioniert es. Wo liegt mein Fehler? (defun c:Test ( / ) (if (NOT (tblsearch APPID LINIENPUNKTE )) (regapp LINIENPUNKTE )) (setq P1 (getpoint
Anfangspunkt: )) (setq PN1 (getstring Punktnummer: )) (setq P2 (getpoint
Endpunkt: )) (s ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Blöcke bzw. Attribute suchen
CAD-Huebner am 27.07.2005 um 22:32 Uhr (0)
Ich sollte mich ja auch schämen - hab ich auch ein paar Sekunden lang getan (weil ich den Fehler ssget in Verbindung mit Attrib gar nicht weiter zur Kenntniss genommen habe). Dann hab ich noch gedacht - vielleicht hilft der Hinweis auf die Möglichkeiten des Designcenters ja noch anderen Lesers weiter - dafür schäme ich micht nicht (hier wurde ja nur nach einem Tool gefragt). Manchmal kommen auch Tipps zu Lisp in "Rund und AutoCAD" Forum - warum nicht auch umgekehrt. Ach ja, mapcar darf das - mich ents ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Linienstärke - Farbe
CADmium am 26.09.2008 um 08:49 Uhr (0)
Zitat:Original erstellt von kh-arnold:Hallo Leute,ich benötige Eure Hilfe, .. und ich das richtige Programm dazu noch nicht gefunden habe.Könnt Ihr mir Helfen ???Eine Variante könnte so aussehen ... für deinen Zweck kann man das abspecken und Ini-gesteuert realisieren...Ohne Lisp mit Bordmitteln geht das für Top-Level-Geometrieobjekte aber auch mit der Schnellauswahl und dem Eigenschaftsfenster.Mit "bescheidenen" Lispkenntnissen sollte man aber nicht unbedingt gleich so ein Projekt angehen .. das wird d ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Zweites Element
startrek am 22.07.2005 um 23:42 Uhr (0)
Hi Wolfgang, Einrückungen und Kommentare sind sehr wichtig, nicht nur für den Schreiber, mehr für den Leser/Versteher, aber auch Schreiber werden irgendwann mal ihre eigenen Leser - und wenns nach zwei Jahren ist;-) Ob das nun was mit Ordnung zu tun hat, weiss ich auch nicht, bin ja eher der schlampige Typ und lege auf Ordnung wenig Wert, aber auf Einrückungen schon;;-)) Und die Sache mit dem Tod, nein den Tot - oder Torturials von Axel find ich genauso gut wie du. Nochwas: (defun C:Zählen () keine Ahnun ...
|
| In das Form AutoLisp wechseln |
|
Lisp : 3D Objekte ausfiltern und speichern
mundal am 19.12.2008 um 12:32 Uhr (0)
Hallo Zusammen,ich möchte eine AutoCAD 3D Zeichnung (Zusammenbauzeichnung) in Einzelbauteile zerlegen.Dabei sind die Teilegruppen auf je einer Layer gezeichnet.Es sollen zumindest die Geometrien der einzelnen Layer als separates File in eine eigene DWG besser ACIS-Datei (SAT) gespeichert werden.Optimal wäre wenn die einzelnen 3D Teile auf den Layern extrahiert werden.Beispiel:Zusammenbauzeichnung: ein komplettes AutoTeilegruppe: Motor, Karosserie, Innenausstattung, Räder etc liegen auf eigenen Layern.Das L ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Anfänger-Code mit unsichtbarem Problem
autocart am 20.07.2004 um 10:12 Uhr (0)
Hallo, folgender Code funktioniert bei mir nicht: ;Code soll prüfen, ob eine Zeichenkette Umlaute oder ß enthält (defun Umlautß-Pruefung (string01 / äs ös üs ßs) (setq äs 0 ös 0 üs 0 ßs 0) (repeat (strlen string01) (cond ((equal ä (substr string01 1 1)) (setq äs (1+ äs)) ) ((equal ö (substr string01 1 1)) (setq ös (1+ ös)) ) ((equal ü (substr string01 1 1)) (setq üs (1+ üs)) ) ((equal ß (substr string01 1 1)) (set ...
|
| In das Form AutoLisp wechseln |
