|
Lisp : n-tes Element einer Liste entfernen
wronzky am 07.10.2005 um 10:26 Uhr (0)
Zitat:Original erstellt von Peter2:Es zeigt sich, dass- es mit der erhofften "vl-" Funktion anscheinend schlecht ausschautHi Peter!also es gibt sie doch (!):Code:(defun del-1st-ele (liste ele / found) (vl-remove-if (lambda (x) (if (and (= x ele) (not found)) (setq found t))) liste))Ob die nun schneller, geschickter oder langsamer ist, als die bisher besprochenen, wer testets aus?Grüsse, Henning------------------VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman. ...
| | In das Form Lisp wechseln |
|
Rund um AutoCAD : Schreibschutz die 100ste
wronzky am 10.04.2008 um 20:44 Uhr (1)
Das ist, wie gesagt eine Testversion, erst mal begrenzt bis 1. Juni. Dann gibt es die nächste Testversion usw. bis es mal eine final gibt. Das Kennwort kommt nur, wenn man Layer "locken" oder "unlocken" will (mit VLL bzw. VUL). Dann werden die Layer entsprechend "personalisiert" gelockt, und unlocken geht nur bei den Layern, die Du auch gelockt hast.Wenn Du die Zeichnung weitergibst, dann bleibt alles so, wie es ist, also wenn Du alle Layer lockst, kann man nichts mehr ändern oder bearbeiten.Die Idee stamm ...
| | In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : Schreibschutz einzelner Layer?
wronzky am 14.06.2005 um 10:57 Uhr (0)
Hi F! bin sowieso am Testen mit den Reaktoren, und hab mein Reaktor-Programm aus http://ww3.cad.de/foren/ubb/Forum145/HTML/001174.shtml mal für deine Zwecke angepasst: Code: (if (= (getvar "useri5") 1) (progn (vl-load-com) (setq my-reactor (vlr-command-reactor "my-reactor" ((:vlr-CommandEnded . my-post)))) ) (if my-reactor (progn (vlr-remove my-reactor) (setq my-reactor nil) ) ) ) (princ) (defun my-post (reaktor parameter /) (if (/= (car parameter) "UNDO") ...
| | In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : Mtext - suchen und ersetzen ganze Zeile
wronzky am 17.03.2009 um 21:50 Uhr (0)
Zitat:Das hier wieder eine Programmlösung winkt ist anscheinend nicht vermeidbarDie könnte so aussehen:Code:(defun C:remove-P( / txt z tx val eig) (setq txt (ssget ((0 . "MTEXT"))) z -1) (while (and txt (setq tx (ssname txt (setq z (1+ z))))) (setq val (cdr (assoc 1 (setq eig (entget tx))))) (while (vl-string-search "P" val) (setq val (vl-string-subst " " "P" val))) (entmod (subst (cons 1 val) (assoc 1 eig) eig)) ) (prin1))Hatte ich mal benutzt um Absatzmarken zu entfernen (Ersetzen mit " "). Müsstest ...
| | In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : Griffpunkte Verschieben/Entfernen
wronzky am 21.11.2005 um 11:52 Uhr (0)
Hallo,einen Vorschlag hätte ich noch:Du positionierst in der Blockdefinition ein dummy-Attribut, Wert: leer, Vorwahl: ja, nicht kostant, nicht unsichtbar.Beim Einfügen wird die Attributanfrage durch die Vorwahl unterdrückt.Wählst Du nun den Block aus, hat er zusätzlich den Griff des Attributes. Der kann wahlfrei über den Griff verschoben werden, und dann über [Leertaste] (also Durchrollen der Griffoptionen) zum Verschieben / Drehen / Skalieren des ganzen Blocks verwendet werden.Einziger Nachteil: in den At ...
| | In das Form Rund um Autocad wechseln |
|
Lisp : mit Lisp Flächen anwählen
wronzky am 28.02.2006 um 14:46 Uhr (0)
Hallo Hans-Peter,das mit der "Pause" geht schon, aber du musst für JEDE Eingabe eine Pause einfügen. Bei folgendem Befehl kannst Du eine Kante wählen, und die angrenzenden Flächen werden versetzt.(command "_solidedit" "_face" "_offset" pause pause "1.3" "" "")Bei folgendem Befehl kannst Du eine Kante wählen, "E" für entfernen drücken, und eine Flächen wegklicken, und die übrig gebliebene Fläche wird versetzt.(command "_solidedit" "_face" "_offset" pause pause pause pause "1.3" "" "")Mit Lisp die "inneren W ...
| | In das Form Lisp wechseln |
|
Rund um AutoCAD : dynamische Blöcke
wronzky am 23.06.2010 um 19:01 Uhr (0)
Hallo, und auch hier im AutoCAD-Brett ein herzliches Willkommen...Nachdem Du ja nach 4 Tagen das richtige Brett gefunden hast , will ich Dir auch mal eine Antwort zu Deinem eigentlichen Problem geben.Bei dyanamischen Blöcken setzten sich die dynamischen Eigenschaften immer aus 2 Komponenten zusammen:1. einem Parameter und2. einer Aktion.Der Parameter legt fest, WAS sich ändern soll (Länge, Winkel, Basispunkt etc.)Die Aktion legt fest, WELCHE ELEMENTE von dem Parameter betroffen sind.In Deinem Fall Paramet ...
| | In das Form Rund um AutoCAD wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
