|
Autocad VBA : Massstab von Layout -Ansichtsfenster
startrek am 30.08.2005 um 12:16 Uhr (0)
Hi Pitsch,bei mir tut sowas in der Art:Code:Sub x() Dim lay As AcadLayout, i% Set lay = ThisDrawing.ActiveLayout For i = 0 To lay.Block.Count - 1 If TypeName(lay.Block.Item(i)) = "IAcadPViewport2" Then _ Debug.Print i, lay.Block.Item(i).CustomScale NextEnd SubGruss Nancy
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Layout-Wechsel
startrek am 03.05.2005 um 18:03 Uhr (0)
Abend JoBo, schau Dir mal in der Hilfe das Example SetLayoutsToPlot() an, also object.setlayoutstoplot (array of layouts) da wird faktisch eine Liste aller Layouts die geplottet werden sollen übergeben. Das müsste doch in etwa in deine Richtung laufen, oder? Hab s aber nur kurz überflogen, nicht probiert;-) Gruss Nancy
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Layout wechseln
startrek am 07.09.2004 um 22:04 Uhr (0)
Axel, ich glaube wir sehen das viel zu kompliziert, hab mich ehrlichgesagt auch nicht getraut was zu posten, weil s ich denne auch nicht verstanden habe. Wahrscheinlich - also ich mein nur ne dumme Idee - alle Layouts über eine listbox listen lassen, der User wählt eins und danach erst kommt selectOnScreen zum tragen ;-) Naja irgendsowas in der Art wahrscheinlich ... lg Nancy -- Karen has her own i, and she is not going to let Frank put his data into it. - F. D. Boswell
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Massstab von Layout -Ansichtsfenster
startrek am 28.08.2005 um 16:32 Uhr (0)
Hi,tippe mal im DF:Code:?thisdrawing.ActiveLayout.Block.Item(1).customscale 10,0000000602102Das ist erstmal das was du suchst.Du musst natürlich sicherstellen, ob Typeof Item(i) IAcadPViewport2 ist, also IMHO via Schleifchen.Aber am besten Du machst einfach mal sowas:Code:sub x() dim l as acadlayout set l=thisdrawing.activelayout stopend subUnd nun im Lokalfenster dein Object l samst Unterobjekten mal unter die Lupe nehmen,da steht [fast] alles drinnen, was man so braucht ;-)Gruss Nancy
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Layout wechseln
startrek am 08.09.2004 um 10:13 Uhr (0)
Hi Dan, naja klarer und so ... ;-) Hab s auf keinerlei Crash s getestet, nur mal so als ein (möglicher) Ansatz. lg Nancy -- Code: Modul Sub und_los() Dim sset As AcadSelectionSet frmLayouts.Show 0 Set sset = ThisDrawing.SelectionSets.Add( set01 ) sset.SelectOnScreen MsgBox sset.Count sset.Delete End Sub Code: frmLayouts Private Sub UserForm_Initialize() Dim i% With ThisDrawing.Layouts For i = 0 To .Count - 1 ListBox1.AddItem .Item(i).Name Next End Wit ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Layout wechseln
startrek am 09.09.2004 um 23:50 Uhr (0)
Hallo Dan, vorweg: hab lange überlegt, ob ich was schreibe und überhaupt, hoffe es kommt nicht falsch an, das wär schade. Ich find s erstmal schön, wennde deine fertigen Makros/dvb hier postest, aber wennde denne sowas schon machst, dann musste auch mit Kritiken leben aber macht nix, man kann eh nur draus lernen. Ausserdem, im Lisp-Forum wird fast jede Zeile analysiert/diskutiert, hier wohl weniger, deswegen Dan pack ich Dich jetz mal am Schopf ;-) Okay zum content: Möglicherweise hat das zipppen au ...
| | In das Form Autocad VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
