|
AutoLisp : Inserts in allen Layouts löschen
wronzky am 28.02.2006 um 13:51 Uhr (0)
Hallo Stefan,ohne AktivX kannst Du auch aus den Blockdaten das "layout" der Blockeinfügung ermitteln über den GC 410. Dann geht das etwa so:Code:(setq akt_layout (getvar "CTAB"))(setq block_dat (entget block));Daten des Blocks....(setq layout (assoc 410 block_dat)); Name der Layoutregisterkarte(if (= (cdr layout) akt_layout);wenn aktuelles Layout = Layout des Element (entdel block) (progn (setvar "ctab" (cdr layout)) (entdel block) ))Grüsse, Henning------------------VoxelManufaktur Computer-Dienstleistun ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Prüfe Zeichnung auf Zoom Grenzen
wronzky am 19.10.2010 um 16:05 Uhr (0)
Achte aber darauf, dass extmin und -max in jedem Layout anders sein können. Zur Prüfung also erst ins Modell? ins 1. Layout?...Grüsse, Henning------------------zur AbstimmungHenning JesseVoxelManufakturComputer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de
|
| In das Form Lisp wechseln |
|
Lisp : Hilfe zu Lispprog.
wronzky am 05.01.2009 um 19:45 Uhr (0)
Hallo Alois,Also dann doch noch mal "integriert" in ?!Deine!? Routine:Code:(defun c:AlleLayoutsUmbenennen ( / n i) (vl-load-com) (or ;Startnummer setzen (if (setq n (getint "Startnummer 1:")) (setq n (1- n)) ) (setq n 0) ) ;Für jedes Layout in der aktuellen Zeichnung (vlax-for i (vlax-get-property (vlax-get-property (vlax-get-acad-object) ActiveDocument ) Layouts ) (if (/= 0 (vlax-get-property i TabOrder));Layout ist NICHT Modellbereich (taborder = 0) (if ...
|
| In das Form Lisp wechseln |
|
Lisp : Ansichtsfenster
wronzky am 08.07.2013 um 13:42 Uhr (0)
Hallo,und erst mal Willkommen auf CAD.de.WENN ein Afenster erzeugt wird (s. voriges Post), könntest Du darauf über (entlast) zugreifen:also erst direkt nach dem Erzeugen des Layouts Layout aktivieren: (setvar "ctab" "neues Layout") - neues Afenster wird erst jetzt erzeugt!und dann (entget (entlast)) - Daten des Afensters zum WeiterverarbeitenGrüsse, Henning------------------Henning JesseVoxelManufakturComputer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de[Diese Nachricht wurde von ...
|
| In das Form Lisp wechseln |
|
Lisp : renameblock.lsp
wronzky am 05.06.2008 um 23:34 Uhr (0)
hm...Sieht Dein code denn jetzt so aus:Code:(defun C:LAYOUTRENAME (/ ITEM LAYOUTLISTE) (vl-load-com) (setq NAME (cadr(fnsplitl(getvar"dwgname")))) (vlax-for item(vla-get-layouts (vla-get-activedocument(vlax-get-acad-object)) ) (setq LAYOUTLISTE(cons(list ITEM (vla-get-name ITEM) (vla-get-taborder ITEM) ) LAYOUTLISTE ) ) ) (setq NR 97) (foreach LAYOUT (cdr(vl-sort LAYOUTLISTE (lambda(X1 X2)((caddr X1) (caddr X2))))) (if(not(vl ...
|
| In das Form Lisp wechseln |
|
Lisp : Plotten aller Layer (separat!) im akt. Layout mit akt. Seiteneinrichtung
wronzky am 04.05.2012 um 15:48 Uhr (0)
Da bin ich jetzt überfragt, bei mit läufts genau mit den Zeilen, die ich gepostet habe...Grüsse, Henning------------------Henning JesseVoxelManufakturComputer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de
|
| In das Form Lisp wechseln |
|
AutoLisp : Layout- zu Objekteigenschaften
wronzky am 02.05.2005 um 15:18 Uhr (0)
Zitat: Original erstellt von CADmium: ..und die Frage, ob nur die vonLayer Eigenschaften,oder prinzipiell alle übernommen werden sollen. zumindest war das die Ausgangsfrage (s.o.) Henning Jesse ------------------ http://www.voxelman.de Computer-Dienstleistungen für Architekten und Ingenieure
|
| In das Form AutoLisp wechseln |
|
Lisp : Ansichtsfenster
wronzky am 08.07.2013 um 17:36 Uhr (0)
Hallo dap,wenn Du immer nur ein Afenster hast, dann bekommst Du den Namen im aktuellen Layout so:(ssname (ssget "_X" (list (0 . "VIEWPORT") (cons 410 (getvar "ctab")))) 0)Grüsse, Henning------------------Henning JesseVoxelManufakturComputer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de
|
| In das Form Lisp wechseln |
|
Lisp : Plotten aller Layer (separat!) im akt. Layout mit akt. Seiteneinrichtung
wronzky am 04.05.2012 um 13:40 Uhr (0)
Zitat:Aber hab ich denn hier die Chance irgendwie den druckbaren Bereich zu definieren??über die aktuellen Bildschirmansicht.Grüsse, Henning------------------Henning JesseVoxelManufakturComputer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de
|
| In das Form Lisp wechseln |
|
Lisp : Plotten aller Layer (separat!) im akt. Layout mit akt. Seiteneinrichtung
wronzky am 04.05.2012 um 14:56 Uhr (0)
export in eps exportiert den AKTUELLEN BILDSCHIRMAUSSCHNITT! Vielleicht ist da nichts zu sehen? (Bei meinem kurzen Test hats funktioniert.) Womit überprüfst Du den Inhalt der EPS?Grüsse, Henning------------------Henning JesseVoxelManufakturComputer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de
|
| In das Form Lisp wechseln |
|
Lisp : Plotten aller Layer (separat!) im akt. Layout mit akt. Seiteneinrichtung
wronzky am 04.05.2012 um 14:28 Uhr (0)
n ist eine Variable, die forlaufend mit den ganzen Layernamen gefüllt wird. Nur in der Command-Zeile müßtest Du z. B. schreiben:Code:(command "_layer" "_off" "*" "_on" "Konstruktion" "")Grüsse, Henning------------------Henning JesseVoxelManufakturComputer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de
|
| In das Form Lisp wechseln |
|
AutoLisp : Layout- zu Objekteigenschaften
wronzky am 02.05.2005 um 16:35 Uhr (0)
Zitat: Original erstellt von CADmium: @ scholle da mußt du (setq lay_eig (tblsearch layer ele_lay)) durch (setq lay_eig (entget(tblobjname layer ele_lay))) ersetzen, da tblsearch den GC370 nicht mitliefert. Na sowas, ist mir nie aufgefallen... haben wir anscheinend damals nicht gebraucht... Danke Thomas! Henning ------------------ http://www.voxelman.de Computer-Dienstleistungen für Architekten und Ingenieure
|
| In das Form AutoLisp wechseln |
|
Lisp : Plotten aller Layer (separat!) im akt. Layout mit akt. Seiteneinrichtung
wronzky am 04.05.2012 um 13:13 Uhr (0)
mal auf die Schnelle hätte ich es mit "EXPORT" gemacht:Code:(defun c:vox-layer2eps () (setq pfad "d:/temp/") (setvar "expert" 1) (foreach n (get-layer-list) (command "_layer" "_off" "*" "_on" n "" "_export" (strcat pfad n ".eps")) ) (setvar "expert" 0))(defun get-layer-list ( / layers) (vl-load-com) (vlax-for i (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))) (setq layers (cons (vla-get-name i) layers)) ))Grüsse, Henning[EDIT] - Variable "layers" lokalisiert [/EDIT]----------- ...
|
| In das Form Lisp wechseln |
