|
Rund um AutoCAD : Kombination zweier Lisp-Dateien bzw. Arbeitsweisen...
wronzky am 01.08.2012 um 13:17 Uhr (0)
Hallo K. Franke,klar ist das möglich. ErsetzeCode:... ;Dummy-Text wählen: sel (entsel " vorhandenen Text picken... ") ; Element und Pickpunkt el (entget (car sel)) ; Element (Text) ;Dummy-Text durch Wert (berechnet) ersetzen: el (subst (cons 1 proz) (assoc 1 el) el) ) of setq (entmod el) ;Dummy-Text schreiben...durchCode: ...W (angle (list x1 y1) (list x2 y2)))(command "_text" (list x1 y1) 2.5 (/(* 180.0 W)Pi) proz)...Mit ein bischen Suche wärst Du aber warscheinlich auch HIERAUF g ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Linienstärke in lsp einstellen
wronzky am 18.06.2008 um 23:20 Uhr (0)
Hi,also "im Prinzip" ist das mit command auch zu machen. Warum mit (command "-Lstärke" bylayer) die Linenstärke nicht zurückgestellt wird liegt daran, dass in Lisp (mal einfach gesagt) jeder Text, der nicht in "" (Anführungszeichen) steht, als Variable interpretiert wird und der Wert aus dieser an den command-Befehl übergeben wird. Da bei Dir in der Variablen bylayer aber nichts drinsteht, wird auch nichts zurückgesetzt.Langer Rede, kurzer Sinn: (command "-Lstärke" "bylayer") sollte das Problem lösen.Grüss ...
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : Objekte verlängern mit Lisp
wronzky am 23.07.2008 um 21:11 Uhr (0)
Hiohne gross zu rechnen, kannst Du ja auch den Befehl Länge mit der Option Delta benutzen. Das ist für den Anfang auch einfacher zu verstehen. Bin mal so frei, Dir ein schnelles Beispiel zukommen zu lassen:Code:(defun c:vox-lengthen () (setq lg 0.2) (setq ele (car (entsel))) (setq ele_eig (entget ele)) (if (= (cdr (assoc 0 ele_eig)) "LINE") (setq p1 (cdr (assoc 10 ele_eig)) p2 (cdr (assoc 11 ele_eig)) ) ) (if (= (cdr (assoc 0 ele_eig)) "ARC") (setq p1 (polar (cdr (assoc 10 ele_eig)) (cdr (assoc 50 e ...
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : Bogen im Uhrzeigersinn
wronzky am 05.03.2012 um 14:15 Uhr (0)
Zitat:Es gibt doch bestimmt eine Schnelltaste um die Richtung kurz zu ändern, oder?Nicht in AutoCAD, kann man sich aber selber machen. Das folgende Lisp "dreht" einen Bogen um:Code:(defun c:vox-swap-arc ( / ss eig gc50 gc51) (and (setq ss (ssget "_:S" ((0 . "ARC")))) (setq eig (entget (ssname ss 0))) (setq gc50 (assoc 50 eig)) (setq gc51 (assoc 51 eig)) (entmod (subst (cons 50 (cdr gc51)) gc50 (subst (cons 51 (cdr gc50)) gc51 eig))) ))(defun c:vsa () (c:vox-swap-arc))HTH,Grüsse, Henning-------------- ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Linien/Teile ausblenden
wronzky am 09.09.2011 um 15:25 Uhr (0)
weißt Du, wie man mit Lisp-Dateien umgeht? Bitte einmal vorher "(vl-load-com)" ausführen!Code:(defun c:vox-make-invisiblex ( / ss z ele) (setq ss (ssget) z -1) (while (and ss (setq ele (ssname ss (setq z (1+ z))))) (vla-put-visible (vlax-ename-vla-object ele) :vlax-false) ) (prin1))(defun c:vox-make-visiblex ( / ss z ele) (setq ss (ssget "_X" ((60 . 1))) z -1) (while (and ss (setq ele (ssname ss (setq z (1+ z))))) (vla-put-visible (vlax-ename-vla-object ele) :vlax-true) ) (prin1))Grüsse, Henn ...
|
| In das Form Rund um AutoCAD wechseln |
|
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 ...
|
| In das Form Rund um AutoCAD wechseln |
|
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 ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : scrollen / pan über Tastatur Tasten
wronzky am 03.05.2011 um 11:33 Uhr (0)
Wenn Du direkt eine Tastenfolge eingeben kannst, brauchst Du keine Lisp-Dateien laden und einzelne Befehle definieren. Schreib das "makro" einfach in die Tastenfolge.Hiermit gehts z.b. immer um 1/5 der Bildschirmhöhe nach unten, und das geht dann auch "transarent":_-pan[LEERZEICHEN](list 0 (/ (getvar "viewsize") 5) 0)[LEERZEICHEN][LEERZEICHEN]Grüsse, Henning[EDIT] [LEERZEICHEN] natürlich entsprechend ersetzen... [/EDIT]------------------Henning JesseVoxelManufakturComputer-Dienstleistungen für Architekten ...
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : 2 Plotfiles mit einem Lisp erstellen
wronzky am 08.05.2008 um 19:03 Uhr (0)
Hi Andreas,ich denke, es liegt daran, dass Du fmt nicht immer gesetzt bekommst. Check mal Deine Layouts mit (getvar "limmax") und schau, ob auch Deinen Werte dabei sind. Wenn nicht, dann steht in fmt nil, und strcat liefert "Fehlerhafter Argumenttyp: stringp nil".[EDIT]ich würds so: machen:Code:(setq xmax (car (getvar "limmax"))) (cond ((= xmax 297.0) (setq fmt "A4")) ((= xmax 420.0) (setq fmt "A3")) ((= xmax 594.5) (setq fmt "A2")) ((= xmax 841.0) (setq fmt "A1")) ((= xmax 1189.0) (setq fmt "A0")) ( ...
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : Bei Blockeinfügung mit ATT, vorhandenen Text übernehmen oder per klich drauf überneh.
wronzky am 16.05.2008 um 16:13 Uhr (0)
Hi,also ohnen Programmierung ist da wohl nichts zu machen. Für einen ähnlichen Fall hab ich allerdings was:Code:(defun c:get_att_val ( / att ele) (entmod (subst (assoc 1 (entget (car (entsel "
neuer Textwert wählen:")))) (assoc 1 (setq att (entget (setq ele (car (nentsel "
Attribut wählen:")))))) att ) ) (entupd ele))damit kannst Du NACH dem Einfügen durch picken von Dtext und Attribut den Attributswert ändern. Vielleicht reich Dir das auch schon.[EDIT] Wie mal Lisp-Dateien lädt [/EDIT] Grüsse, Hen ...
|
| In das Form Rund um AutoCAD wechseln |
|
AutoLisp : lisp und das internet
wronzky am 21.07.2005 um 15:05 Uhr (0)
Hallo Frank! für s hochladen kannst Du Code: (defun put-remote-file (url local / util fehler) (setq util (vla-get-utility (vla-get-activedocument (vlax-get-acad-object)))) (setq fehler (vl-catch-all-apply vla-putremotefile (list util url local))) (if (vl-catch-all-error-p fehler) (progn;fehler: Datei nicht da, kein Internet oder so... (prompt Ein Fehler ist aufgetreten!
Stellen Sie eine Internetverbindung her und versuchen Sie es erneut. ) (setq local nil) ) (setq local t) ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Falscher Block durch Lisp eingefügt
wronzky am 13.08.2008 um 16:15 Uhr (0)
Hi Robert,das liegt daran, dass Du die Definition der Funktion HK-SETZEN (und auch alle anderen) mit jedem Laden neu setzt. Dann ist immer die zuletzt definierte Funktion gültig.Verschiedene Möglichkeiten der Lösung:- Du benennst nicht nur die C:... Funktion um, sondern auch alle zugehörigen und erzeugst so eindeutige Namen.- Du schreibst die (Defun...)-Funktionen IN die (defun C:...) hinein, und definierst sie jedesmal beim Aufruf neu.- Du definierst die HK-SETZ-Funktion mit Übergabeparameter (= Blockname ...
|
| In das Form Lisp wechseln |
|
Lisp : Schraffur Winkel
wronzky am 16.03.2009 um 18:08 Uhr (0)
Hi Omega,gerade wenn man noch nicht viel Lisp kann, sollte man überlegen, ob die gewünschte Funktion mit einem normalen Befehl durchzuführen ist. Dann kann man nämlich sehr einfach mit dem Command-Befehl und den entsprechenden Optionen zum Ergebnis kommen (ohne ActiveX). In Deinem Fall passt sehr gut der _-hatchedit Befehl:Code:(setq step 15 hat (car (entsel)))(setq ang (/ (* 180 (cdr (assoc 52 (entget hat)))) pi))(while (= "" (getstring "
Weiter mit ret, Ende jede andere Taste: ")) (command "_-hatchedit" ...
|
| In das Form Lisp wechseln |
