|
Lisp : mit AktivX ins Layouts wechseln
marc.scherer am 03.01.2007 um 12:31 Uhr (0)
Zitat:Original erstellt von RoyCAD:Danke es funk perfekt.Ja, das setzen einer Sysvar via ActiveX...Ich dachte, es ginge darum das Layout via ActiveX aktuell zu setzen.Es kommt zwar aufs gleiche raus, die Vorgehensweise ist aber eine andere:Code:(defun CAD-DE:LAYOUT-ACTIVATE (LAYOUT / FOUND DOCUMENT) (setq DOCUMENT (vla-get-activedocument (vlax-get-acad-object))) (if (= (type LAYOUT) STR) (progn (if (= (strcase LAYOUT) "MODELL") (setq LAYOUT "Model") ) (vlax-for ITEM (vla-get-lay ...
|
| In das Form Lisp wechseln |
|
Lisp : MTEXT zu TEXT - aber nur im Modellbereich
CADmium am 24.10.2006 um 12:23 Uhr (0)
warum willst du die verwuschteln? wegen dem Ziellayer?(defun c:MTEXT2TEXT( / LAYOUT AWS INDEX OBJ LAY) (foreach LAYOUT(cons "Model"(layoutlist)) (setvar"CTAB" LAYOUT) (setq AWS(ssget "_x" (list(0 . "MTEXT") (cons 410 LAYOUT)))) (setq INDEX -1) (repeat(sslength AWS) (setq OBJ (ssname AWS (setq INDEX(1+ INDEX)))) (setq LAY (cdr(assoc 8 (entget OBJ)))) (command "._layer" "_t" lay "_on" lay "_u" lay "_set" lay "") (command "_explode" OBJ) ) ) )------------------ - Thomas -"Bei 99% aller Problem ...
|
| In das Form Lisp wechseln |
|
Lisp : Markierte Layout-Registerkarten
Meldin am 26.01.2017 um 13:11 Uhr (1)
Hallo hier mal was zum testen.Code:(defun c:SelLayouts (/ LAY AWS LAYLIST GefilterteLAYLIST) (vlax-for LAY (vla-get-Layouts (vla-get-ActiveDocument (vlax-get-acad-object)) ) (setq AWS (vlax-vla-object-ename LAY)) (if (= 1 (getpropertyvalue AWS "TabSelected")) (setq LAYLIST (cons (getpropertyvalue AWS "LayoutName") LAYLIST)) ) ) (foreach teil LAYLIST (if (or (wcmatch teil (strcat "_" "*")) (wcmatch teil (strcat "Layout" "*")) ) () (setq GefilterteLAYLIST (cons teil Gefi ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Layereinstellung für Layoutfenster speichern
mkl-cad am 23.06.2006 um 08:05 Uhr (0)
Auszug aus Hilfe:So frieren oder tauen Sie Layer im aktuellen Layout-Ansichtsfenster 1. Wählen Sie aus dem Menü Format die Option Layer. 2. Wählen Sie im Layereigenschaften-Manager die Layer, die gefroren oder getaut werden sollen, und klicken Sie auf Details anzeigen. 3. Aktivieren oder deaktivieren Sie die Option Im !!! aktuellen Ansichtsfenster !!! frieren. 4. Klicken Sie auf OK. In denke mal das du, wenn du die Layereinstellungen änderst nicht im Ausschnittfenster bist. Du bist warscheinlich wohl im La ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Koordinaten des Ansichtsfensters im Layout, Lisp AFKOORD
spider_dd am 01.10.2007 um 07:49 Uhr (0)
So, wie versprochen afkoord nun mit wahlweisem Anschrieb innen oder aussen am AF LGThomas
|
| In das Form Lisp wechseln |
 |
Lisp : Layout verschieben???
cadffm am 23.09.2013 um 18:34 Uhr (15)
Es gibt vla-put-taborder, damit kommst du weiter (einen Command kenne ich auch nicht dafür)------------------CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD
|
| In das Form Lisp wechseln |
|
AutoLisp : Verwendete CTB über Lisp auslesen
fuchsi am 31.10.2003 um 08:58 Uhr (15)
(vla-get-stylesheet (vla-get-ActiveLayout (vla-get-activedocument (vlax-get-acad-object)))) gibt dir vom aktuellen layout den stylesheetname (ctb-date) siehe auch (VLA-get-CONFIGNAME pc3 date (VLA-get-CanonicalMediaName format (vla-get-centerplot plot zentrireen (vla-get-paperunits mm ioder inch (vla-get-stylesheet ctb datei
|
| In das Form AutoLisp wechseln |
|
Lisp : Koordinaten des Ansichtsfensters im Layout, Lisp AFKOORD
spider_dd am 27.09.2007 um 12:17 Uhr (0)
Hallo OtzeMachEd Zitat:Kann man das Tool so umwandeln, dass der Text NACH AUSSEN geschrieben wird?? Ja, kann man. Dazu musst Du nur überall wo die Richtung der Linien (setq richtg ...) und die Textausrichtung (setq textausri ...) ermittelt wird die Richtung um pi und die Textausrichtung vom "mr" auf "ml" bzw. andersherum ändern.LGThomas
|
| In das Form Lisp wechseln |
|
AutoLisp : Bitcode auflösen
s.wickel am 26.02.2004 um 13:59 Uhr (0)
Hallo! Ich bin ab grübeln, wie man einen Bitcode auflösen kann. Es geht darum, dass ich mit einem Programm Ansichtsfenster im Layout sperren und entsperren will. Die Information steht im DXF-Code 90, und der ist Bitcodiert. Wie stelle ich fest, ob der Code 16384 gesetzt ist oder nicht? Die codierung ist so: Bitcodierte Flags für Ansichtsfensterstatus: 1 (0x1) = Perspektivenmodus 2 (0x2) = Vordere Schnittfläche 4 (0x4) = Hintere Schnittfläche 8 (0x8) = Modus UCS-Follow 16 (0x10) = Vordere Schnittfläche nich ...
|
| In das Form AutoLisp wechseln |
|
Lisp : bem faktor global
tunnelbauer am 05.03.2008 um 16:48 Uhr (0)
Hier hat keiner was von "Daten wegzaubern" gesagt - das hast du hinzugefügt...Das was ich gesagt habe, ist das, dass du persistente Reaktoren programmieren willst ohne verstanden zu haben, was dir die Variable CVPORT liefert. Das eine ist ganz was simples - das andere was hochkomplexes... Und Daten kann man nicht nur durch Wegnehmen von Elementen zerstören, sondern auch durch hinzufügen von Dingen - fehlerhafte persistente Reaktoren gehören zu dieser Kategorie.Du hast bis jetzt nicht beschrieben was das Di ...
|
| In das Form Lisp wechseln |
|
Lisp : Blockgrenzen ermitteln
Andreas Kraus am 26.09.2019 um 10:02 Uhr (1)
Kurzer Tipp ... die Ploteinstellungen findest du im Layout-Objekt(setq layout (vla-get-activelayout (vla-get-activedocument (vlax-get-acad-object))))Und dann kannst/solltest du diese Sachen einstellen:(vla-put-configname layout configname) ; Plotername(vla-refreshplotdeviceinfo layout) ; neu einlesen(vla-put-paperunits layout paperunits) ; Zoll = 0 oder mm = 1(vla-put-usestandardscale layout usestandardscale) ; Einpassen oder nicht(vla-put-canonicalmedianame layout canonicalmedianame) ; Name der Papiergerö ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Layout mit Lisp erstellen
CADmium am 27.07.2004 um 15:11 Uhr (0)
Ist doch schon ein prima Ansatz.... und dann : (vl-load-com) (defun LAYOUT-MAKE(LAYOUTNAME / LAYOUT) (if(not(vl-catch-all-error-p (setq LAYOUT(vl-catch-all-apply vla-add (list (vla-get-Layouts (vla-get-activedocument (vlax-get-acad-object) ) ) LAYOUTNAME ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Wechseln ins Layout
Wolli am 08.02.2006 um 12:00 Uhr (0)
Hallo Zusammen,ich muß in ein bestehendes Lisp einen Wechsel in das erste (oder beliebiges) Layout einbauen.mit der Zeile:(command "layout;se;")erhalte ich die Fehlermedung:layout;se; Unbekannter Befehl "LAYOUT;SE;". Drücken Sie F1-Taste für Hilfe.erhalte ich die FehlermedungDanke und Gruß Wolfgang------------------"Früher war die Zukunft besser"-Karl Valentin-
|
| In das Form AutoLisp wechseln |
