|
Autocad VBA : Zahl PI nicht in VBA?
The VIP am 08.08.2003 um 21:23 Uhr (0)
Sehe ich das richtig, dass die Zahl PI (3,14159...) nicht in vBA verfügbar ist? Aus Excel kenne ich die Zelleneingabe =PI() und schon wird mit der Zahl und den ewig vielen Nachkommastellen richtig gerechnet. Sollte Pi nämlich nicht als solchen Wert in VBA verfügbar sein (was ich ja schier nicht glauben kann), dann müsste man ja schreiben 3,14159265358.....) und das ist ja ungenau wenn man in AutoCAD rechnen will. Es kann nämlich dann sein, dass aufgrund der fehlenden oder gerundetet 20. Nachkommastelle e ...
| | In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Blockattribute aus einer Zeichnung und in Excel übergeben
KlaK am 03.04.2013 um 01:04 Uhr (0)
Nachdem im Fernseh nichts kam und ich noch nicht müde war bin ich doch mal Deinem Link gefolgt und habe die ZIP-Datei gefunden. OK, da hast Du ja schon Deine Versuche mitgeliefert.Im Prinzip mußt Du in Deinem Code gar nicht viel verändern.Im Versuch 2 solltest Du doch schon ganz gute Ergebnisse bekommen haben, nur müßtest Du anstelle des festen Textes Deinen Zellenwert übergeben.Im Versuch 3 schaut es noch besser aus, nachdem ich aber meine HomeUse noch nicht verlängert habe, konnte ich den Code nicht test ...
| | In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Abfrage in AutoCAD als neue datenbank speichern
Dexta am 09.03.2005 um 13:46 Uhr (0)
hi Holger, Prinzipiell hast du recht, aber es geht darum, dass diese Tabelle, bzw. neue Datenbank nicht in AutoCAD gespeichert werden soll, da diese Daten nicht nur von Leuten betrachtet werden soll, die AutoCAD auf ihrem Rechner haben, sondern auch über Access und Excel anschaulich gemacht werden sollen. Außerdem gibt es ziemlich viele Projekte, die alle verschiedene Objekte beinhalten, dies soll auch noch dazu dauerhaft und von jedem abrufbar sein. Deswegen ist eine eigene Datenbank pro Projekt fast unum ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : ACAD-Objekte in Access-Bericht ausgeben
Dexta am 07.03.2005 um 13:42 Uhr (0)
Hi Brischke, Mir ist nochmal was eingefallen. Man kann dies in AutoCAD auch ohne VBA, durch öffnen einer Datenbanktabelle, dann Datenanzeige-Verknüpfte Datensätze anzeigen. Dann die gesamte Zeichnung markiert und dann die Eingabetaste drückt. Und dann in Datenanzeige auf Seitenansicht geht. Genau das sollte der VBA-Code machen. Denn dies sollte alles durch einen Knopfdruck erfolgen. Und der Bericht sollte nicht in AutoCAD erstellt werden, sondern auf einem Excel-Blatt oder einem Access-Bericht. Ich glaube ...
| | 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 : Probleme bei mehrspaltiger Listbox
startrek am 02.12.2004 um 02:39 Uhr (0)
verdammt Tobias, das war kein joke. Fakt ist, du veranstaltest hier eine Odyssee ... Die begann damit, Blockdaten in ein Textfile zu schreiben, ging über Excel bis hin zu Listviews. Ich frag mich was als nächtes kommt, die Zwischenablage? Okay, ich will ja keinen hier fertig machen, aber so langsam solltest Du dir [oder dein cheffe] mal darüber im klaren werden, worauf der ganze Blockzauber eigentlich hinauslaufen soll. Holger und Axel haben alles bereits gesagt, mit dem Konzept steht und fällt alles, u ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Excel und AutoCAD
CADLER06 am 23.06.2006 um 09:33 Uhr (0)
Hallo Carsten,Public Function rechteck(Punkt1, Punkt2) As AcadLWPolyline Dim eckpunkt(0 To 7) As Double, poly As AcadLWPolyline eckpunkt(0) = CDbl(Punkt1(0)): eckpunkt(1) = CDbl(Punkt1(1)) eckpunkt(2) = CDbl(Punkt2(0)): eckpunkt(3) = CDbl(Punkt1(1)) eckpunkt(4) = CDbl(Punkt2(0)): eckpunkt(5) = CDbl(Punkt2(1)) eckpunkt(6) = CDbl(Punkt1(0)): eckpunkt(7) = CDbl(Punkt2(1)) Set poly = ThisDrawing.ModelSpace.AddLightWeightPolyline(eckpunkt) poly.Closed = True Set rechteck = poly End FunctionDas habe ich ...
| | In das Form Autocad VBA wechseln |
|
AutoCAD VBA : sendcommand
Bernd P am 08.10.2007 um 16:20 Uhr (0)
ServusGenau das war das Problem wie bekomme ich den String StringAusExcelFeld richtig rüber.Hier auch der Code zum persönlichen anpassen (die FETT markierten stellen.)Code:Sub Export_Bestimmt2() Dim acApp As Object, x, y Application.ScreenUpdating = False Set acApp = GetObject(, "Autocad.application") x = acApp.activedocument.FullName y = Worksheets("bestimmt").Cells(13, 4).Value AppActivate "Autocad 2006" acApp.activedocument.sendcommand "commandName" & chr(13) acApp.activedocument.sendcommand y ...
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Objekten Informationen zuordnen und an Excel weitergeben
Murkeline am 05.11.2008 um 14:34 Uhr (0)
Liebes Forum, dank eurer vielen Antworten auf die ganzen hier schon gestellten Fragen, habe ich es geschafft ein hübsches kleines Programm zu schreiben, das bis jetzt auch genau das tut was ich möchte. Jetzt komme ich allerdings nicht weiter und hoffe, dass jemand von euch vielleicht eine Idee hat. Im Prinzip geht es darum Linien und Bögen Informationen zuzuorden ( Fahrtrichtung, Geschwindigkeit ) und diese dann zusammen mit dem Objekt Handle an Excel zu übergeben um dort Streckenlänge, Durchschnittsgeschw ...
| | In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Block einfügen mit geänderten Attributen?
OlliBaer am 19.08.2003 um 11:10 Uhr (0)
Hallo, ich noch mal... ich hab mir ein programm geschrieben, welches mir alle blöcke in der Zeichnung anzeigt, die attribute besitzen. bei bedarf kann man die attribute aller blöcke an excel übergeben, ändern und zurücklesen. manchmal kommt es vor, das ich z.B. eine Teilstrecke (Ts1, 80kg/h, 100Pa/m) vergessen habe und diese nun beim zurücklesen in die zeichnung einsetzen möchte. (bis dahin klappt auch alles) der eizusetzende block müsste aber die geänderten attribute haben. die Frage: wie kann ich einen b ...
| | In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Speicherung von Bauteildaten
alfred neswadba am 11.11.2008 um 11:25 Uhr (0)
Hi,hat IMHO nichts mit AutoCAD zu tun, oder kommt die Liste UZBauTeilListe aus AutoCAD (Architecture? ADT? == damit hab ichs nicht), aber:wenn ich mir Deine Schleifen ansehe, dann führst Du j und i als 2 Zähler, um einen Wert (Reihe in Excel) zu zählen.Probier mal:Code:Worksheets("Tabelle1").ActivateLetzteBeschrReihe = ActiveSheet.Range("A65536").End(xlUp).Row For Each UZBauteil In UZBauteilListe For i = 4 To LetzteBeschrReihe If ActiveSheet.Cells(i, 1) = UZBauteil.BauteilHandle Then ActiveSheet.Cell ...
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Gruppen bilden und löschen
Stefan1905 am 26.03.2009 um 12:17 Uhr (0)
Hallo Alfred,ich sende Dir eine bereinigte Zeichnung.Mein Programm lädt eine Vorlagedatei, die atomisierte Elemente enhält, z.B. einen Fördererquerschnitt mit 1mm Länge, und andere Einzelelemente. Beim Zeichnen werden sie auf die entsprechende Größe extrudiert, gedreht und 3D gezeichnet. An den fertigen Förderer (als Block) werden Attribute angehangen. In der Entwurfsphase eines Fördererlayouts ist keine Positionierung erforderlich, erst dann, wenn ein Leistungsverzeichnis erstellt werden muß.Wird das Layo ...
| | In das Form AutoCAD VBA wechseln |
|
Autocad VBA : alle Blöcke (und deren Werte) einer Zeichnung in Datei auslesen
kiltswitch am 23.11.2004 um 10:20 Uhr (0)
Der Code ist ja ganz gut und schön, aber diese Werte will ich doch gar nicht? Ich will keine Blockattribute haben. Sondern wie schon erwähnt: Blockname, ObjectID der Blöcke, Koordinaten des Basispunktes der Blöcke und den Drehwinkel der Blöcke in eine Excel-Tabelle ausgeben. Das klappt ja auch alles, nur stellt er mir die Werte des Drehwinkels auf Grund des Problems RAD -- DEG nicht richtig dar. Ich habe auch schon die Umrechnung versucht, habe mit Runden gearbeitet - aber es ändert sich einfach nichts. ...
| | In das Form Autocad VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
