|
Autocad VBA : Änderung einer dxf-Datei
harryk am 17.10.2003 um 19:03 Uhr (0)
sehe ich das richtig, Du liest eine Dxf Datei in Excel ein, suchst das Vorkommen eines bestimmtem Strings und löscht die Zeile davor und die 14 nachfolgenden? Das sieht so aus als ob Du komplette Zeichnungselemente löscht, geht mit Autocad VBA besser da Du geziehlt nach diesen Typ mit den gewünschten Eigenschaften und-color: #FFFF99'>suchen und dann löschen, verschieben oder sonst noch was kannst. Wenn die Dxf Datei als Ascii vorliegt kannst Du das ganze auch direkt in der Datei machen, Open Zeichnung.dxf For Output As #1. ...
|
| 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 : Objekt in Ansicht zentrieren
BerryBerlin am 03.06.2013 um 10:46 Uhr (0)
Ich arbeite eigentlich nicht mit AutoCAD.Ich versuche aus einer Access-Datenbank heraus, Attribute in AutoCAD zu "manipulieren"(was soweit schon sehr gut funktioniert).Dabei kommt es vor, dass ein Block nicht in der Access-DB enthalten ist.Dann möchte ich diesen Block in AutoCAD auswählen und auf dem Bildschirm zentrieren, damit man ihn nicht und-color: #FFFF99'>suchen muss.Mir ist auch nicht klar, wie man diesen Befehl anwendet:Befehl: _ZOOM _Object (handent $handleVar)MfGBerryBerlin
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Laufzeitfehler bei AutoCAD.AcCmColor.22
KlaK am 23.10.2018 um 13:20 Uhr (1)
Zitat:Original erstellt von Goofy007:Hallo Cadmium,Danke für die rasche Antwort. Leider kann ich mit Lisp nicht viel anfangen. Mein Code ist Teil einer größeren Sammlung von VBA Programmen und ich weiß nicht, ob bzw. wie ich da Teile durch Lisp-Code ersetzen kann.Das mit den ersten 2 Ziffern ist mir bekannt. Die stehen da auch so drinnen. Meine Versionsnummer ist 22.Eigentlich war der gepostete Code auch schon zum Testen vereinfacht. Im Originalcode steht: Code:Dim AcFarbe As StringVersion = Left(ThisDr ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : MText mit Dateiliste bearbeiten
wwwilli am 14.09.2006 um 13:29 Uhr (0)
Ja, auch nicht schlecht.Muss drüber nachdenken, was da alles nötig wäre: Öffnen einer Datei wäre viel einfacher.Neueintrag = alle vorhandenen durchund-color: #FFFF99'>suchen, ob schon da, sonst Einfügepunkt für neuen und-color: #FFFF99'>suchen, dort Text absetzen, Hyperlink anhängen. Andere Objekte evtl. verschieben.Ich weiß all die nötigen Befehle dafür nicht, habe mich mit Behandlung von Zeichnungsobjekten in AC-VBA noch nicht auseinandergesetzt.Ich wünschte, man könnte in AC Makros AUFZEICHNEN, das würde den Einstieg wesentlich erleichtern.Mf ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : ACAD 2005 VBA
ToniM am 15.07.2005 um 08:20 Uhr (0)
Danke Proxy, das einfügen funktioniert jetzt! Hier ist ein Teil von meinem Programm: Private Sub cmd_testFile_Click() Dim insPnt(2) As Double Dim blkSK, blkEL, temp Dim i, k As Integer insPnt(0) = 0 insPnt(1) = 0 insPnt(2) = 0 Set blkSK = ThisDrawing.ModelSpace.InsertBlock(insPnt, BlockName, 1#, 1#, 1#, 0) Set blkSK = ThisDrawing.Blocks.Item(BlockName) **????** k = 0 For i = 0 To blkSK.Count - 1 Step 1 Set blkEL = blkSK.Item(i) ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Alle Layouts nach blöcken durchund-color: #FFFF99'>suchen
dan_rather am 19.05.2004 um 15:01 Uhr (0)
Danke Holger, wie bekomme ich den die Auswahl jetzt hierhin?: Excel starten. Set Excel = New Excel.Application Excel.Visible = True Erstellen einer neuen Arbeitsmappe und und-color: #FFFF99'>Suchen des aktiven Arbeitsblatts. Set ExcelWorkbook = Excel.Workbooks.Add Set ExcelSheet = Excel.ActiveSheet On Error GoTo Ende: ExcelWorkbook.SaveAs Pfad RowNum = 1 Header = False Papierbereich durchlaufen, um alle Blockreferenzen zu finden. For Each elem In ThisDrawing.Paper ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : AutoCAD 2010/2011 Datenübergabe per *.xml Datei
alfred neswadba am 12.04.2011 um 21:23 Uhr (0)
Hi,wenn Du mit dotNET arbeitest, dann kannst Du mal im INET nach dem Stichwort Serialize und-color: #FFFF99'>suchen, um automatisiert Klasseninstanz-Werte als XML auszugeben bzw. von einem XML Klasseninstanzen erstellen zu lassen.Mit VBA hast Du da einen schweren Stein aufgehoben, da gibts zwar auch ein paar Libs, aber VB ist eben älter als XML und daher noch nicht viel in diese Richtung geschehen.Würde man mich fragen, für mich käme da nur dotNET in Frage, dann da gehts (relativ) easy.HTH, - alfred -------------------www.hol ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Atribute Export
DirkiBoy am 18.06.2009 um 10:37 Uhr (0)
Hallo Leute,erstmal danke für das willkommen. Muss mich gleich entschuldigen für das späte antworten.Ich komme mit dem und-color: #FFFF99'>suchen auch nicht weiter, daher die Frage nochmals anders.Also wenn ich in ACad ein Object doppelklicke wird der "Enhanced Atribute Editor" geöffnet.Darin kann ich dann alle Attribute eines Objektes betrachten / ändern.Ich möchte nun im ersten schritt alle Attribute eines angeklickten Objektes in VBA auslesen.Wie geht es? Kann mir jemand ein Hinweis geben?DankeDirk
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Atribute Export
DirkiBoy am 18.06.2009 um 10:38 Uhr (0)
Hallo Leute,erstmal danke für das willkommen. Muss mich gleich entschuldigen für das späte antworten.Ich komme mit dem und-color: #FFFF99'>suchen auch nicht weiter, daher die Frage nochmals anders.Also wenn ich in ACad ein Object doppelklicke wird der "Enhanced Atribute Editor" geöffnet.Darin kann ich dann alle Attribute eines Objektes betrachten / ändern.Ich möchte nun im ersten schritt alle Attribute eines angeklickten Objektes in VBA auslesen.Wie geht es? Kann mir jemand ein Hinweis geben?DankeDirk
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Zugriff auf excel-zeile als Datensatz per ID
joern bosse am 20.05.2008 um 17:22 Uhr (0)
Hallo Fuchsi, der Grund ist, das ich beim googlen desöfteren gelesen habe, das die Verwendung von REDIM PRESERVE die Leistung stark vermindert, ob es stimmt? Keine Ahnung, das wird bei meinen paar Einträgen eh nicht auffallen. Und der wahre Grund ist, beim Testdurchlauf mit REDIM PRESERVE wurde mir irgendein Fehler an dieser Stelle ausgegeben, ich hatte keine Lust mehr zu und-color: #FFFF99'>suchen und daher habe ich das REDIM einfach vorweg gebastelt.Schönen Feierabend------------------viele GrüßeJörn
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Objekte innerhalb Schraffur auswählen
Stelli1 am 13.11.2012 um 20:12 Uhr (0)
Hallo,wenn du doch über die Texte gehst, kannst du die Textkoordinate auslesen.Dann schau mal in der Hilfe nach SelectAtPoint nach.Damit lässt du in der Zeichnung nach Objekten an dieser Koordinate und-color: #FFFF99'>suchen.Da sollte dann auch diene Schraffur bei sein.Wichtig ist, dass sich das zu und-color: #FFFF99'>suchende Objekt im sichtbaren Ausschnitt befindet.Also vorher Zoom Grenzen oder an die Textkoordinate.Wilfrid Stelberg------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Auswahlsatz in Acad erzeugen!
Big Sven am 21.02.2006 um 17:16 Uhr (0)
Hallo Forum!Ich habe eine Frage zum Bilden eines Auswahlsatzes. Ich möchte einen bestimmten Block anhand seines Namens herausfiltern.CODE:Dim FType(1) As Integer, FData(1) FType(0) = 0: FData(0) = "INSERT" FType(1) = 8: FData(1) = "BLOCKNAME" AWSatz.Select acSelectionSetAll, , , FType, FDataWenn ich jetzt in den Auswahlsatz schaue, dann sind dort alle Inserts enthalten und ich muss lange und-color: #FFFF99'>suchen, bis den richtigen gefunden habe.Was mache ich falsch?Vielen Dank für Eure Hilfe!Gruß Sven
|
| In das Form Autocad VBA wechseln |
