|
Lisp : Unterschiedliche Anzahl Objekte in der Zeichnung
cadffm am 27.07.2012 um 09:46 Uhr (0)
In diesem Fall hier geht es um Objekte die ausgeschaltet wurden (gc60 Wert 1).entweder Objekte durchlaufen und gc60 auf 0 stellen oderCADwiesel.de Programm NoShow , Funktion TNSH------------------CAD.de System-Angaben - CAD on demand - User:FAQ(Acad)[Diese Nachricht wurde von cadffm am 27. Jul. 2012 editiert.]
|
| In das Form Lisp wechseln |
|
Lisp : Nach Block in Zeichnung suchen
CADmium am 20.02.2012 um 07:45 Uhr (0)
mit (setq BL(tblnext "BLOCK" .... durch die Blocktabelle laufen .. dabei mit (tblobjname "BLOCK"(cdr(assoc 2 BL))) das Blockobjekt holen und von diesem mittels (entnext.. die Blockelemente durchlaufen ..diese auf "INSERT" testen und gucken ob der Name mit dem vorgegebenen übereinstimmt..------------------ - 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 |
|
Lisp : Prüfe Zeichnung auf Zoom Grenzen
Steff179 am 21.10.2010 um 10:57 Uhr (0)
Zitat:Original erstellt von cadffm:Lese den Thread nochmal - es geht darum Dateien zu prüfen, mehr nicht.Es geht auch nicht um eigene usw.Kann sein das ich was falsch interpretiert habe.War nur ein Gedanke um zu verhindern das noch mehr Zeichnungen falsch gespeichert werden.
|
| In das Form Lisp wechseln |
|
AutoLisp : Befehle bei jeder Zeichnung und nur beim Start
CADmium am 29.07.2004 um 19:28 Uhr (0)
Mal ein anderer Ansatz. acad.lsp wird nur beim Autocadstart abgearbeitet (einstellen) acaddoc.lsp (wenn vorhanden)...wird bei jedem Dokumentladen abgearbeitet. Oder hab ich was falsch verstanden? ------------------ - Thomas -
|
| In das Form AutoLisp wechseln |
|
Lisp : Liste nach Schliessen der Zeichnung merken
CADwiesel am 07.09.2023 um 11:11 Uhr (1)
Es gibt auch noch das Blackboard (vl-bb-setund die Registry (vl-registry-writeda kannst du auch listen, bzw Strings die die Liste enthalten (vl-prin1-to-string... reinschreiben------------------GrußCADwieselBesucht uns im CHAT
|
| In das Form Lisp wechseln |
|
Lisp : Neue Zeichnung erstellen über Scriptdatei
cadffm am 24.08.2017 um 15:34 Uhr (1)
So ganz bin ich noch nicht bei der SacheDarf dein AutoCAD denn eine Lispdatei von diesem Speichertort laden?TRUSTEDPATHSOder einfach per Hand ausführen: (load "C:CAD_toolsSchachtabmessungenschachtabmessungen.lsp")Funktioniert das?------------------CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD
|
| In das Form Lisp wechseln |
|
AutoLisp : Zeichnung speichern in zwei Pfade
firesheep am 12.12.2004 um 23:36 Uhr (0)
... wow, ich dachte eigentlich, dass ich mich wenigstens einiger Maßen mit AutoCAD auskenne. Bin aber noch ein absoluter VBA- und LISP- Anfänger. @ Proxy Müßte mir das mal Ruhe anschauen. Was meinst du denn mit Windows optisch kopieren. @CADwiesel bei den Speicherbutton müßte ich trotzdem zweimal speichern, oder? Sorry, Jungs trotzdem danke!
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Befehle bei jeder Zeichnung und nur beim Start
cadffm am 29.07.2004 um 15:50 Uhr (0)
Ich würde (wie startest du ACAD ?) in meiner ACAD-Verknüpfung ein Script angeben welches mir gestartet wird, in dem lasse ich dann die EXE ausführen - somit habe ich dann das Programm nur 1x gestartet... (ungetestet) ------------------ - Sebastian -
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Befehle bei jeder Zeichnung und nur beim Start
fuchsi am 02.08.2004 um 11:58 Uhr (0)
an und für sich alles nicht so leicht lösbar. die punkt.exe soll solange laufen, wie die acad.exe läuft, und zwar nur genau 1 mal. beim beenden der acad.exe soll auch die punkt.exe beendet werden. das wirst du so mit lisp nicht ermöglichen können. (zwar das einmalige starten mittels blackboard, aber nicht das beenden, (naja mit einem VBA Reaktor application.AppDeactivate und wilden API -Funktionen die aus dem Taskmanager applis abschiessen)) Besser wäre es eigentlich, wenn Programme , die nur 1mal laufen d ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Aus Lisp Zeichnung öffnen und wieder schließen
CADmium am 11.05.2005 um 14:22 Uhr (0)
mit ActivX kann ich auf mehrere geöffnete Zeichnungen zugreifen, der auslesenden Routine muß ich dann das entsprechende Document übergeben. In dem Zusammenhang ist vielleicht auch der Beitrag interessant. ------------------ - 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 |
|
AutoLisp : Plotstiltabelle in bestehender Zeichnung wechseln
AB-CAD am 04.11.2005 um 09:51 Uhr (0)
Danke, das wars.Entsprechend den Autocad-Konventionen hatte ich es gestern ebenfalls mit "_convertpstyles" versucht, allerdings war mir der sonst immer von Autocad verlangte Unterstrich zum Verhängnis geworden. Offensichtlich interessiert es Autodesk wenig, dass im Handbuch seit Jahren der offensichtlich falsche deutsche Befehl "KONVERTPSTILE" abgedruckt ist.Vielen Dank nochmals für die schnelle Hilfe.Armin
|
| In das Form AutoLisp wechseln |
|
Lisp : Layerliste aus gschlossener Zeichnung
astlex am 04.10.2007 um 11:42 Uhr (0)
hola kist,versuch mal das - habs mal für acad2006 in verwendung gehabt. kann sein, dass du die version der objdbx umstellen musst*.dwt - weiss nicht, ob das geht(setq objDBXDoc (vla-GetInterfaceObject (vlax-get-acad-object) "ObjectDBX.AxDbDocument.16"))(vla-open objDBXDoc "C:TempReadLayersFromClosedDrawing.dwg")(vlax-for item (vla-get-layers objDBXDoc) (setq lstLayerNames (cons (vlax-get-property item Name) lstLayerNames)))(vlax-release-object objDBXDoc)lg alex
|
| In das Form Lisp wechseln |
|
Lisp : Geheiminfo in Zeichnung
HofCAD am 12.09.2006 um 15:10 Uhr (0)
Code:(defun c:visYes(/ ss)(setq ss (ssget))(ss_visible ss 0))(defun c:visNo(/ ss)(setq ss (ssget))(ss_visible ss 1))(defun ss_visible ( ss code / na e1 n);vanaf R13+ (if ss (progn (setq n 0) (repeat (sslength ss) (setq na (ssname ss n) e1 (entget na) );setq (if (not (assoc 60 e1)) (setq e1 (append e1 (list (cons 60 code))));setq then (setq e1 (subst (cons 60 code) (assoc 60 e1) e1));setq else );if (entmod e1) (entupd na) (setq n (+ n 1));setq );repeat );progn ...
|
| In das Form Lisp wechseln |
