|
Lisp : Referenzen filtern
CADwiesel am 10.01.2008 um 13:00 Uhr (0)
Danke Holgär - bisdn guder ------------------Gruß CADwieselBesucht uns im CHAT
|
| In das Form Lisp wechseln |
|
Lisp : externe Referenz direkt bearbeiten
CADwiesel am 30.09.2024 um 11:25 Uhr (1)
Schau dir doch mal die vla-copyobject Methode an. Damit kannst du dir doch alles aus der Ref holen was du verwursten willst.------------------GrußCADwieselBesucht uns im CHAT
|
| In das Form Lisp wechseln |
|
AutoLisp : Blockattributdaten
CADwiesel am 23.02.2006 um 08:00 Uhr (0)
Dann mach dir eine Externe asciidatei, in der Kerngrößen gespeichert sind und beim Start deines Programmes ausgelesen werden.Diese werden dan Variablen zugewiesen und du hast immer was du brauchst.------------------Gruß CADwieselBesucht uns im CHAT
|
| In das Form AutoLisp wechseln |
|
Lisp : Lsp in Lsp starten
CADwiesel am 14.12.2015 um 10:00 Uhr (1)
ich gehe mal von dem einfachtem Fall aus.Du lädst eine externe Lispdatei durch (load "Lispdatei") und führst eine Funktion die darin definiert ist per (c:Funktionsaufruf) oder (Funktionsaufruf) aus.------------------GrußCADwieselBesucht uns im CHAT
|
| In das Form Lisp wechseln |
|
Lisp : Alle Einfügepunkte eines Blockes ermitteln
CADwiesel am 19.03.2007 um 12:31 Uhr (0)
Die Einfügepunkte stehen im GC 10 der Blockreferenz.Am Besten alle Referenzen einsammelm mit z.b: (ssget "_X" (list(cons 0 "INSERT)(cons 2 "Blockname)))und dann mit repeat durch den was gehen und den gc 10 auslesen und in ne liste schreiben------------------Gruß CADwieselBesucht uns im CHAT
|
| In das Form Lisp wechseln |
|
Lisp : Referenzen filtern
CADwiesel am 10.01.2008 um 07:49 Uhr (0)
Du musst die Blocktabelle durchlaufen und dann die Namen dieser prüfenso müsste es gehen:Code:(setq EARX_BTAA (tblnext "BLOCK" T)) (while (/= EARX_BTAA nil) (if (wcmatch (cdr (assoc 2 EARX_BTAA)) "*Legende*" ) ;_ end of wcmatch (command "_xref""_b" (cdr (assoc 2 EARX_BTAA))) (setq EARX_BTAA (tblnext "BLOCK")) ) ;_ end of if ) ;_ end of while------------------Gruß CADwieselBesucht uns im CHAT
|
| In das Form Lisp wechseln |
|
Lisp : Dynamische Blöcke nach Namen ausfiltern
CADwiesel am 03.08.2015 um 12:12 Uhr (1)
ACHTUNG! Sie antworten auf einen Beitrag der älter als 1 Jahr ist!Grundsätzlich ist es aber sicher besser/einfacher durch das Layout(ind dem Fall wohl der Modellbereich) per vlax-for zu gehen und alle Blockreferenzen auf Ihren effectivenamen hin zu prüfen, als diesen Augenwischenden Umweg über ssget zu gehen.Wenn nur eine Blockref enthalten ist, die nicht dynamisch verändert wurde, findet dir ssget diese und lässt all die anderen, die ja dann unbenante Referenzen sind, unberücksichtigt------------------Gru ...
|
| In das Form Lisp wechseln |
|
Lisp : Umgrenzung einer Schraffur innerhalb einer Blockdefinition erstellen
CADwiesel am 27.07.2022 um 10:08 Uhr (1)
Ich hoffe dir sind die Unterschiede eines Block und einer Blockreferenz bekannt!Was bitte soll es bringen die Blocktabelle zu durchlaufen, dort jede Blockdefinition nach einem Hatch zu durchsuchen, dann irgendetwas zu machen und die Blockdefinition dann zu löschen?Du könntest dir die Blocknamen merken, die ein Hatch enthalten, dann die entsprechenden Referenzen raussuchen, diese auflösen, alles andere bis auf die Hatches löschen, dann deine Umgrenzung erstellen lassen und danach auch die Hatches löschen.-- ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Externe Lisp in Repeat starten möglich?
CADwiesel am 26.10.2004 um 11:15 Uhr (0)
müsste so gehen (command .-layer _th * _on * ) (setq allobj (ssget X (list (-4 . AND )(cons 8 * ) (-4 . AND )))) (Setq objanz (sslength allobj)) (repeat objanz (setq laakt (ssget l )) (print laakt) (setq las (ssname laakt 0)) (print las) (setq elist (entget las)) (print elist) (setq lalist (assoc 8 elist)) (print lalist) (setq aktla (cdr lalist)) (print aktla) (command .-layer _se aktla _off * _on aktla ) (if (setq lst (acet-overkill-ui nil)) (acet-overkill2 lst) );if ...
|
| In das Form AutoLisp wechseln |
