|
AutoCAD VBA : Vb.net COM-Object Beispiel
alfred neswadba am 23.03.2011 um 21:36 Uhr (0)
Hi,die AcadApp-Variable befüllst Du ungünstig, denn Du schickst den Computer auf die Reise, ob er einen ActiveX-Server findet und hast den eigentlich schon in der Hand.Gefährlicher noch: wenn Du 2 AutoCAD-Sessions geöffnet hast, könnte Dir passieren, dass Du mit diesem Aufruf die App vom anderen AutoCAD bekommst und dann dort zeichnest. Tausche daher Dein AcadApp = ... aus gegen:Code:Dim tAcadDoc As ApplicationServices.Document = ApplicationServices.Application.DocumentManager.MdiActiveDocumentund das nac ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : reaktor: erase, added, modified
Brischke am 10.02.2012 um 08:56 Uhr (0)
Hallo reltro,ich habe es mir jetzt 2mal durchgelesen. Die Aufgabe ist ansich soweit klar, aber das jetzt alles zu durchdenken und deine Gedanken zu prüfen, ist einiges an Aufwand, den ich nebenher nicht aufbringen kann. Interessant ist die Aufgabe, weshalb ich dennoch mit einem grundelegend anderen Ansatz antworte - allerdings ohne VBA.Die Schwierigkeit ist ja das aktuell halten der Verknüpfung zwischen Polyline und BLock. Daher würde ich dies umschiffen, indem ich die Polyline mit einer recht neuen Techni ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Batchprogramm
alfred neswadba am 21.01.2009 um 13:06 Uhr (0)
Hi Gerhard,zeigst Du mal das Codeschnippsel, in dem Du öffnest und wieder schliesst?Ich hätte (wenn Layouts im DXF nicht vorhanden sind, sondern nur Modellbereich notwendig ist), nicht DXF geöffnet, sondern eine leere Zeichnung gestartet und das DXF mittels insert eingefügt, dann bekomme ich im Falle eines Fehlers einen ganz normalen RunTime-Fehler mit description, das ist mit On Error Resume Next abzufangen.- alfred -------------------www.hollaus.at
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : AutoCad-Dialoge über VBA aufrufen
Huebi am 15.04.2008 um 18:15 Uhr (0)
Hallo Jürgen,ich hab ja noch nicht wirklich verstanden, was Du machen möchtest.Falls Du "nur" den Pfad und den Namen der Zeichnung ermitteln möchtest, geht das ganz einfach mit:ThisDrawing.Name bzw Thisdrawing.PathFalls Du jedoch den Windows-Dateidialog öffnen möchtest, empfehle ich Dir den CommonDialog.Einen umfassenden Beitrag zu diesem Thema findest Du hierIch hoffe, es hat Dir ein bischen weitergeholfen.Gruß aus München,Hübi
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Teilstring aus MTEXT in bestimmte Excelspalte einfügen
David F. 26 am 16.05.2018 um 13:26 Uhr (1)
Guten Tag liebes Forum,mal wieder steh ich vor einem Problem und hoffe ihr könnt mir helfen. Folgendes Ziel habe ich:- In einer Zeichnung von einem Gebäude gibt es, wie soll es auch anders sein, mehrere Türen und zwar verschiedene. Diese haben alle eine Positionsnummer. Also eine Türart = 1 Positionsnummer. Kommt die Tür also öfter vor haben sie die selbe.- Diese Positionsnummern Trage ich an jede Tür in AutoCAD ein. Ein Beispiel wäre diese Positionsnummer: P 0.01.1.Es kann auch passieren das noch ein a od ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Probleme zwischen VBA und VB
Heiko76 am 28.09.2010 um 08:10 Uhr (0)
Hallo Alfred,ja, wenn ich das wieder auf integer setze, läuft der Code komplett durch (ohne Fehlermeldung) nur dann ist ssetobj.count ist dann = 0.Wenn ich den gleichen Code in VBA direkt in AutoCAD 2008 laufen lasse, dann bekomme ich bei meiner Zeichnung ssetobj.count = 14, also Bilder sind definitiv drin.------------------cuHeikoSchau mal rein www.diemertens.de
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Mittelpunkt suchen?
Moony am 05.11.2004 um 14:57 Uhr (0)
Hallo Holger, nicht grafisches Element das leutet mir ein, ich wollte mir so die Suche erleichtern z.B.. Im Layer mit Namen Chip1 gibt es dann nur das eine Rechteck und das möchte ich per VBA selektieren um die Scheitelpunkte zu ermitteln. Mit Getpoint funktioniert es. Es kann ja sein, daß ich da auf dem Holzweg bin, ich weiß nicht wie ich in einer Zeichnung ohne den Get... Befehl eine Ecke vom Rechteck selektieren soll. Gruß Moony
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Nur direkte XREFS auslesen...
naservus03 am 01.11.2008 um 22:18 Uhr (0)
Danke für die Antwort.Habe bisher nicht bedacht, dass ich auch nach einem Vorkommen in der Zeichnung schauen kann.Da ich bisher nur über die Blockcollection bez. über die Filedependencies nach den eingebetteten XREFS gegangen bin, habe ich dort alle erhalten - auch die nicht direkten...DankeKlaus
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Excel und AutoCAD
startrek am 28.06.2006 um 14:07 Uhr (0)
Hmm, so rein formell ist das schon richtig,allein mir erschließt sich der Sinn des Button-Codes [noch] nicht ganz,momentan startest du ein Acad und zoomst auf die Grenzen einer leeren Zeichnung? ;;-))Code:Private Sub CommandButton1_Click() Dim ac As Object Set ac = CreateObject("Autocad.application") ac.Visible = True to do, z.B. with ac.activedocumnet .modelspace.addpoint(p) ac.ZoomExtens .saveas "c:irgendwolablub.dwg" ggf. beenden? .close end with ac.quit set ac=nothingEnd SubGruss Nancy
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Prüfen ob ein Layer vorhanden ist
David F. 26 am 04.05.2018 um 10:10 Uhr (1)
Guten Morgen liebes Forum,ich habe, vermutliche eine Simple, Frage. Ich habe folgenden CodeThisDrawing.ActiveLayer = ThisDrawing.Layers("ADS_0_Hilfslinie") ThisDrawing.SendCommand "PL" & vbCrSoweit funktioniert er auch. Wenn ich aber eine neue Zeichnung aufmache möchte ich natürlich erstmal prüfen ob der Layer vorhanden ist. Wie stelle ich das am Besten an?
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : flächen mit farbe füllen
CAD-Huebner am 03.07.2005 um 17:11 Uhr (0)
Tja leider weiss ich nicht, welcher Beitrag dir hier im Forum bzw. welches Mitglied dir hier geholfen hat (Ein Link auf den betreffenden Beitrag wäre das hilfreichste im aktuellen Beitrag). Vermutlich muss Acad3DFace einfach nur durch acadhatch (patternName =SOLID ) oder acadsolid ersetzt werden. Vielleicht reicht es allerdings auch, die Systemvariable FILLMODE zu aktivieren und die Zeichnung zu regenerieren. ------------------ Mit freundlichem Gruß Udo Hübner
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Text über anderes Objekt liegen
Gloem am 11.02.2008 um 16:06 Uhr (0)
Hallo, ich möchte einen Text, am liebsten den normalen AcadText, über ein anderes Objekt legen.Von daher müsste ich den Text in den Vordergrund schieben und danach den Hintergrund des Textes auf die Farbe der Zeichnung setzen. Bei einer normalen Verwendung von AutoCAD funktioniert das ja aber mit VBA steh ich voll auf dem Schlauch.Hoffe jemand kann mir helfen
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Mittelpunkt suchen?
startrek am 05.11.2004 um 15:45 Uhr (0)
Moony, wenns wirklich nur eine Pline[Rechteck]/gesuchten Layer enthalten ist, und nicht so dolle viel Elemente in der Zeichnung sind , dann als Ansatz evtl auch: Code: Sub x() Dim i&, min, max With ThisDrawing.ModelSpace For i = 0 To .Count If TypeOf .Item(i) Is AcadLWPolyline And .Item(i).Layer = test Then .Item(i).GetBoundingBox min, max MsgBox minPoint: & min(0) & | & min(1) & Chr(13) _ & maxPoint: & max(0) & | & max(1) Exit For End ...
|
| In das Form Autocad VBA wechseln |
