|
VBasic : VBA ins richtige Layout springen
Stelli1 am 04.12.2005 um 15:17 Uhr (0)
Hallo Manfred,durch Zufall habe ich deine Frage gelesen kann sie aber nicht beantworten weil einige Angaben fehlen.Arbeitest du mit AutoCAD ?Wie machst du deine Analyse ? per VB/VBA ...?Was für eine Datenbank hast du ?Erstmal hört es sich so an, als ob du hier besser aufgehoben wärst.Stelli ------------------Warum lispeln wenns auch anders geht.
|
| In das Form VBasic wechseln |
|
VBasic : VBA ins richtige Layout springen
Stelli1 am 06.12.2005 um 11:39 Uhr (0)
Hallo Manfred,die Info mit AutoCAD ist schon wichtig.So kann es gehen:Code:Dim iLayout As AcadLayoutDim iEntity As AcadEntityFor Each iLayout In ThisDrawing.Layouts For Each iEntity In iLayout.Block Debug.Print iEntity.ObjectName Behandlung der gewünschten Objekte If iEntity.ObjectName = "XY" Then End If Next iEntityNext iLayoutStelli------------------Warum lispeln wenns auch anders geht.
|
| In das Form VBasic wechseln |
|
AutoCAD VBA : noch einmal Selektion
Stelli1 am 19.08.2008 um 16:17 Uhr (0)
Hallo Peter, Zitat:mySS.Select acSelectionSetAll, , , myType, myDataWenn ich mich recht erinnere, wird nur das selektiert was sichtbar ist. Versuch doch mal zuerst auf das Layout zu wechseln und dann dein Selectionset zu füllen. Ist es dann auch noch leer?Wilfried Stelberg------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| In das Form AutoCAD VBA wechseln |
|
Rund um Autocad : Zoom Grenzen festlegen
Stelli1 am 27.10.2005 um 10:28 Uhr (0)
Hallo Werner,es freut einen immer wieder wenn man eine Zeichnung bekommt in der am Rande irgend ein "Schrott" hängt.Zeichne deine Dummy- Blöcke, Linien, Bemassungen doch auf ein Layout Muster. Dann werden sie nicht bereinigt, stören aber auch nicht in der Zeichnung und ein Fremder weiss dann auch was damit anzufangen.Stelli------------------Warum lispeln wenns auch anders geht.
|
| In das Form Rund um Autocad wechseln |
|
AutoCAD VBA : Werte aus PVIEWPORT lesen
Stelli1 am 10.01.2008 um 20:00 Uhr (0)
Hallo Andreas,ich kann mich kaum noch erinnern.Die (Welt)Koordinate des Ansichtsfensters, dass war doch das was du brauchst, ist in der Eigenschaft "Center" gespeichert.Ich hab mal einen Codeausschnitt eingefügt. Vielleicht hilft er dir weiter.Code:Sub Werte_Aktualisieren() Dim Zentrum As Variant If Me.com_Layout.ListIndex = -1 Then MsgBox "Es ist kein Layout angegeben !" & vbCrLf & vbCrLf _ & "Die Funktion kann nur im Layout ausgeführt werden!", vbCritical Exit Sub End If ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Werte aus PVIEWPORT lesen
Stelli1 am 10.01.2008 um 20:04 Uhr (0)
Hallo Andreas,hab noch was gefunden.Code:Private Sub BT_Bezugspunkt_Click() Dim varPunkt As Variant Dim dblPunkt(0 To 2) As Double Dim Angabe As Boolean Dim Massstab As Double If obj_ACAD_app.ActiveDocument.ActiveSpace = acModelSpace Then MsgBox "Im Modellbereich gibt es keine gültigen Ansichtsfenster!" _ & vbCrLf & vbCrLf _ & "Wählen sie ein Layout aus und versuchen es noch einmal.", vbCritical Exit Sub End If If Not aFenster Is Nothing Then obj_ACAD_app.ActiveDocument.MS ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : VBA und Ansichtsfenster
Stelli1 am 27.03.2009 um 15:30 Uhr (0)
Hallo Stolti,Lars hat doch schon geschrieben wie es am einfachsten geht. Zitat:Original erstellt von Lars Geis:Moin Dirk,du kannst es bestimmt auch mit VBA lösen, auf die "herkömmliche" Art und Weise geht es bestimmt schneller und einfacher.Erzeuge dir eine Vorlagenzeichnung, in der die Layer aller Bem. Stile schon drin sind und sage einfach jedem Ansichtsfenster, welche Layer in diesem angezeigt werden sollen und welche nicht. Der Vorteil ist folgender: Du kannst mehrere Ansichtsfenster mit verschiedenen ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Blockvoransicht
Stelli1 am 09.03.2007 um 10:59 Uhr (0)
Hallo Dirk,irgendwie kommt mir dein Code bekannt vor. Keine Ahnung wo das Problem liegt.Da du ja immer so grosszügig Us verteilst hier mal ein Ansatz der alle Dateien aus einem Verzeichnis liest und alle Blöcke jeder einzelnen Zeichnung nacheinander in eine leere Zeichnung kopiert und anzeigt. Als Einfügepunkt Markierung ist ein Kreis mit drin.Das kann dann vielleicht auch jemand brauchen der aus einer beliebigen Zeichnung einen Block, ein Layout oder so was in die aktuelle Zeichnung einfügen möchte.Ich g ...
|
| In das Form Autocad VBA wechseln |
