|
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 |
|
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 |
|
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 |
Groupmode.zip |
Lisp : Gruppen-Fadenkreuzfarbe
CADmium am 26.05.2014 um 11:37 Uhr (1)
Anbei mal ein Makro fürn Button zum "umschalten"(defun C:GROUP-SWITCHMODE() (if(=(logand(getvar "PICKSTYLE")1)1) (progn (setvar "PICKSTYLE" (1-(getvar "PICKSTYLE")))(princ"
Gruppenwahl inaktiv.") (setenv "XhairPickboxEtc" "0") ) (progn (setvar "PICKSTYLE" (1+(getvar "PICKSTYLE")))(princ"
Gruppenwahl aktiv.") (setenv "XhairPickboxEtc" (rtos (+(* 65535 0)(* 256 0) 255)2 0)) ) ) (princ))und im Anhang was Reaktormäßiges .... am besten in der acaddoc.lsp laden lassen und dort auch gleich mit (C ...
|
| In das Form Lisp wechseln |
|
Lisp : Entmod mit Variable benutzen
CADmium am 25.01.2008 um 13:31 Uhr (0)
nimm z.B. Mtext ... der mehrere GC 3 (und den GC1) haben kann, in denen der Textstring abgespeichert ist .. da die falsche Reihenfolge beim entmoden ...oder nimm ne Bemaßung: z.B.((-1 . Objektname: 7432aa38 ) (0 . "DIMENSION") (330 . Objektname: 71453cd8 ) (5 . "F7DF") (100 . "AcDbEntity") (67 . 1) (410 . "Zeichnung Bl.1") (8 . "AM_5") (100 . "AcDbDimension") (2 . "*D114") (10 299.252 449.645 0.0) (11 302.252 452.345 0.0) (12 0.0 0.0 0.0) (70 . 32) (1 . "") (71 . 5) (72 . 1) (41 . 1.0) (42 . 30.0) (73 . 0 ...
|
| In das Form Lisp wechseln |
|
Lisp : (setq PFAD(getvar DWGPREFIX))
CADmium am 25.06.2008 um 16:33 Uhr (0)
...dann werd ich mal inkonsequent werden ... du gehst auf diese Seite , kopierst dir (defun str-subst(str neu alt / i la str2) (setq i 1) (setq la(strlen alt)) (setq str2 "") (while(= i(strlen str)) (if (=(substr str i la)alt) (progn (setq str2(strcat str2 neu)) (setq i(+ i la)) ) (progn (setq str2(strcat str2(substr str i 1))) (setq i(1+ i)) ) ) ) str2)in deine Lispdatei , die du anschließend mit _appload lädts usw . oder gleich in die Befehlszeile.... dann hast du in deiner aktuel ...
|
| In das Form Lisp wechseln |
|
Lisp : Zeichnung schreibgeschützt
CADmium am 09.05.2007 um 09:58 Uhr (0)
Wie ist es hiermit:(if(=(vla-get-readonly(vla-get-activedocument(vlax-get-acad-object))):vlax-true) (alert "Zeichnung Schreibgeschützt") (alert "Zeichnung nicht Schreibgeschützt"))------------------ - 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 : Layerliste aus gschlossener Zeichnung
CADmium am 03.10.2007 um 10:14 Uhr (0)
für (tblnext..) mußt du die Zeichnung öffnen und aktiv haben,mit DBX und ActivX kannst die die Layer auch auslesen ohne die Zeichnung zu öffnen. Ein Beispiel zum letzteren ist im "Kochbuch AutoLisp" enthalten.------------------ - 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 : Layerliste aus gschlossener Zeichnung
CADmium am 04.10.2007 um 12:12 Uhr (0)
Zitat:Original erstellt von fuchsi: Mit Lisp wirst überhaupt Probleme kriegen eine Zeichnung zu öffnen , und Lisp weiterlaufen zu lassen.Lisp läuft im Namespace der aktuellen Zeichnung, und wennst mit SDI=1 eine andere zeichnung öffnest, ist dieser Namespace mit dem Lisp futsch.Ich sehe hier auch eher die Lösung mit dem Object-DBX !Das sowieso ... aber es gibt ja noch die Möglichkeit, die Ergebnisse über die acaddoc.lsp zu ermitteln und in ne Datei speichern zu lassen, die man dann wieder auslesen kann . ...
|
| In das Form Lisp wechseln |
|
Lisp : SendCommand in anderer Zeichnung sofort ausführen
CADmium am 16.03.2011 um 15:25 Uhr (0)
... zoom und pan ( was ja auch nur ein Zoom auf Kordinaten ist) sind Bildschirmdarstellungssachen und gehen auch nur in der aktuellen 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 |
|
Lisp : SendCommand in anderer Zeichnung sofort ausführen
CADmium am 17.03.2011 um 08:16 Uhr (0)
die Liste der geöffnetetn Zeichnungen zu ermitteln ist via ActivX gar kein Problem .... alles was dokumentspezifische Methode hat ( zoom ist eine Methode des ACADobjektes, nicht des Dokumentes)kann man mit activX auch in den anderen nicht modalen Zeichnungen ausführen.... der Namespace , also die Umgebung in der das Programm ausgeführt wird , ist aber immer die aktuelle Zeichnung... ein Programm läuft nach dem Wechsel der aktuellen Zeichnung nicht in der neuen weiter...deshalb klappt es mit der Schleife du ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Befehle bei jeder Zeichnung und nur beim Start
CADmium am 30.07.2004 um 08:04 Uhr (0)
.. Na weil ich in dem ganzen Thread nichts über die acaddoc.lsp gelesen hatte .. ? Und dafür wird doch eigentlich der Unterschied gemacht: F1 liefert : AutoCAD lädt den Inhalt von drei benutzerspezifischen Dateien automatisch: acad.lsp, acaddoc.lsp und die MNL-Datei, die zum jeweils aktuellen Menü gehört. Die Datei acad.lsp wird vorgabemäßig nur einmal geladen, wenn AutoCAD gestartet wird, während acaddoc.lsp mit jedem einzelnen Dokument (oder jeder Zeichnung) geladen wird. ... Jedesmal, wenn eine Zeichnun ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Geheiminfo in Zeichnung
CADmium am 27.07.2006 um 15:55 Uhr (0)
..pack sowas in ein Dictionary..P.S. wer weiß wo und wie, kann auch immer digitale Daten manipulieren------------------ - 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 |
