|
Autocad VBA : Massstab von Layout -Ansichtsfenster
Pitsch52 am 29.08.2005 um 20:26 Uhr (0)
HiVorap mal - Danke für die Antworten!Doch gibt die Methode von Stelli1 nur den Gesamtmassstab, der bei der erstellung der Layout-Seite eingestellt wurde zurück, unabhängig von einem Ansichtsfenster.Die Methode von startrek Funktioniert sehr gut, solange auf dem Layout nur ein Ansichtsfenster vorhanden ist. Sobald mehrere Ansichtsfenster angelegt werden, ist es nicht mehr möglich die einzelnen Fenster anzusprechen. Im abschnitt Block, sind schon Items zu sehen, die meiner Ansicht nach auf Ansichtsfenster h ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : noch einmal Selektion
KlaK am 19.08.2008 um 18:26 Uhr (0)
Hallo Peter,was hast Du denn schon wieder vor? Eine Legende durchsuchen ob alle Blöcke auch vorhanden sind?Meines Erachtens kannst Du den Layoutnamen über den Gruppencode unter VBA so nicht herausfiltern, evtl. gehts ja über LISP.Wenn Dir der Vorschlag von Carsten nicht gefällt, hier noch eine Variante wie ich das machen würde:Wechsel in das Layout und mach ein acSelectionSetWindow ExtMin, ExtMaxdann weißt Du ob der Block in diesem Layout vorhanden ist oder nicht Damit kannst Du den Filter anwenden und sp ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Ansichtsfenster im Layout
InesP am 16.08.2005 um 07:30 Uhr (0)
Hi Leute,liegts an der Urlaubszeit oder ist mein Problem so uninteressant, daß keiner was dazu sagen will?Na, jedenfalls habe ich weiter rumprobiert und will mal versuchen mein Problem anders auszudrücken:Wenn in einem Layout mehrere Ansichtsfenster vorhanden sind, wie kann ich diese einzeln ansprechen? Haben die Namen, eine Item-auflistung habe ich jedenfalls nicht gefunden. Ich möchte z.B ein konkretes Ansichtsfenster von den mehreren aktiv setzen und dieses dann löschen.So, ich hoffe, ich habe mich heut ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Block im aktivem Layout suchen
Arol am 30.04.2009 um 12:13 Uhr (0)
1a Danke!!!
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Ansichtsfenster im Layout
InesP am 14.08.2005 um 20:43 Uhr (0)
Hallo Leute,ich stehe mal wieder vor einem Problem. Ich habe in meiner Zeichnung ca. 20 Layouts, in denen bereits Ansichtsfenster vorhanden sind. Leider stimmen diese nicht mehr in ihrer Größe. Deshalb möchte ich diese per VBA löschen, um dann automatisch neue,größenmäßig richtige erstellen zu lassen. Der zweite Teil ist ja auch kein Problem, aber ich möchte nicht manuell jedes Layout öffnen, um das darin befindliche Ansichtsfenster zu löschen. Wie kann ich das vorhandene Ansichtsfenster ansprechen? Mit Ac ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Mittels VBA den Layoutnamen ändern ?
alfred neswadba am 12.03.2010 um 15:49 Uhr (0)
Hi,vermeide GoTo-Anweisungen, wenn Du Dich später mal mit anderen Programmiersprachen auseinandersetzten willst. Und dann gäbe es noch das On Error ...., das ich wie folgt verwendet hätte:Code:Private Sub cmdOK_Click() Dim Layout As AcadLayout Set Layout = ThisDrawing.ActiveLayout If TextBox9.Text = "Model" Then MsgBox "Sie befinden sich im Modellbereich", vbInformation, "Zur Info" ThisDrawing.SelectionSets.Item("DB15").Delete Else dann koennen wir weiter fortsetzen If TextBox9.Text = "" Then ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Text (Beschriftung) in Layout ausrichten
otm am 31.10.2009 um 20:52 Uhr (0)
Danke, hab gut geschlafen. ------------------Christian
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Drucken mehrerer Seiten
rem2k10 am 29.01.2012 um 19:05 Uhr (0)
Hallo Ihr LiebenFolgende Situation:Auf einem Layout befinden sich 1 bis n DIN A4-Blattrahmen, je nach Anzahl in 1 oder mehreren Reihen (es handelt sich um Stücklisten). Nun ist es immer sehr mühselig, jede Seite einzeln Auszuwählen und zu Drucken. Ich möchte dieses gerne automatisieren indem ich nur angebe, wieviele A4-Blattrahmen sich in einer Reihe bzw. wieviel Reihen im Layout sind. Da die Rahmen immer Hochformat sind, lassen sich die Koordinaten dann leicht errechnen. Nachdem die Angaben gemacht wurden ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Date speichern unter
InesP am 25.01.2006 um 15:18 Uhr (0)
Hi Leute,Ich habe mal wieder ein kleines Problem:Ich habe eine Zeichnung mit 20 verschiedenen Layouts. Ich soll nun daraus 20 verschiedene Zeichnungen erstellen. D.h. 20mal die Zeichnung unter dem aktiven Layoutnamen abspeichern. Da dies aber mehrere Zeichnungen betrifft, wollte ich mir mittels VBA-Programm die Arbeit erleichtern. Mein Problem soll der folgende Code erläutern:Dim i As IntegerDim Dateiname As StringFor i = 0 To Layouts.Count - 1 Layout für Layout aktiv setzen ThisDrawing.ActiveLayout = La ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Benannte Text-Variablen im Layout ?
wwwilli am 10.12.2007 um 12:56 Uhr (0)
Hallo Stelli,ich bekomme bei manchen DWG in der Schleife "For Each Entity" nach Durchlauf einiger Tausend Objekte immer einen Fehler, den ich nicht abfangen kann:"Laufzeitfehler -2147221231(80040111): Automatisierungsfehler; ClassFactory kann angeforderte Klasse nicht liefern." For Each entity In layout.Block Debug.Print entity.ObjectName Next entity hier fehler?Kann man die "Entities" irgendwie anders ansprechen? Mit .Item(i) von irgendwas? Dann könnte ich ein "Resume Next" benutzen, um evtl. fehlerh ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Auswahlsatz, Filter für selectionsets
otm am 12.10.2009 um 13:17 Uhr (0)
Hat geklappt,hier nochmal der fertige Filter:Code:FilterType(0) = 8 Filter Layer FilterData(0) = aktLayer.Name Layername als String FilterType(1) = 410 Filter ob Modell oder Layout FilterData(1) = "Model" 0=Model; 1=Papierbereich FilterType(2) = -4 Objekttyp als Filter FilterData(2) = "OR" Objektname als String FilterType(3) = 0 Objekttyp als Filter FilterData(3) = "LWPOLYLINE" Objektname als String "LWPolyline","Circle" FilterType(4) = ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : vorhandene Bemassungen ändern
CADmium am 02.12.2004 um 13:07 Uhr (0)
dann nimm dies ( auch wenn es Lisp ist) (defun PUTPRECISION(Precision / BLOCK ) (vl-load-com) (vlax-for LAYOUT (vla-get-layouts(vla-get-activedocument(vlax-get-acad-object))) (vlax-for ITEM (setq BLOCK (vla-get-Block LAYOUT)) (if(wcmatch (strcase AcDbRotatedDimension ) *DIMENSION* ) (vl-catch-all-error-p (vl-catch-all-apply vla-put-PrimaryUnitsPrecision (list ITEM Precision) ) ) ) ) ) (vla-regen(vla-get-actived ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Text (Beschriftung) in Layout ausrichten
otm am 29.10.2009 um 23:05 Uhr (0)
Hi,hab auch kein ACAD daheim ------------------Christian
|
| In das Form AutoCAD VBA wechseln |
