|
AutoCAD VBA : Inhalte eines ListViews an AutoCAD - Tabelle übergeben
startrek am 20.11.2011 um 17:57 Uhr (0)
Hi Dirk,wenn ich das richtig sehe im Objektkatalog F2 hat AcadTable gar keine GetColumnname-Methode, sondern nur IAcadTable2 aber selbst da werd ich auch nicht recht schlau draus;-)Ich würde es so in der Art angehen (in einer neuen, leeren Zeichnung):Code:Sub table_add() Dim table As AcadTable, pt(2) As Double, i%, s Set table = ThisDrawing.ModelSpace.AddTable(pt, 4, 7, 10, 20) For i = 0 To table.Columns - 1 table.SetText 1, i, CStr(i) Next ZoomExtentsEnd SubSub vgl() Dim table As AcadTable, arr, i ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Fasen mit Zusatzfunktion
Carsten1210 am 21.01.2009 um 12:50 Uhr (0)
Hi Dirk,Aus der Hilfe:RetVal = object.IntersectWith(IntersectObject, ExtendOption) ObjectAll Drawing Objects (Except Pviewport and PolygonMesh)The object or objects this method applies to. IntersectObjectObject, input-only; The object can be one of All Drawing Objects.ExtendOptionAcExtendOption enum; input-onlyThis option specifies if none, one or both, of the objects are to be extended in order to attempt an intersection.acExtendNone Does not extend either object. acExtendThisEntity Extends the base objec ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Autocad aus Excel heraus ansprechen
Stelli1 am 22.02.2008 um 15:05 Uhr (0)
Hallo Ines,damit legst du fest das Datenfelder mit dem Index 1 anstatt 0 beginnen Zitat:Option Base 1 Datenfeld soll mit 1 beginnenAls Startpunkt brauchst du einen 3D Punkt Zitat:Dim pt(2) As Double Startpunkt (linker oberer Punkt der Tabelle) festlegenRichtig wäreCode:Dim Pt(0 to 2) as Doublept(0)= 100 Rechtswertpt(1)= 50 Hochwertpt(2)=0 HöheDein Autocad Objekt versuchst du in der falschen Reihenfoge zu erzeugenCode:On error resume next Versuche eine Instanz zu ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Überschneidungen feststellen
mapcar am 07.05.2004 um 22:42 Uhr (0)
Mir kam eben noch eine Idee: Habe spaßeshalber mal einen Block gemacht, der nur zwei Punkte enthält (lower left und upper right des Umgebungsrechtecks). Da kann eigentlich kein Schnittpunkt entstehen, wenn nicht zwei Referenzen deckungsgleich eingefügt werden. Es ist genau so, wie ich vermutet habe: Es wird nur das Umgebungsrechteck getestet, du musst also nach dem KO-Prinzip alle Unterentities testen. Noch ein Hinweis zu deinem Code: Wäre nett, wenn du Option Explicit / Option Base verwenden und angeben w ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Screen.Heiht in VBA nicht bekannt?
Goofy007 am 13.08.2006 um 19:49 Uhr (0)
Hallo Forum!Ich habe VB-Code aus dem Internet, den ich nun in ein VBA-Projekt einzubauen möchte. Allerding habe ich nun ein Problem. Im VB-Code wird der Ausdruck Code:.Bottom = Screen.Height Screen.TwipsPerPixelY verwendet. Und hier sagt AutoCad-VBA nur Zitat:Variable nicht definiert Ich vermute nun, daß VBA das Screen Objekt (Windows Desktop) nicht kennt. Ich vermute es sollte hier 3 Möglichkeiten geben das Problem zu lösen. 1. VB-Code einbinden. Leider hab ich keine Ahnung wie das geht!2. Ein Verweis a ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Punktnummern und Koordinaten
Mike_mair am 17.03.2007 um 15:22 Uhr (0)
Bei dieser Funktion können nach auführen des Befehls nur Blöcke als Objekte gewählt werden. Dann wird für jedenblock der Blockname und und sofern der Block Attribute hat alle Attribut Tags und eingegeben Attribut Texte ausgelese....---------------------------------------------------------------Option ExplicitOption Base 1Public Sub GetBlockInfo()########### SELECT ANWEISUNG ##########Selection Set deklarieren Dim objSelection As AcadSelectionSetFehlerbehandlungOn Error Resume Next ########### Neuen Selec ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Problem mit Excelverknüpfung
VBA-Piet am 12.05.2005 um 21:50 Uhr (0)
Hallo Bloody Mess, Dein erster link enthielt wohl tatsächlich schon die Lösung: Dim acApp As AutoCAD.AcadApplication Set acApp = New AutoCAD.AcadApplication ich hab es bloß nicht kapiert. Ich habe zwischenzeitlich in der Autodesk knowledge base gestöbert und darin einen ähnlichen Tipp gefunden, nämlich Set acadApp = AcadApplication. Damit funktioniert s! Eigentlich wollte ich überhaupt keine Verweise auf AutoCad setzen, da mein Code als ActiveX control aufgerufen wird (Kopierschutz) und mit allen Acad- ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Block - Attribute
mapcar am 31.03.2004 um 21:34 Uhr (0)
Keine Ahnung, was du da machst - es ist völlig egal, wie der Block zustande gekommen ist. Ich vermute, du verwechselst irgendwo was (z.B. de Unterschied zwischen einem Block (der niemals Attribute haben kann!) und einem Insert (= Blockreferenz). Es ist völlig unerheblich, ob die Block-Definition in einer Zeichnung erzeugt wurde oder aus einer Datei stammt, denn der Block spielt bei Attributen nur in dem Augenblick eine Rolle, in dem das Insert erzeugt wird. Später kann die Blockdefinition verändert werden, ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Absturz durch Automatisierungsfehler ?
Goofy007 am 02.01.2006 um 10:28 Uhr (0)
Hallo Forum,Ich habe eine Dialogbox. Nach Eingabe von Daten in ein Textfeld, drücke ich einen CMD-Button und das Programm macht was es soll.Nun wollte ich die Anzahl der Klicks reduzieren und versuche das Drücken des Buttons wegzulassen, indem ich den Programmaufruf beim AfterUpdate Ereignis des Textfeldes ausführe.Das Ergebnis ist ein Automatisierungsfehler (Laufzeitfehler -2147147848 (80010108) Das aufgerufene Objekt wurde von den clients getrennt.Wenn ich Debuggen auswähle steht mein Programm im Modul b ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Autocad aus Excel heraus ansprechen
Murkel am 22.02.2008 um 12:05 Uhr (0)
Hallo,ich habe jetzt AutoCAD zum Laufen gebracht dank Eurer Hilfe!Leider funktioniert die Sache immer noch nicht, aber hier erstmal mein Proggi:Option Base 1 Datenfeld soll mit 1 beginnenDim zeile As IntegerDim spalte As IntegerDim z As IntegerDim s As IntegerDim Datenfeld() As VariantDim strFilename As StringPublic Sub CommandButton1_Click()ExceldatenAcadtabelleEnd SubSub Exceldaten() zeile = 4 spalte = 5 ReDim Datenfeld(zeile, spalte) Erfassung der Excel-Daten For z = 1 To zeile ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Suchen/Ersetzen via RegExp
mapcar am 18.09.2004 um 00:24 Uhr (0)
Hi Nancy, ich hab mal versucht Bernd s [bst] RegexReplace Wer ist Bernd? Und was hat der damit zu tun? Fehlt da vielleicht ein Link? Verweis auf Microsoft VBScript Regular Expressions 5.5 setzen Öh, wo ist denn der Verweis? sollte in letzter Zeit ein recht monologlastiger Eindruck entstanden sein Geht mir manchmal auch so - die wirklich interessanten Dinge interessieren oft kein Schwein;-) RegEx ist ein sehr interessantes Thema. In Lisp gibt es nur das verschissene WCMATCH zum suchen - das tau ...
|
| In das Form Autocad VBA wechseln |
