|
AutoCAD VBA : Automatisches Drucken
CADWOMEN911 am 14.02.2008 um 10:53 Uhr (0)
Hallo Zusammen,nach langem und-color: #FFFF99'>Suchen im Forum, habe ich leider keine richtige Lösung für mein Problem gefunden.Deshalb meine Anfrage:Ich muss immer wieder Zeichnungssätze ausdrucken (Zusammenbauzeichnung mit allen zugehörigen Unterzeichnungen).Dies ist in Inventor ziemlich zeitauswendig.Ich würde gerne die Zusammenbauzeichnung aufrufen und dann anschließend alle Zeichnungen (Unterzeichnungen) mit einem Befehl ausdrucken.Es gibt ja schon verschiedene Druckprogramme, aber noch keins wo ich auch alle Unterzeichn ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Text?
Stelli1 am 05.03.2006 um 20:55 Uhr (0)
Oder bau dir doch ein kleines Progi. Code:Option ExplicitPrivate Sub BT_Ausführen_Click()Dim Text As String, T_pos&, T_Len&Dim Anzahl&If Val(Me.lbl_Anzahl.Caption) = 0 Then MsgBox "Es sind noch keine Entities gewählt !", vbCritical Exit SubEnd If Anzahl = Val(lbl_Anzahl) Select Case Me.TabStrip1.SelectedItem.key Case "ERSETZEN" FrmFortschritt.Show FrmFortschritt.Caption = "Texte tauschen ..." FrmFortschritt.ProgressBar1.value = 0 FrmFortschritt.ProgressBar1.Max = Anzahl ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : ThisDrawing.Utility.GetEntity
egug am 03.01.2007 um 19:30 Uhr (0)
Hallo allezuerst mal wünsche ich allen ein gutes erfolgreiches Jahr und gute Gesundheit.Nun zu meinem Problem :ich erstelle eine neue Zeichnung die ich aus einer Combobox auswähle. Die Zeichnung beinhaltet einen Block und einige Linien.Was ich machen will ist, ich möchte in diesem Block ein Attribut ändern. Das ganze funktioniert auch problemlos mit der folgenden Routine.Eigentlich möchte ich den Befehl "ThisDrawing.Utility.GetEntity pickedBlock," ersetzen, also keinen Block anpicken sondern über den Block ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Alle Objekte die auf dem Bildschirm sichtbar sind
Benny4 am 24.02.2011 um 15:07 Uhr (0)
Hallo,werde das mal probieren. Das Ergebnis ist immer richtig, ich möchte nur an Zeit einsparen. Und das mit den Indexen: Ich habe ja eine Zeichnung die von irgendjemand irgendwie gezeichnet wurde. Da kann es sein dass eine Linie mit index 0 mit einer Linie mit index 40.000 verbunden ist und diese muss ich und-color: #FFFF99'>suchen.PEDIT:So habe ich das bisher gemacht, nur funktioniert das bei einigen AutoCAD - Versionen nicht richtig. Und da der Benutzer nur die Linie anklicken soll und weiter nichts, habe ich auch das Prob ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : OT: gültige Pfade mit REs
startrek am 16.09.2005 um 21:37 Uhr (0)
Hallo zusammen,ziemlich daneben in dem Forum, aber wusste nicht wohin damit.Folgende OT-Frage mal:Wie kann ich mit VBA/Regexps gültige Pfadeingaben kontrollieren/korrigieren.Oder anders, unabhängig von Pfaden, alle ä ö ü durch ae ue ue Ae Ue Oeersetzen? Okay, man kann die Strings in VB mit Arrays abklopfen/vergleichen/ersetzen, no Prob, zumindest das kleingeschriebene ä nicht;-)Beim grossen Ä wirds da aber auch komplizierter;-)Dachte das muss sich doch mit Regular Expressions lösen lassen, allerdings schaf ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Layout löschen
mapcar am 16.07.2004 um 01:18 Uhr (0)
Hi Namenlos, dein Code ist ein wenig schwer nachvollziehbar, weil ich nicht weiss, was du da wirklich übergibst. Kann dir also nicht sagen, woher der Fehler kommt. Aber das Problem liegt irgendwo bei dir und nicht im System, denn das hier geht ohne Problem: Code: Public Sub Test() Dim n_layouts As Integer Dim oLayout As Object, oBlock As Object, oEntity As Object Dim bKeep As Boolean n_layouts = ThisDrawing.Layouts.Count For Each oLayout In ThisDrawing.Layouts bKeep = False If oLayo ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : ThisDrawing.Blocks
egug am 15.06.2008 um 10:38 Uhr (0)
was ich eigentlich möchte ist folgendes :- block in der dwg und-color: #FFFF99'>suchen- da ich weiss dass der block attribute hat, diese ausgeben z.B. msgbox, file etc.diese routine funktioniert, aber ich will den block nicht picken müssen ThisDrawing.Utility.GetEntity blk, pickedPoint, "Block picken" If blk.HasAttributes = True Then If blk.Name = "LOGO" Then numfile = Replace(zeichnung, ".dwg", ".num") Open numfile For Output As #1 Write #1, zeichnung Block_Attribute = blk.GetAttributes For cnt = LBound(Bloc ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Objektverknüpfung mit Datenbank
Proxy am 11.11.2004 um 13:04 Uhr (0)
_dbconnect eingeben enter Provider auswählen Ms OLE DB for ODBC Drivers oder so... je nach OS und Office Version, Datenquelleytyp auswählen bei 2ten Reiter mdb und-color: #FFFF99'>suchen ... Login vergeben falls ein vorhanden, bei Erweitert die entsprechenden Berechtigungen setzten, und unter alle vielleicht paar kritische Werte erfassen (anpassen) Connect Timeout, Data Source überprüfen etc. Dann müsste auf der linken Seite die Tabellen erscheinen die in der MDB existieren. Der Rest ist schönes MSSQL . P.S. Dont forget ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Datei öffnen Dialog ohne Formular
Gloem am 29.10.2008 um 08:58 Uhr (0)
Hallo,ich versuche per Dialog zur Dateiauswahl einen Dateinamen zu bestimmen, nur leider soll das ganze nicht in einem Formular stattfinden. Das bedeutet ja, dass ich nicht einfach die Verknüpfung "CommonDialog" auf mein Formular ziehen kann sondern das ich das ganze Ding per Quellcode anlegen muss:Code: Set fileDialog = CreateObject("MSComDlg.CommonDialog") Ausschalten der Fehlermeldung für den Dialog On Error Resume Next Setzen der Dialogeinstellungen With fileDialog .Filter = "Text ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Layertabelle in Access einbinden
otm am 08.01.2020 um 11:29 Uhr (5)
Liebes Forum,ich bin beim und-color: #FFFF99'>Suchen nicht weitergekommen, deshalb hier meine Frage:Gibt es eine Möglichkeit die Layer einer *.DWT-Datei mit allen Eigenschaften(An/Aus, Farbe, …) in MS Access als verknüpfte Tabelle darzustellen?In MS Access reicht ein ReadOnly-Zugriff auf diese Tabelle.Auch schon weiterhelfen würde eine Tabelle in MS Access in der nur die Layernamen stehen, wenn es in ACAD über VBA eine Möglichkeit gibt, einen Layer aus einer *.DWT-Datei anhand seines Layernamens mit allen Eigenschaften in die ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : VBA nach VB portieren
alfred neswadba am 20.05.2009 um 11:26 Uhr (0)
Hi Martin,negativ, soll heissen die Vermutung ist nicht richtig.VBA wird mit Office mitinstalliert, da hat imho das Betriebssystem keinen Einfluß; ich hab auch jetzt mit Windows7RC Office2007 installiert (brauchte ich eh) und bei Makro-Aufzeichnung erhalte ich schön brav VBA geöffnet Aber grundsätzlich ists schon so, die Tendenz der zukünftigen VBA-Verwendung geht wohl zurück, und das wohl schon auch technisch von Microsoft beeinflußt. Erstmals zu bemerken bei allem, was mit 64bit zu tun hat, da hat Autod ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Autocad Datensatz fortllaufend in Exceltabelle schreiben
Christian Hilse am 10.01.2018 um 15:38 Uhr (1)
Hallo Excelfreunde, folgendes Problem möchte ich lösen, ich teile es mal in 2 Abschnitte. Abschnitt 1: Wir arbeiten mit vielen Entwicklern im Büro und nutzen AutoCad. Im Jahr entstehen ca. 1000 Projekte, die ich mit hilfe von Excel erfassen möchte. Aus Autocad heraus habe ich die Möglichkeit einen Datensatz in eine Exceldatei schreiben zu lassen. Der sieht wie folgt aus: Zeile 1 ist bei jedem Entwickler identisch: A1: Projektnummer B1: Aufsteller C1: Topper D1: Tray E1: Projektfoto Zeile 2 ist projektbez ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Punkt innerhalb von Polygon
CADmium am 10.04.2008 um 14:00 Uhr (0)
Zitat:Original erstellt von pistolpete1:Aber ich glaube, diese Funktion müsste es ja auch schon längst in VBA geben, oder?Da das Universum wohl unendlich ist, und damit auch die Möglichkeiten, gibt es sicher eine Wahrscheinlichkeit 0 , das eine VBA-Lösung für das Problem existiert.Bei Lisp-Lösungen bin ich mir sicher Mann, quatsch und tipp nicht so lange rum, sondern mach einfach das Teil fertig, ist bestimmt schneller als und-color: #FFFF99'>suchen Und außerdem lernste was dabei!!Und wenn du fertig bist, postest du ...
|
| In das Form AutoCAD VBA wechseln |
