|
Autocad VBA : Schrittweise Auswertung der Zeichnung mit SelectAtPoint
startrek am 16.03.2007 um 10:32 Uhr (0)
Hi Sagu,late vs. early Binding: http://ww3.cad.de/foren/ubb/Forum259/HTML/000741.shtml#000001 mit createObject(application) greiftst du immer via late binding zu,d.h. es gibt keinCode:dim zeichnung as acadDocument sondern immer nurdim zeichnung as ObjectEbenso die Acad-Konstanten wie PatternType, patternName, bAssociativitymusst Du dir neu/selbst definieren indem du mal unter F2 im Objektkatalog guckst und dir die zugehörigen Long-Werte der Konstanten her nimmst.Oder aber du setzt nen Verweis auf die Acad- ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Schrittweise Auswertung der Zeichnung mit SelectAtPoint
startrek am 15.03.2007 um 13:25 Uhr (0)
Moinmoin,das fehlende s sprang mich grade an;-)Code:Set ssetObj = AcadApp.ActiveDocument.SelectionSets.Add("Umgrenzung")lg Nancy
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Text auf Zeichnung löschen
startrek am 10.06.2004 um 14:42 Uhr (0)
Hi Marcus, klitzekleiner Ansatz: Code: Sub x() Dim i%, s$ s = InputBox( Text eingeben , Suche ) If s = Then Exit Sub With ThisDrawing.ModelSpace For i = .Count - 1 To 1 Step -1 If TypeName(.Item(i)) = IAcadText Then If .Item(i).TextString = s Then .Item(i).Delete End If Next End With End Sub ciao Nancy
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Text auf Zeichnung löschen
startrek am 10.06.2004 um 17:37 Uhr (0)
Hallo, wie meinst Du das genau ? Wenn Suchtext mit Linientyp Continuous ???? dann ..., dann halt so Code: Sub x() Dim i%, s$ s = InputBox( Text eingeben , Suche ) If s = Then Exit Sub With ThisDrawing.ModelSpace For i = .Count - 1 To 1 Step -1 If TypeName(.Item(i)) = IAcadText And .Item(i).Linetype = Continuous Then If .Item(i).TextString = s Then .Item(i).Delete End If Next End With End Sub Aber mal uno Question @all: Was mir nur absolut schleier ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : alle Blöcke (und deren Werte) einer Zeichnung in Datei auslesen
startrek am 23.11.2004 um 14:36 Uhr (0)
tja, dumm gelaufen ;-) versuchs mal mit Excelapp vor Worksheetfunction Code: .Cells(rownum, 4) = elem.Rotation * 180 / ExcelApp .WorksheetFunction.Pi ansonsten bin ich für meinen Teil planlos. Nancy
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : alle Blöcke (und deren Werte) einer Zeichnung in Datei auslesen
startrek am 24.11.2004 um 09:31 Uhr (0)
Moin Tobias, nen Tip hab ich nicht auf die Schnelle, ausser geh mal die Sub im Einzelschritt mit F8 durch. Im Lokalfenster schaust Du mal, sobald elem belegt wurde, was da unter Rotation steht und vergleichst mal mit den Werten im Direktfenster. Sorry, bin etwas in Eile, siehe Pic. Gruss Nancy
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : alle Blöcke (und deren Werte) einer Zeichnung in Datei auslesen
startrek am 23.11.2004 um 09:40 Uhr (0)
Tobias, VBA kennt kein Pi. Die Zahl wirst Du wohl oder übel erstmal hinterlegen müssen. Gibt es denn nun ein eigenes Dateiformat in VBA zum tabellarischen Ablegen von ausgelesenen Daten? Nun, am besten Du lässt die Endung gleich ganz weg ... Das ist doch schnurz, es kommt auf s Trennzeichen an, Tab, Kommata, Semikolon, $, |, weissderGeier Momentan schreibst Du eh nur ein Textfile mit der Endung *.xls, wenn Du diese mit Excel öffnest, hast Du sicher schon bemerkt, dass erst mal der Texterkennungsassi a ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : alle Blöcke (und deren Werte) einer Zeichnung in Datei auslesen
startrek am 23.11.2004 um 16:45 Uhr (0)
Dein Winkelproblem kann ich nicht nachvollziehen, ebensowenig wie das was Du da zusammencodest. Prüfe mal die Werte im Direktfenster / Lokalfenster [elem] Die kannst Du ja ggf. via copypaste in Excel einfügen und dann Daten/Text in Spalten ... Code: Sub x() Const Pi# = 3.14159265358979 Dim elem As AcadEntity, ip For Each elem In ThisDrawing.ModelSpace If TypeOf elem Is IAcadBlockReference Then ip = elem.InsertionPoint Debug.Print ip(0), ip(1), ip(2), elem.Rotat ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : alle Blöcke (und deren Werte) einer Zeichnung in Datei auslesen
startrek am 23.11.2004 um 14:03 Uhr (0)
Code: Sub Träume_am_laufenden_Block() Dim elem As AcadEntity Dim rownum As Long, ip As Variant Dim ExcelApp As Excel.Application Dim ExcelWbk As Excel.Workbook Dim ExcelWks As Excel.Worksheet rownum = 2 Set ExcelApp = New Excel.Application Set ExcelWbk = ExcelApp.Workbooks.Add ExcelApp.ActiveWorkbook.SaveAs "D:Mappe1.xls" Set ExcelWks = ExcelWbk.ActiveSheet With ExcelWks .Cells(1, 1) = "x": .Cells(1, 2) = "y" usw For Each elem In ThisDrawing.ModelSpace If TypeOf elem Is IAcadBlockReferenc ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : WBlock einfügen
startrek am 15.06.2011 um 14:53 Uhr (0)
Bei mir harkte es auch in jeder neuen Zeichnung mit F8,lief erst weiter, nachdem ich irgendwas im Code geändert hatte (set symbol=nothing o.ä. Dinge). Bei der nächsten Zeichnung same Problem.Bei mir gings jetzt via extra Pfadvariable:Code:pfad = "E:cad
euer Block.dwg"Set Symbol = ActiveDocument.ModelSpace.InsertBlock(Einfpkt, pfad, 0.8, 0.8, 0.8, 0)
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Attribute mit Excel abgleichen
startrek am 20.02.2006 um 15:03 Uhr (0)
Hi Sven,untiges ist ungetestet, hab nur mal mit der groben Harke die selects entfernt;-)Zum ersten Error: Set found = ...).ActivateMit Set found = setzt du einen Objectpointer und du erhälst als Rückgabe ein RangeObjekt. Du schiesst hier aber gleich die Aktivate Methode hinterher in der Zeile, das geht so nicht, wenn dann geht maximal sowas:Code:Set found = ExcelApp.Selection.Find(What:=Zeichnung)found.activateBTW, wenn deine Mappe/Excel nicht visible und nicht aktiv sind, geht der ganze select/activate-** ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Probleme mit Excel
startrek am 23.11.2004 um 21:03 Uhr (0)
Ralph, ich meinte in der Threadübersicht den Beitrag alle Blöcke und Werte einer Zeichnung so ähnlich ... ;-) Ist aber nun auch wurscht, wenn s nicht tut. Leider kann ich nicht unter xl97 mitprobieren. Du könntest aber mal schauen, ob Du in deiner VBA Hilfe was über GetObject und CreateObject findest, nur so als Idee. lg Nancy
|
| 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 |
