|
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 |
|
AutoLisp : Schnittpunkt Polylinie mit Linie
wronzky am 28.02.2006 um 15:39 Uhr (0)
Na Schau mal da: http://ww3.cad.de/foren/ubb/Forum145/HTML/000302.shtml#00001 GRüsse, Henning------------------VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de
|
| In das Form AutoLisp wechseln |
|
AutoLisp : xref
wronzky am 06.03.2006 um 11:21 Uhr (0)
Hallo Frank,wie aus Wolfgangs Programm ersichtlich ist, werden die Umgrenzungen in dictionarys abgelegt. Da kommst Du am besten mit dictsearch ran. Für Deinen Fall mal eingebunden:Code:(defun get-clips (block / eig dict clips points) (setq eig (entget block));Blockeigenschaften (if (and (setq dict (cdr (assoc 360 eig)));Dictionary existiert - Umgrenzung ist oder war vorhanden (setq clips (dictsearch (cdr (assoc -1 (dictsearch dict "ACAD_FILTER"))) "SPATIAL"));aktuelle Umgrenzung vorhanden );Umgrenzung ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : xref
wronzky am 06.03.2006 um 13:14 Uhr (0)
Hallo Frank,die Koordinaten sind im OKS(als Objekt-Koordinaten) abgespeichert. Du musst sie noch mit trans in WKS/BKS umwandeln.Grüsse, Henning------------------VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de
|
| In das Form AutoLisp wechseln |
|
AutoLisp : xref
wronzky am 07.03.2006 um 14:15 Uhr (0)
Hallo Frank,habs jetzt auch mal probiert:Code:(defun c:clip-info ( / bl pt) (setq bl (car (entsel))) (setq pt (get-clips bl)) (mapcar (lambda (x) (trans x bl 0)) pt))Du hast tatsächlich recht, aber wie jetzt weiter weiss ich auch nicht spontan. (Das Problem tritt aber nur bei kopierten xrefs auf.) In der AutoCAD-Hilfe steht halt nur:Definitionspunkt für Zuschneide-Umgrenzung (im OKS; stets größer oder gleich 2), basierend auf einem XRef-Skalierfaktor von 1.Darauf hab ich mich verlassen... Wenn Du eine Lösu ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : xref
wronzky am 07.03.2006 um 22:15 Uhr (0)
Hi Frank,Habe mir Deine Funktion mal angesehen. Wesentlich ist da ja, dass Du zu den einzelnen Koordinaten noch die entsprechenden Koordinaten den jeweiligen Basispunkt des Blockes hinzuzählst. Guter Ansatz, entspricht ja der Basispunkt dem null-Punkt des OKS des Blockes, und wenn schon das (trans x bl 0) nicht geht , muss mans halt von Hand machen... (Ich glaube das mit dem nth 3 und nth 7 kannst Du Dir sparen, weil da - bei mir zumindest - immer 0 steht). Daher könnte man die Funktion noch etwas eindampf ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Voreinstellen von Eingaben
wronzky am 15.03.2006 um 15:48 Uhr (0)
Hallo Heinz,Windows-conform kannst Du auch die Funktionen vl-registry-read und vl-registry-write benutzen. Etwa so:Code: (setq abstand (read (vl-registry-read "HKEY_CURRENT_USERHeinz-Variable")))und:Code: (vl-registry-write "HKEY_CURRENT_USERHeinz-Variable" (vl-princ-to-string abstand))und weiter wie Thomas...Grüsse, Henning------------------VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Abfangen fehlerhafter Benutzereingaben
wronzky am 27.04.2006 um 13:51 Uhr (0)
Hallo Kathrin,Schau Dir doch mal den Befehl mode_tile an! (- Hilfe)Code:(mode_tile "accept" 1) würde z. B. den OK-Knopf deaktivieren (wenn der accept heist).Grüsse, Henning------------------VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Abfangen fehlerhafter Benutzereingaben
wronzky am 27.04.2006 um 16:06 Uhr (0)
Zitat:Soll ich darin zum Test versuchen, die eingegebene Datei zu laden oder wie?Hi Kathrin,z. B. mit findfile testen, ob die Datei gefunden wird. es müsste also einCode:(if (findfile (get_tile "inpfile"))...reichen.Grüsse, Henning------------------VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Platzbedarf von Attributen
wronzky am 04.05.2006 um 15:05 Uhr (0)
Hallo Forum!Ich bin am grübeln über eine Funktion, die mir die sichtbaren Daten eines Blocks ausgibt. Aber ich komme nicht weiter. Meine Testfunktion sieht im Moment so aus:Code:(defun c:test ( / blo ele neu_ele ele_eig) (setq blo (entget (car (entsel)))) (setq neu_ele (ssadd)) (setq ele (cdr (assoc -2 (tblsearch "BLOCK" (cdr (assoc 2 blo)))))) (while ele (setq ele_eig (entget ele)) (prompt (strcat "
" (cdr (assoc 0 ele_eig)))) (entmake ele_eig);nur testhalber (setq neu_ele (ssadd (entlast) neu_ele)) ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Platzbedarf von Attributen
wronzky am 05.05.2006 um 10:17 Uhr (0)
Hallo Andreas,Tja, dann muss man warscheinlich alles von Hand machen: Blockgeometrie auslesen Layer testen auf gefroren / ausgeschaltet, Elemente filtern Attribute des Blocks auslesen Attribute des Blocks testen auf Sichtbarkeit unter Beachtung der Sysvar attmode Blockclippings auslesen Blockelemente testen auf Innerhalb/ Ausserhalb / Schnitt des Clippings und entsprechend bearbeiten Blockskalierung auslesen Alle Elemente des Blocks entsprechend der Skalierung umrechnenHab ich noch was vergessen? Das wird ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Platzbedarf von Attributen
wronzky am 05.05.2006 um 10:56 Uhr (0)
Hi Thomas,Ja ja , der schlaue User FAQ müsste eigentlich schon eine Menge Us erhalten haben (kriegst Du jetzt ersatzweise). Lohnt sich ja doch, immer mal wieder bei ihm herein zu schauen. (hab seine Antwort aber mit der Suche nach "Blockdarstellung" und Ähnlichem nicht gefunden).OK, aus seiner Darstellung entnehme ich, dass es keinen *Block gibt, der die aktuelle Darstellung enthält. Warum auch, die Rechner haben ja genügend rechenpower um immer alles neu zu berechnen.Die Property Visible nehme ich noch in ...
|
| In das Form AutoLisp wechseln |
|
Lisp : LinienBlock???
wronzky am 01.03.2007 um 10:22 Uhr (0)
Hi Bauvermesser,ich sehe gerade, dass mein Tip von hier auch für Dich sinnvoll sein kann:Code:(defun c:grup (/ estr) (if (setq estr (entsel "Block wählen:")) (command "_explode" (car estr) "_-group" "er" "gruppe1" "Böschungsschraffur" "V" "") ))Grüsse, Henning------------------VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de
|
| In das Form Lisp wechseln |
