|
Rund um AutoCAD : Dynamischen Block aktuallisieren
wronzky am 16.03.2009 um 09:55 Uhr (0)
Hallo Paz,ich verweise dann auch noch mal auf DIESEN Beitag.Grüsse, HenningWie Lisp-Tool laden------------------Henning JesseVoxelManufakturComputer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de
|
|
Rund um AutoCAD : Polylinien-Fläche zu Linie umwandeln möglich?
wronzky am 26.03.2009 um 20:26 Uhr (0)
Hallo Robert,nun, wenn Dir die Veränderung/Löschung der Anfangspunkte egal ist, dann probier mal das Programm:Code:(defun c:move-pl-1st-p ( / ss m ele eig p) (setq ss (ssget ((0 . "LWPOLYLINE"))) z -1) (or (setq m (getreal "x-Verschiebung [0.01]: ")) (setq m 0.01)) (while (setq ele (ssname ss (setq z (1+ z)))) (setq eig (entget ele) p (cdr (assoc 10 eig))) (entmod (subst (cons 10 (list (+ m (car p)) (cadr p))) (cons 10 p) eig)) ))es verschiebt den ERSTEN Punkt einer Polylinie in X-Richtung. Geht aber nur ...
|
|
Rund um AutoCAD : Lisp zum drehen / skalieren
wronzky am 01.04.2009 um 18:52 Uhr (0)
Hallo Seb,die Objekte markieren, und unter den Eigenschaften Drehwinkel und Skalierung ändern wäre noch eine Möglichkeit ohne Lisp.Grüsse, Henning------------------Henning JesseVoxelManufakturComputer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de
|
|
Rund um AutoCAD : Layerbeschreibung übertragen
wronzky am 08.06.2009 um 13:42 Uhr (0)
Hallo,Du kannst das folgende Lisp verwenden, um die Layerbeschreibungen einzustellen:Code:(defun c:set-layer-description ( / ll) (setq ll (list ("layer1" "Beschreibung1") ("layer2" "Beschreibung2") ;und so weiter ) ) (mapcar put-layer-description ll))(defun put-layer-description (layerls / l) (if (setq l (tblobjname "layer" (car layerls))) (vla-put-description (vlax-ename-vla-object l) (cadr layerls)) ))Einfach bei ("layer1" "Beschreibung1") Deine Layer und Beschreibungen reinschrei ...
|
|
Rund um AutoCAD : aktuellen Layer zurückholen
wronzky am 23.06.2009 um 18:00 Uhr (0)
... und wenn Du kein Lisp willst (warum eigentlich nicht?) dann nimm doch Diesel:Code:^C^Csetvar;users1;$M=$(getvar,clayer);setvar;clayer;0;_xline;;setvar;clayer;$M=$(getvar,users1);Grüsse Henning------------------Henning JesseVoxelManufakturComputer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de
|
|
Rund um AutoCAD : Dynamishe Blöcke Parameter einstellen
wronzky am 22.03.2011 um 11:32 Uhr (0)
Hallo Christian,"ATTIN" für dynamische Parameter gibts so nicht. HIER wurde schon einmal eine Möglichkeit der programmtechnischen Umsetzung angedeutet. Inwieweit kennst Du Dich denn mit Lisp aus?Grüsse, Henning------------------Henning JesseVoxelManufakturComputer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de[Diese Nachricht wurde von wronzky am 22. Mrz. 2011 editiert.]
|
|
Rund um AutoCAD : Lisp Layer aktivieren
wronzky am 08.03.2011 um 12:16 Uhr (0)
@ Cadmium: dann zeig mir mal eine Zeichnung, in der Layer 0 nicht vorhanden ist...Grüsse, Henning------------------Henning JesseVoxelManufakturComputer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de
|
|
Rund um AutoCAD : Koordinaten BKS UCS schieben mit Option
wronzky am 27.02.2011 um 16:37 Uhr (0)
Hallo Alex, Du musst den Lisp-Teil noch "abschicken", also so:...^C^C_-insert;"C:/B.dwg";(if (setq p (getpoint "[0,0,0)]:")) p (0 0 0));1;1;0;.....Grüsse, Henning------------------Henning JesseVoxelManufakturComputer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de
|
|
Rund um AutoCAD : Koordinaten BKS UCS schieben mit Option
wronzky am 25.02.2011 um 11:05 Uhr (0)
Hallo Alex,erst einmal solltest Du versuchen, englische Befehle (mit Unterstrich) und deutsche nicht zu mischen - geht zwar, ist aber ein bischen gebastelt. HIER findest Du die englischen Übersetzungen.zu den 2 fraglichen Stellen:1: eine Vorgabe geht mit Diesel nicht, da musst Du auf Lisp zurückgreifen: (if (setq p (getpoint "[0,0,0)]:")) p (0 0 0))2: die Option zum versetzten des Ursprungs im BKS ist "_origin" ("ursprung"), gefolgt von dem neuen 0-Punkt, also ...;_ucs;_origin;600,0,0;;...[EDIT]die X-Koor ...
|
|
Rund um AutoCAD : bezug auf zentrum (lisp)
wronzky am 25.02.2011 um 10:44 Uhr (0)
Hallo Chris,Zusammengefasst dann etwa so:Code:(defun c:vv() (if (setq scale_circle (car (entsel "
Kreis wählen:"))) (command "_scale" scale_circle "" (cdr (assoc 10 (entget scale_circle))) "0.887412587" ) ))Grüsse, Henning------------------Henning JesseVoxelManufakturComputer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de
|
|
Rund um AutoCAD : Neu, revolutionär und lang erwartet
wronzky am 15.08.2011 um 11:52 Uhr (0)
das Autocad-Team hat für morgen etwas "neues, revolutionäres, und schon lang erwartetes" angekündigt. Was mag das wohl sein? Lisp für LT?Grüsse, Henning------------------Henning JesseVoxelManufakturComputer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de
|
|
Rund um AutoCAD : Stapelweise Layer-Umbenennung mit mehreren DWG-Dateien
wronzky am 29.10.2010 um 23:42 Uhr (0)
Hallo Cad-Line (?!)Wenn Du folgendes kleines Lisp in Deine Startgruppe mit rein nimmst:Code:(defun vox-rename-every-layer (old new / l) (setq l (cdr (assoc 2 (tblnext "layer" t))));Layer 0 ist immer der erste (while (setq l (cdr (assoc 2 (tblnext "layer")))) (command "_-rename" "_layer" l (vl-string-subst new old l)) ) )brauchst Du im Script nur einmal die ZeileCode:(vox-rename-every-layer "abc" "xyz")aufrufen. Den Rest erledigt das Lisp-Programm.Grüsse, Henning------------------zur AbstimmungHenning ...
|
|
Rund um AutoCAD : Punktsymbole nach BKS ausrichten
wronzky am 30.11.2010 um 19:35 Uhr (0)
Hallo Zora,als Willkommensgruß habe ich hier eine kleine Hilfsfunktion, die zumindest schon mal die Punkte in die richtige Richtung dreht.Code:;Funktion zum Ausrichten (drehen / kippen) von Punkten auf das aktuelle BKS;Version 1.0;Henning Jesse 01/2010(defun c:vox-rotp2ucs ( / ss z x y r ele prop) (setq ss (ssget ((0 . "POINT"))) z -1) (setq x (getvar "ucsxdir")) (setq y (getvar "ucsydir")) (setq r (v_prod x y)) (if ss (while (setq ele (ssname ss (setq z (1+ z)))) (setq prop (entget ele)) ...
|
