|
Lisp : Lisp-Files organisieren
CADmium am 27.09.2006 um 17:02 Uhr (0)
Zitat:Original erstellt von Geos:Schön wäre es, könnte man ACAD einen Ordner - mit allen Sub-Ordnern - in den Support-Pfad eintragen. kannste ja hiermitund (foreach PFAD (vl-directory-files nil -1)... lösen ..ansonsten hab ich ne entsprechende Ordnerstruktur auf der Platte und ziehe mir die seltenen Tools per Drag&Drop in die Zeichnung...------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
Tsetfurom : Josys Schultüte
fuchsi am 05.09.2007 um 15:18 Uhr (0)
Na dann gehen wir mal, eineige inge Schritt für Schritt durch (setq OldOsmode (getvar "OSMODE")) (setvar "OSMODE" 0)Merken des alten Objektfangesund Löschen des Objektfanges (setq LastObj (entlast)) Merken des letzten Objektes. Alle nachfolgenden Objekte sind dann von deinem LISP erzeugt wordenHier gibt es 3 Möglichkeiten, die zu beachten sind1. Zeichnung ist leer die Variable LastObj = nil2. Das letzte Objekt war ein INSERT mit Attributen - Es gibt noch NachfolgeObjekte3. Das letzte Objekt ist irgenein so ...
|
| In das Form Tsetfurom wechseln |
|
Lisp : Ändern des Basispunktes bei Blöcken
Alpschorsch am 16.03.2004 um 12:20 Uhr (1)
Sehe gerade das es in einer anderen Zeichnung geht!Gibt es einen Tip für eine sysvar!Gruß Alpschorsch
|
| In das Form Lisp wechseln |
|
Lisp : Ändern des Basispunktes bei Blöcken
CADmium am 21.02.2004 um 22:59 Uhr (1)
Ein Tool, um nachträglich den Basispunkt eines Blockes zu verändern. Dazu wird eine Blockreferenz durch "Anpicken" gewählt, und anschließend der neue Basispunkt bezüglich der Blockreferenz eingegeben.Ist die Blockreferenz transformiert (skaliert oder gedreht), wird - auf Wunsch - der Basispunktverschiebungsvektor auf den Blockursprungszustand rücktransformiert. Weiterhin werden - ebenfalls auf Wunsch - alle anderen Referenzen des Blocks in der Zeichnung upgedatet. Da die Blockneudefinition mit "_insert" "_ ...
|
| In das Form Lisp wechseln |
|
Lisp : Zeichnung als Block einfügen
CADwiesel am 06.11.2013 um 07:14 Uhr (1)
Ohne mal weiter auf den Kot einzugehen....ergänze deine Variablen am Anfang mit:Code: ""zaehler 1Blockname"Kanalbogen"Ersetze dann die Zeile am Ende:Code:(COMMAND "_rotate" L-elem "" "_non" l005p00 "")durch die Zeilen:Code:(command "_-block"(progn(while(tblobjname"block" Blockname)(setq blockname(strcat Blockname (itoa zaehler)) zaehler (1+ zaehler)) )Blockname)l005p00 L-elem "")(command "_insert" Blockname l005p00 "1" "1" "0")(COMMAND "_rotate" "_l" "" "_non" l005p00 pause)------------------GrußCADwiese ...
|
| In das Form Lisp wechseln |
BcLineBreak_V14.zip |
Lisp : Einen Kreis um jeden Punt in der Zeichnung machen
Brischke am 07.02.2014 um 08:29 Uhr (1)
Hallo Dirk,die anbei befindliche Programmdatei funktioniert mit beiden Varianten (32/64bit).Hinweis: Ich habe die Polylinien (innere Konturen) geschlossen, damit das auch richtig funktionieren kann - das solltest du auch tun!Grüße!Holger------------------Holger BrischkeCAD on demand GmbHIndividuelle Lösungen von Heute auf Morgen.defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!
|
| In das Form Lisp wechseln |
|
Lisp : LISP start debugging
Brischke am 04.01.2007 um 00:18 Uhr (0)
Zitat:Original erstellt von achim8: Es geht nicht um das Editieren, sondern um den unabhängigen Start/Ablauf des fertigen Programms. Im Prinzip wäre deshalb letzteres das Endziel für:- Datensatz von Element über Schlüsselcode aus Datenbank (access o.ä.) auslesen- Element in vorgegebene dwg-Datei einlesen (=zeichnen).Der 2. Teil scheint mir über LISP einfacher(gut)programmierbar zu sein. Für den 1. Teil und einen unabhängigen Programmlauf (Endziel) scheint mir (nach meinen bescheidenen Kenntnissen/Erfahru ...
|
| In das Form Lisp wechseln |
|
Lisp : (nicht) schreibgeschützte DWG mit Script öffnen
VMichl am 07.05.2008 um 22:21 Uhr (0)
(vla-open) wird die Zeichnung sauber öffnen - siehe: www.cadforum.cz/cadforum_en/qaID.asp?tip=5666 Vladimir Michl, www.xanadu.cz
|
| In das Form Lisp wechseln |
Rename_Wandstilname_AECDictionary.lsp.txt |
Lisp : Ändern von Einträgen im ACA-Stilmanager mit Lisp
cadking am 04.05.2023 um 00:48 Uhr (15)
so, ich habe es geschafft.Ich habe keine Listenelemente ausgetauscht, sondern die ganze Entityliste des Dictionary "AEC_WALL_STYLES" mit den aktualisierten GC3-Stilnamen neu erzeugt und dann mit entmod zurückgeschrieben.Hier eine Beispiel-DWG und die Lisp. Zum Starten der Lisp einfach per DRAG&DROP in die Zeichnung ziehen.------------------Danke Stefan
|
| In das Form Lisp wechseln |
|
Lisp : nicht abgestimmte Layer
tunnelbauer am 07.01.2008 um 17:40 Uhr (0)
Meiner Meinung nach ist dies nicht möglich.Zum einem müsste man wissen mit welcher Template die Zeichnung erstellt wurde - oder man deklariert die Zeichung zum Standard.Zum anderen werden Layer nur dann verfolgt wenn LAYEREVAL auf 1 oder 2 steht - stellt man diese Sysvar vorübergehend auf 0 erfolgt keine Evaluierung.------------------GrüsseThomasKorrekturen zum Kochbuch AutoLISP
|
| In das Form Lisp wechseln |
|
AutoLisp : Voreingestellter Block
CADmium am 05.12.2005 um 09:58 Uhr (0)
erstell von jedem Drucker ne pc3 Datei, die alle gleich heißen, Kollege A hat dann in der Standard.pc3 den Laser nebenan,,Kollege B in der Standard.pc3 den HP.. in den Zeichnungen ist nur der Verweis auf die Standard.pc3 gespeichert. So kommt, wenn Kollege A plotted die Zeicnhung auf dem Laser, bei Kollege B die Zeichnung auf dem HP..------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form AutoLisp wechseln |
|
Lisp : abfrage xref
CAD-Huebner am 06.04.2008 um 00:29 Uhr (0)
So würde es z.B. gehen:Code:(vl-load-com)(defun xreftest ( / block xrefexist) (vlax-for block (vla-get-blocks (vla-get-ActiveDocument (vlax-get-acad-object))) (if (= (vlax-get-property block "IsXref") :vlax-true) (setq xrefexist T) ) ) (alert (strcat (if Xrefexist "" "keine " ) "Xrefs in der Zeichnung vorhanden!")))(xreftest); Aufruf der Funktion beim Laden------------------Mit freundlichem GrußUdo Hübnerwww.CAD-Huebner.de
|
| In das Form Lisp wechseln |
|
Lisp : Übernehmen der Fläche einer Polylinie in das Schriftfeld (in einem Attributblock)
Wolfgang Kirsch am 14.09.2009 um 13:24 Uhr (0)
Das Lisp sollte eigentlich funktionieren.Wenn es beim Laden einen Fehler geben sollte, dann steht schon im Textfenster ein Hinweis.Aufgerufen wird das Lips mit "fl_att" bzw. "um_att".Die Lattenzäune sind normal, das ist so eine Eigenart bei Schriftfeldern.Einmal die Zeichnung regenerieren ( Konsoleneingabe: regen ) und dann steht auch der korekte Wert im Attribut.ciaoWolfgang Kirsch
|
| In das Form Lisp wechseln |
