|
Autocad VBA : Textdateien öffnen/drucken/schließen
fuchsi am 27.07.2005 um 15:39 Uhr (0)
Internet und-color: #FFFF99'>suchen und-color: #FFFF99'>suchen und-color: #FFFF99'>suchen und-color: #FFFF99'>suchen sehr interresant(sind zwar VB6,VB.net,C++,C# Seiten,viele Tipps kann man aber auch teilweise bei VBA brauchen) http://www.activevb.de/startseite/index.html http://www.mentalis.org/agnet/ http://www.vbarchiv.net/home/willkommen.php http://www.codeguru.com/ ------------------ Ing. Anton Fuchs WWW.FFZELL.AT.TC
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Textdateien öffnen/drucken/schließen
fuchsi am 27.07.2005 um 15:41 Uhr (0)
Zitat: Original erstellt von fuchsi: Internet und-color: #FFFF99'>suchen und-color: #FFFF99'>suchen und-color: #FFFF99'>suchen und-color: #FFFF99'>suchen sehr interresant(sind zwar VB6,VB.net,C++,C# Seiten,viele Tipps kann man aber auch teilweise bei VBA brauchen) http://www.activevb.de/startseite/index.html http://www.mentalis.org/agnet/ http://www.vbarchiv.net/home/willkommen.php A HREF="http://www.codeguru.com/ warum zum T.... verhaut sich dieses Forum immer, wenn ich zum Schluss einen Link poste mit meiner Signatur ?????????????????? ------------------ Ing ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Objeke vergleichen
fuchsi am 26.11.2008 um 12:46 Uhr (0)
ich würde das problem anders angehen.Zuerst einen Auswahlsatz über alle Linien (nennen wir ihn MasterAusdwahlsatz).Hiervon die erste Linie nehmen. Dann einen Auswahlsatz erstellen von allen Linien in der zeichnung, wo entweder der Startpunkt mit dem Start oder Endpunkt meiner Linie (und bzw. umgekehrt). Alle diese gefundenen Linien aus dem MasterAuswahlsatz entfernen.Jetzt für alle dies gefunden Linien wiederum rekursiv angrenzende Linien und-color: #FFFF99'>suchen, bis jede dieser und-color: #FFFF99'>Suchen ins Lehre läuft.Jetzt nimmt man wiede ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Attribute an Blockreferenz anhängen
fuchsi am 17.11.2003 um 13:56 Uhr (0)
mit Dim p1(0 To 2) As Double p1(0) = 0 p1(1) = 0 p1(2) = 0 Set ret = ThisDrawing.Blocks( 1 ).AddAttribute(2, acAttributeModeNormal, prompt , p1, tag , value ) kannst du in der blockdefinition ein attribut hizufügen, um diese hizugefügte attribut , auch in den bereits vorhandenen blöcken einzufügen gibt es das expresstool ATTSYNC (das jedoch bei blöcken, die vorher kein attribut hatten probleme hat) wie man das in vb noch machen kann, muss ich erst und-color: #FFFF99'>suchen ------------------ ****************************** ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Blöcke auslesen
fuchsi am 27.09.2004 um 14:35 Uhr (0)
schau dir mal in der VBA Hilfe den bereich SelectionSets durch. hier kannst du direkt nach blöcken (INSERT) und-color: #FFFF99'>suchen , deren namen mit R-ST_* beginnen und die attribute haben. in lisp wäre das so (ssget X (list (cons 0 INSERT ) (cons 2 R_ST_* ) (cons 66 1)) die suchschlüssel sind da in VBA ident 0.. elemnttyp (INSERT) 2.. elementname (R_ST_* mit Wildcards möglich) 66.. hat attribute (1) musst dir halt nur die beispiele anschauen, und nach deinen suchkriterien abändern. ------------------ WWW.FFZELL.A ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Pfade
fuchsi am 06.12.2007 um 11:36 Uhr (0)
ich mag die DIR Methode nicht wirklich (vor allem weil man damit nicht rekursiv in Unterverzeichnissen und-color: #FFFF99'>suchen kann)Ich verwende dazu gerne das Microsoft ScriptingUnter Extras - Verweise - Hakerl auf Microsoft Scripting Runtime (scrrun.dll)Dann geht das so Dim tSc As New Scripting.FileSystemObject Dim tFo As Folder Set tFo = sc.GetFolder("c: emp") Dim tFile As File For Each tFile In tFo.Files Debug.Print tFile.Name Next Dim tFolder As Folder For Each tFolder In tFo.SubFolders Debug.Print ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Zugriff auf excel-zeile als Datensatz per ID
fuchsi am 19.05.2008 um 14:42 Uhr (0)
wenn Du nur eineige wenige Excel zeile benötigst, könnte diese Methode passen.Solltest Du aber alle Zeilen benötigen, und darauf gezielt zugreifen wollen (ähnlich Deinem Assoc Beispiel) könnte das Mricrosoft Scripting.Dictionary Objekt interresant sein.kleines Beispiel, anstatt eine Excelliste einzulesen mache ich nur eine Schleife von 1 bis 20, wobei der Schleifenzähler i als ID herhält.1. Verweis auf Microsoft Scripting Runtime (scrrun.dll)2. Erstellen eines Klassenmodules namens Datensatz mit folgendem ...
|
| In das Form AutoCAD VBA wechseln |
