|
Autocad VBA : AutoCAD Befehl messen oder teilen
Stelli1 am 03.03.2006 um 15:42 Uhr (0)
Hallo,in VBA gibt es das so nicht. Ich habe eine VB Klasse die mir die Punkte auf Elementen rechnet .(z.B. für Böschungsschraffen und linienbegeleitende Symbole)Hier mal ein GrundgerüstEine andere Möglichkeit wäre eventuell den Acad Befehl mit SendCommand auszuführen. Werden durch Messen oder Teilen Punkte oder Blöcke neu erzeugt, stehen diese als letztes in der Elementauflistung.Stelli------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : AutoCAD Befehl messen oder teilen
RoSiNiNo am 07.03.2006 um 13:58 Uhr (0)
Wenn du etwas Zeit hast, versuch doch einmal auf .NET umzusteigen, da funktioniert das ohne große Probleme.------------------Roland
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : AutoCAD Befehl messen oder teilen
gamadril am 07.03.2006 um 20:05 Uhr (0)
Zeit habe ich leider nicht!Ist .NET auch in AutoCAD Integriert?
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : AutoCAD Befehl messen oder teilen
gamadril am 07.03.2006 um 20:15 Uhr (0)
Danke Stelli1!Mit SendCommad habe ich ausprobiert.Leider bei deiser Metode muss der Benutzer per Hand den Block auswählen, und die Segmentlänge eingeben. Ob man deise eingaben mit VBA abfangen kann und das ganze automatisieren kann, habe ich nicht gefunden.
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : AutoCAD Befehl messen oder teilen
startrek am 07.03.2006 um 21:37 Uhr (0)
Hallo,fürchte ein fürchterlicher Ansatz mit sendcommand;-)Gruss Nancy-- Code:Sub test() Dim ent As AcadEntity, p, l# On Error Resume Next With ThisDrawing .Utility.GetEntity ent, p, "ein Objekt, please: " If Err Then Exit Sub .SendCommand "_measure (handent """ & ent.Handle & """) " l = .Utility.GetString(0, Chr(13) & "Segmentlänge eingeben:" & Space(10)) If Err Then Exit Sub .SendCommand l & Chr(13) End WithEnd Sub
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Brauche Hilfe!
Franklyn572 am 08.03.2006 um 08:01 Uhr (0)
Hallo an alle Experten!Ich bin VBA-Autocad Anfänger. Ich möchte den Flächenschwerpunkt einer beliebig erstellter Region mittels VBA Code berechnen lassen. Ich habe mir das Buch "Autocad programmieren mit VBA" gekauft - leider wird auf so ein Beispiel nicht eingegangen. Ich bin am Verzweifeln weil ich bis nächste Woche ein Beispiel zu VBA programmieren unter Autocad presentieren soll.Wer kann mir da weiterhelfen.mfgFranz
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Brauche Hilfe!
Brischke am 08.03.2006 um 08:35 Uhr (0)
Hallo Franz,wo ist denn genau das Problem?Berechnen brauchst du bei einer Region nichts, da dies bereist als Eigenschaft des Objektes seitens AutoCAD zur Verfügung gestellt wird.Du musst zur Objektwahl auffordern und dann die Eigenschaften des Objektes z.B. in einer msgbox zur Ansicht bringen.In dem Buch ist sicher beschrieben, wie man Auswahlsätze bildet, wie man Eigenschaften von Objekten ermittelt, ...Bei Fragen ...Grüße Holger------------------Holger BrischkeCAD on demand GmbHIndividuelle Lösungen von ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : AutoCAD Befehl messen oder teilen
RoSiNiNo am 08.03.2006 um 09:37 Uhr (0)
Es it in AutoCAD 2006 voll integriert, AutoCAD 2005 kanns zwar auch schon, aber nur teilweise. Was du noch brauchst wäre Visual C# Express Edition. Ist in diesem Jahr noch kostenlos. Alles weitere findest du auf der Autodesk-Homepage oder im .NET-Forum.------------------Roland
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : dwf erzeugen
Heiko76 am 08.03.2006 um 11:03 Uhr (0)
Hallo,ich habe das mittlerweile so gelöst:Sub Ch9_PrintModelSpace() Verify that the active space is model space If ThisDrawing.ActiveSpace = acPaperSpace Then ThisDrawing.MSpace = True ThisDrawing.ActiveSpace = acModelSpace End If Set the extents and scale of the plot area ThisDrawing.ModelSpace.Layout.PlotType = acExtents ThisDrawing.ModelSpace.Layout. _ StandardScale = acScaleToFit Set the number of copies to one ThisDrawing.Plot.NumberOfCopies = 1 Initiate the plot This ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Interpolation z-wert in 3d-fläche
itrvolk am 08.03.2006 um 19:45 Uhr (0)
hallo sarotti,danke erst mal, aber ich glaube nicht, das mich deine Lösung weiterbringt. Vielleicht habe ich mein Problem unzureichend beschrieben.Also ich habe in Autocad eine Vielzahl von 3D-Flächen (Digitales Geländemodell). Nun möchte ich an einem beliebigen Punkt (x,y bekannt) den dazugehörigen z-wert auf der 3D-Fläche interpolieren. D.h. es muss eine Höheninterpolation des gesuchten Punktes auf dieser dort befindlichen Dreiecksfläche stattfinden, und hierfür bräuchte ich eine VBA-Routine bzw. wie die ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Text?
Goofy007 am 08.03.2006 um 20:45 Uhr (0)
Hallo Willynchen_neu,um Text im Acad/VBA ansprechen zu können brauchst du nicht viel.zB. Code:Sub texte() Dim object As AcadObject For Each object In ThisDrawing.ModelSpace Hier einfügen was du machen willst... End If Next objectEnd SubAber ich würd auch lieber die scr-Datei bearbeiten. Wenn du mal ein paar Zeilen ins Forum stellst, kann man da mehr sagen.Eine (allerdings nicht ungefährliche) Idee wäre zb. globale Textersetzung im Script. Befehle bzw. Werte werden im Script duch Blanks getrennt. We ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Text zu Mtext hinzufügen
Netwurm am 09.03.2006 um 09:33 Uhr (0)
Hallo,ich habe relativ wenig Erfahrung mit VBA in AutoCAD, darum mag Euch meine Frage seltsam vorkommen, aber hier ist sie trotzdem .Ich würde gerne an einen Mtext noch zusätzlich mit einem Zeilenumbruch einen Text hinzufügen, der als normaler Text(nicht MText) vorhanden ist. Wie kann man das berwerkstelligen? Gruss Netwurm------------------
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Befehlsstring einem Button zuweisen
Heiko76 am 09.03.2006 um 10:08 Uhr (0)
Hallo zusammen,wie kann ich per exe Datei einen Befehlsstring einem vorhandenen Button in ACAD 2004 zuweisen?------------------ cuHeikoSchau mal rein www.mertens-bb.de
|
| In das Form Autocad VBA wechseln |
