|
Lisp : Rückgabe von (command... an Variable
cadking am 18.11.2019 um 11:27 Uhr (15)
zunächst mal vielen Dank an alle Helfer.der eigentliche Sinn dieses Beitrags war, Xrefs in einer Zeichnung zu identifizieren, die nicht gefunden oder nicht referenziert sind.Nachdem ich jetzt 10 Tage experimentiert habe und nervlich fast am Ende war habe ich für mich eine funktionierende Lösung gefunden, die ein Lisp-profil sicher optimaler gelöst hätte.der Ablaufplan sieht im Groben so aus:1. durchsuche die Blocktabelle nach Xrefs - (tblnext "Block") - (/= (cdr (assoc 1 blktbllst)) nil);ist Xref - (/= (fi ...
|
| In das Form Lisp wechseln |
|
Lisp : Blockgrenzen ermitteln
cadking am 18.09.2019 um 13:10 Uhr (1)
Hallo Leute,ich möchte in der angehängten Datei für die Planrahmen die Koordinaten der rechten unteren Ecke und der rechten oberen Ecke ermitteln.Der Planrahmen ist ein dynamischer Block. Ich benötige die Koordinaten für die Bestimmung des Plotbereichs (Fenster) und das Einfügen des Plankopfes in einer rechten unteren Ecke per Lisp.Hat jemand eine Idee?------------------Danke Stefan
|
| In das Form Lisp wechseln |
|
Lisp : Papierbereich-Ansichtsfenster Beschriftungsmaßstab ändern
cadking am 12.09.2019 um 12:36 Uhr (1)
Hallo Meldin,nö, macht das gleiche wie der vorherige Code, 2x den Eintrag 1:1000 in der Scale-liste habe und 1:100 ist verschwunden.Der Fehler in deinem Code liegt bei (entmod (subst (cons 300 "1:1000") (assoc 300 VP-Daten) VP-Daten) )Dadurch wird der((-1 . Objektname: 31dc9dd0 ) (0 . SCALE)(300 . 1:100) (140 . 1.0) (141 . 0.1) (290 . 0))nach((-1 . Objektname: 31dc9dd0 ) (0 . SCALE)(300 . 1:1000) (140 . 1.0) (141 . 1.0) (290 . 0))umbenannt und ist dann doppelt in der Scalelistich denke man muss im (-1 ...
|
| In das Form Lisp wechseln |
 |
Rund um AutoCAD : Layout Beschriftungsmaßstab (nicht im Ansichtsfenster)
cadking am 31.07.2017 um 12:04 Uhr (15)
Hallo caddffm,vielen Dank für deine kompetente Antwort. Funktioniert super.Da ich die Zeichnungen nicht selbst erstellt habe kann ich nicht dafür garantieren das alle Ansichtsfenster auf einem separaten Layer liegen.1. Frage: liegen die Systemansichtsfenster immer auf layer 0?2. Frage: kann man Systemansichtsfenster in Lisp mit ssget auswählen?------------------Danke Stefan
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : dialodbox schliessen in lisp
cadking am 05.12.2019 um 09:56 Uhr (1)
Hallo Lispler,in einer Lispdatei habe ich die Zeile:(command "_.layerstatus")welche die Dialgbox des Layerstatusmanagers öffnet. Nach dem Öffnen möchte ich das Fenster sofort wieder schliessen (automatisch).Hintergrund ist, das beim öffnen des Layerstatusmanagers alte Layerstati aus AutoCAD2012 importiert werden, die ich dann löschen will.Kann mir jemand sagen wie ich das Dialogfenster automatisch wieder schliessen kann?------------------Danke Stefan
|
| In das Form Lisp wechseln |
|
AutoLisp : Externe Lisp in Repeat starten möglich?
cadking am 26.10.2004 um 14:15 Uhr (0)
Hallo Thomas, noch bin ich ganz ruhig. Natürlich habe ich nach dem defun in der pverb.lsp gesucht. Da steht zum Starten (defun C verb (/.... geladen wird die routine auch, aber ausgeführt wird sie nicht. Wenn ich in der Befehlszeile nach erscheinen der Fehlermeldung no function definition: PVERB pverb eingebe, läuft die routine 1a ab. noch ganz ruhig - Stefan
|
| In das Form AutoLisp wechseln |
|
Lisp : Plotstiltabelle von Layout ändern
cadking am 26.04.2019 um 10:44 Uhr (1)
Hallo Lispler,ich habe 5 Zeichnungen mit jeweils 200 Layouts, denen ich jedem Layout eine neue Plotstiltabelle zuweisen muss.Ich habe bereits eine Lisp-routine, die durch alle Layouts wechselt und diverse Änderungen in den einzelnen Layouts durchführt.Ich möchte in dieser Routine nun noch die Zuweisung der neuen Plotstiltabelle (.ctb) für jedes Layout ergänzen.Leider habe ich keine Ahnung, mit welchem Befehl ich an die Plotstiltabelle komme.------------------Danke Stefan
|
| In das Form Lisp wechseln |
|
AutoLisp : Externe Lisp in Repeat starten möglich?
cadking am 27.10.2004 um 10:17 Uhr (0)
Danke für Eure Hilfe, ich habe die Lösung gefunden: ;explodieren aller (LW)POLYLINIEN (defun C:expl ( / expausw expanz expallobj lastexp) (setq expausw (ssget X ((0 . *POLY* )))) (Setq expanz (sslength expausw)) (repeat expanz (setq expallobj (ssget X ((0 . *POLY* )))) (setq lastexp (ssname expallobj 0)) (command _.explode lastexp) ) )
|
| In das Form AutoLisp wechseln |
|
Lisp : Ändern von Einträgen im ACA-Stilmanager mit Lisp
cadking am 02.05.2023 um 22:28 Uhr (1)
OK, wenn mir auf meine erste Frage keiner eine Antwort geben kann,hier vielleicht ein anderer Ansatz:(setq dict (dictsearch (namedobjdict) "AEC_WALL_STYLES")) =((-1 . Objektname: 1e51606de40 ) (0 . "DICTIONARY") (5 . "334") (102 . "{ACAD_REACTORS") (330 . Objektname: 1e51606e8c0 ) (102 . "}") (330 . Objektname: 1e51606e8c0 ) (100 . "AcDbDictionary") (280 . 0) (281 . 1) (3 . "MW Reichsklinker dunkel variabel - nicht tragend") (350 . Objektname: 1ed197b3ab0 ) (3 . "MW Reichsklinker dunkel variabel - tragend" ...
|
| In das Form Lisp wechseln |
|
Lisp : verankerte Bauteilstempel in Auswahlsatz
cadking am 06.04.2020 um 08:53 Uhr (1)
Hallo Lispler,ich habe Zeichnungen mit vielen Bauteilstempeln. Einige sind mit ACA-Objekten verankert (z.B. Räume oder Türen) einige sind nicht verankert.Ich würde nun gerne per Lisp die nicht verankerten Bauteilstempel in einen Auswahlsatz holen.Ich habe versucht mit (vlax-dump-object ...) ob es einen Unterschied zwischen verankerten und nicht verankerten Bauteilstempeln gibt,habe aber keinen Unterschied gefunden. Hat jemand eine Idee?------------------Danke Stefan
|
| In das Form Lisp wechseln |
|
Lisp : Darstellungskonfiguration suchen in Lisp
cadking am 15.07.2019 um 10:58 Uhr (15)
Hallo cadffm,danke für deinen Denkanstoss. Hat mir weiter geholfen.Lösung:;-------------------------------(defun foreach-cdrs (key lst / rtn)(reverse(foreach x lst(if (eq key (car x))(setq rtn (cons (cdr x) rtn)) rtn);end if);end foreach);end reverse);end defun foreach-cdrs;-------------------------------(defun check-cdrs ( / varsdict r)(setq varsdict (dictsearch (namedobjdict) "AEC_DISP_REP_CONFIGURATIONS"))(setq r (foreach-cdrs 3 varsdict ));returns all the names of the DisplayConfigs(if (member "MEP Dac ...
|
| In das Form Lisp wechseln |
|
Lisp : Papierbereich-Ansichtsfenster Beschriftungsmaßstab ändern
cadking am 12.09.2019 um 11:31 Uhr (15)
Danke für Dein Engagement.Ich muss in 1600 Dateien die Maßstabslisten bereinigen. Die Dateien enthalten zum Teil mehrere Layouts, bei denen der Beschriftungsmaßstab auf 1:1000_1, 1:1000_4 ... eingestellt wurde. Diese Maßstäbe lassen sich nicht aus der Maßstabsliste löschen. Darum habe ich eine Lisp, die alle Dateien öffnet, (die Maßstäbe der Pap-AF auf 1:100 setzen soll), dann alle Maßstäbe löscht und die benötigten Maßstäbe aus einer Vorlagezeichnug importiert. Ein Lösung für mein Problem würde mir sehr h ...
|
| In das Form Lisp wechseln |
|
Lisp : neue Liste mit Werten aus 2 Listen
cadking am 29.09.2012 um 10:49 Uhr (0)
Hallo,ich habe mir 2 Listen erzeugt. Nun möchte ich aus den Teilen der Listen, die nicht in beiden Listen vorkommen eine neue Liste erstellen.Liste 1:("FS_Richtungspfeil_unten" "FS_Richtungspfeil_oben" "FS_Standort2" "FS_Richtungspfeil_rechts" "FS_Rettungsweg_rechts" "FS_Richtungspfeil_links" "FS_Rettungsweg_links" "FS_Augenspüleinrichtung" "FS_Erste_Hilfe")Liste 2:("FS_Richtungspfeil_unten" "FS_Richtungspfeil_oben" "FS_Standort2" "FS_Richtungspfeil_rechts" "FS_Rettungsweg_rechts" "FS_Richtungspfeil_links" ...
|
| In das Form Lisp wechseln |
