|
AutoCAD VBA : selectionset sortieren?
Stelli1 am 21.05.2007 um 15:53 Uhr (0)
Hallo Gerald,hatte noch eine Idee wie es ohne viel Programmieraufwand geht.Dazu musst du unter Verweisen aber Mircrosoft ActiveX Data Objects Recordset 2.x Libary einstellen.Dann kannst du alle Möglichkeiten eines Recordsets im Speicher nutzen.Also Sortieren, Filtern, und-color: #FFFF99'>Suchen ..Code:Sub test() Dim MeineElemente As New ADOR.Recordset MeineElemente.Fields.Append "y", adDouble MeineElemente.Fields.Append "x", adDouble MeineElemente.Fields.Append "Index", adInteger MeineElemente.Open For i = 1 To 1000 ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : ObjectDBX
Stelli1 am 08.09.2005 um 10:52 Uhr (0)
Hallo Florian,stimmt leider das es hier kein selectionset gibt.und-color: #FFFF99'>Suchen könnte man so:Code:Private Sub CommandButton1_Click() Ist unter Verweisen eingebunden Dim axDoc As New AxDbDocument axDoc.Open "D:Daten_PZPZ_AW_DIN.DWG" Dim Entity As AcadEntity Dim BlockRef As AcadBlockReference Dim TestPunkt(0 To 2) As Double Dim InsPunkt As Variant TestPunkt(0) = 0: TestPunkt(1) = 0: TestPunkt(2) = 0 For Each Entity In axDoc.ModelSpace If Entity.EntityType = acBlockReference Then Set BlockRef ...
|
| In das Form Autocad VBA wechseln |
|
VBasic / vb.net / vbs / wsh : Zugriff auf MS Access
Stelli1 am 20.05.2009 um 09:29 Uhr (0)
Hi,hab noch ein Bespiel gefundenCode:Private Sub CommandButton1_Click()Dim adoCon As New ADODB.ConnectionDim adoRS As ADODB.RecordsetDim field As ADODB.fieldDim DbDatei As String DbDatei = "E:ProjekteEntwvb6 b_edbs3vorlage.mdb" adoCon.CursorLocation = adUseClient adoCon.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & DbDatei Set adoRS = New ADODB.Recordset adoRS.Open "select Folie,Elementardaten from EDBS_Surface_Folien Order by Folie", adoCon, adOpenStatic, adLockOptimistic Felder For Each field ...
|
| In das Form VBasic / vb.net / vbs / wsh wechseln |
|
AutoCAD VBA : Automatischer Programmstart
Stelli1 am 14.02.2008 um 17:06 Uhr (0)
Hallo Ines,hier ist mal ein Programmcode mit dem du ab einem Startordner nach einer Datei und-color: #FFFF99'>suchen kannst.Code:Sub SucheDatei() Debug.Print DateiSuche("C: emp", "Suchmich.txt")End SubFunction DateiSuche(vlst_Root As String, vlst_Datei As String) As String !!! Verweis auf Microsoft Scripting setzen !!! Dim fso As FileSystemObject Set fso = New FileSystemObject Dim RootFolder As Folder Dim SubFolder As Folder Ist die Pfadangabe mit abschliessenden If Right(vlst_Root, 1) "" ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Atribute Export
Stelli1 am 19.06.2009 um 15:29 Uhr (0)
Hallo Dirk,zugegeben, ich war erst mal sehr erstaunt das du deine Routine an das Ergeignis AcadDocument_BeginRightClickgehängt hast. Im AutoCAD würdest du dir damit keine Freunde machen wenn du das Kontextmenü quasi unbrauchbar machst. Ausserdem wieso soll der Benutzer dann nochmal wählen ?BTW: Wenn man ein schönes Programm um den Viewer baut, geht da schon auch was. Nur müsste das alles anders Organisiert sein.Aber, und das geht vom Ursprungsthema weg, wäre interessant was du da eigentlich machen willst. ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Werte ausAccess Bzw Excel Dateien auslesen.
Stelli1 am 18.08.2005 um 11:03 Uhr (0)
Hey ihr Moderatoren"Thema: Werte ausAccess Bzw Excel Dateien auslesen"Wenn das Ei denn genau landen soll sollte man dann auch noch zwischenöffnen und installiert unterscheiden.Hier dann die Access LösungCode:Private Sub CommandButton1_Click()Dim adoCon As New ADODB.ConnectionDim adoRS As ADODB.RecordsetDim field As ADODB.fieldDim DbDatei As String DbDatei = "E:ProjekteEntwvb6 b_edbs3vorlage.mdb" adoCon.CursorLocation = adUseClient adoCon.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & DbDatei ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Werte von Excel auf Attribute übergeben
Stelli1 am 17.03.2008 um 19:17 Uhr (0)
Hallo Bernhard, Zitat:Die gebe ich an. z.B.: ba(6).TextString = Cells(15, 6).ValueAber doch nicht im Programmcode, oder ?Du kannst es automatisieren wenn es in der Exceltabelle eine Spalte mit einem Elementnamen gibt und dieser auch in einem Blockattribut abgefüllt ist.Dann kannst du einen Block selektieren, den Elementnamen des Blockes aus dem Attributfeld lesen, diesen in der Exceltabelle und-color: #FFFF99'>suchen. Damit erhälst du z.B. die Zeile in Excel in der die Daten zu diesem Element stehen. Dann liest du die Daten w ...
|
| In das Form AutoCAD VBA wechseln |
|
VBasic / vb.net / vbs / wsh : Sonderzeichen in URI
Stelli1 am 10.09.2007 um 21:10 Uhr (0)
Hallo zusammen,hab ein Brett vor dem Kopf Ich möchte ein Script (.net) für Autodesk Topobase bauen. In einer Maske sind Bauarten mit botanischer und deutscher Bezeichnung enthalten. Hier habe ich einen Scriptbutton eingefügt der im WWW nach Informationen zu diesem Baum und-color: #FFFF99'>suchen soll.Code:Public Overrides Sub Button_Click() dim Baumname as string dim i as integer dim Cont as topobase.forms.DialogControls.SqlLabel Control für Baumart cont = me.Dialog.Controls.Item("$DEUTSCHEBAUMART") if cont.ExcelExpo ...
|
| In das Form VBasic / vb.net / vbs / wsh wechseln |
|
Rund um Autocad : Interner Fehler
Stelli1 am 13.09.2005 um 11:12 Uhr (0)
Hallo Tatjana,mit der Version 2005 solltest du alle DWG Formate lesen können.Das scheint es nicht zu sein; es sei denn es ist eine mit einemnicht AutoCAD erstellte DWG.Suche doch auch mal nach BAK Dateien der Zeichnung.Wenn du sie umbennst kannst du sie vielleicht lesen.Suche mal nach Autosave Dateien. Die kann man zu umbennenauch aktivieren.Mittels VBA könnte man verund-color: #FFFF99'>suchen die Zeichnung nicht in AutoCADzu laden sondern virtuell zu öffnen.Schon mal mit VBA gearbeitet ??Starte mal dein AutoCAD mit einer lee ...
|
| In das Form Rund um Autocad wechseln |
|
AutoCAD VBA : Objekte von einer Lage lesen
Stelli1 am 27.11.2012 um 19:09 Uhr (0)
Hallo,im angegebenen Link ist ein Kurzbeispiel mit einer kleinen Falle drin.Macht man mal um kurz was zu probieren.Ich habe dir das mal (ohne zu Testen) zusammenkopiert und auskommentiert.So sollte es gehen Code: Deine Funktion zur SelektionPublic Sub mySelect() Selectionset (hierin sollen deine ausgewählten Objeklte aufgelistet werden) Dim tSSet As AcadSelectionSet Arrays für Filterangeben anlegen Dim FType(0) as Integer Dim FData(0) as Variant Fehlerverfolgung an da man ein Selektionset nur einmal ha ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : TreeView - Steuerelement
Stelli1 am 25.08.2007 um 17:22 Uhr (0)
Hallo Dirk,und wen es sonst noch interessiert Da ich im Moment ein wenig mit XML machen muss hab ich interessehalber mal meine gewonnen Erkenntnisse in die Objektklasse eingebaut.Wir im Beispielprogramm kann dann sowohl mit der INI als auch mit der XML Datei arbeiten.Code: ### Klassenmodul: cls_Info_IniDatei !! Verweis auf Microsoft XML, v4.0 eintragen !!!Option ExplicitPrivate vlin_InfoArt As Integer (0= INI ; 1= XML)Private vlst_Dateiname As StringPrivate Declare Function WritePrivateProfileString Lib _ ...
|
| In das Form AutoCAD VBA wechseln |
