|
Autocad VBA : Layout wechseln
BloodyMess am 10.09.2004 um 11:36 Uhr (0)
Hi Dan, der Fehler kommt durch die 2004er Dwgs, hab gerade nur 2000i zur Hand. Nehm das dann mal auf den anderen Rechner rüber, dann probier ich weiter. Aber der Fehler mit der linken Ecke, da hat er nicht nur einmal gefragt, ich glaub 3mal hatte er es wissen wollen. Gruß TP ------------------ Code: For Each Person In This.Forum TP.Say have a nice day! Next Person
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Ansichtsfenster im Layout
BloodyMess am 16.08.2005 um 08:22 Uhr (0)
Hallo Ines,probier mal folgenden Code ...Code:Option ExplicitSub test()Dim oLayout As AcadLayoutDim iZaehler As IntegerFor Each oLayout In ThisDrawing.Layouts For iZaehler = 0 To oLayout.Block.Count - 1 Step 0 If oLayout.Block.Item(iZaehler).ObjectName = "AcDbViewport" Then oLayout.Block.Item(iZaehler).Delete End If Next iZaehlerNext oLayoutEnd SubDas Problem an der Sache ist, dass wenn Du das Object löscht, werden die Item wieder neu durchnummeriert und das nachfolgende Object ist ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Ansichtsfenster im Layout
BloodyMess am 16.08.2005 um 09:49 Uhr (0)
Hallo Ines,so sollte es nun aber funktionieren. Bissle umständlich, wirst es denke aber nur einmalig einsetzen.Code:Option ExplicitSub test()Dim oLayout As AcadLayoutDim iZaehler As IntegerDim nZaehler As IntegerDim arrViewPorts() As AcadPViewportFor Each oLayout In ThisDrawing.Layouts nZaehler = 0 For iZaehler = 0 To oLayout.Block.Count - 1 Step 1 If oLayout.Block.Item(iZaehler).ObjectName = "AcDbViewport" Then ReDim Preserve arrViewPorts(iZaehler) Set arrViewPorts(iZaehler) = oLayo ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Layout wechseln
BloodyMess am 10.09.2004 um 21:53 Uhr (0)
Hallo Dan, hab dein Programm jetzt mal auseinandergenommen, das Ergebnis kannst Du Dir im Anhang mal anschauen. Hab´s nur mal für DIN A4 gemacht. Es ist sehr schwer sich durch fremden Code zu wurschteln, ohne irgendwelche Hinweise zu haben, naja sei´s drum. Was Du mit deinen Attributen da machst am Ende, das hab ich überhaupt nicht verstanden. Weiß auch nicht, was Du mit dem kopieren von den Attributen bezweckst. Kenne halt nur Blöcke, die Attribute haben, da hab ich nen paar genommen und das ausprobiert. ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Layout wechseln
BloodyMess am 10.09.2004 um 11:10 Uhr (0)
Hallo Dan, ich war mal so frei, wie ich es mehr oder weniger machen würde ... Als Beispiel für ein Select Case an hand deiner dvb ... das könnte so tun, hab´s nicht ausprobiert ... Code: Select Case UserForm1.Combo1.Value Case DINA4 If ThisDrawing.ActiveSpace = acModelSpace Then MsgBox wechsel in den Papierbereich , vbOKOnly ThisDrawing.ActiveSpace = acPaperSpace End If Antwort = MsgBox( bitte den Startpunkt in der linken unteren Ecke s ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Layout wechseln
BloodyMess am 10.09.2004 um 09:54 Uhr (0)
Hallo, @Nancy, bin froh, das Du den Anfang gemacht hast ... @Dan mir ging es ebenso wie Nancy. Auch ich wußte nix so recht mit deinem Code anzufangen. Ich lerne je gerne noch dazu, aber bei deinem Code ist einiges, was noch verbesserungswürdig ist. Es spricht auch nix dagegen, wenn man von Anderen den Code in sein Projekt mit einbindet, mach ich auch (FileDialoge, Drucker ermitteln, usw.). Man kann nicht alles wissen. Der Teil ist in Ordnung, aber bei deinem Code bleiben mir manche Sachen verborgen. ...
| | In das Form Autocad VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
