|
Autocad VBA : AutoCAD Farbpalette
startrek am 05.01.2005 um 14:42 Uhr (0)
Keine Ahnung, wie man die RGB-Werte aus dem Farbdialog rüberbeamt, ne Krücke wär eine eigene Userform mit nem Bildchen und drei Scrollbars. Naja zugegeben, ist natürlich nicht so hübsch wie der Standarddialog ;-) Gruss Nancy -- Code: Private Sub UserForm_Initialize() ScrollBarR.Max = 255 ScrollBarG.Max = 255 ScrollBarB.Max = 255 End Sub Private Sub ScrollBarR_Change() call farbe End Sub Private Sub ScrollBarG_Change() call farbe End Sub Private Sub ScrollBarB_Change() call farbe End S ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : SendCommand funktioniert nicht ...
job am 06.01.2005 um 08:58 Uhr (0)
Hallo, ich versuche mittels VBA im ADT2004 eine Decke zu erzeugen. Da das Objekt AecSlab keine Eigenschaften für die Eckpunkte einer Decke hat, wollte ich es über die SendCommand Funktion machen. Hier mal ein Beispielcode: Public Sub test_slab() Dim pickpolyline As AcadLWPolyline ThisDrawing.Utility.GetEntity pickpolyline, pickpnt, Polylinie wählen coord = pickpolyline.Coordinates pickpolyline.Delete ThisDrawing.SendCommand SlabAdd ThisDrawing.SendCommand vbCr ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : AutoCAD Farbpalette
Dirk.B am 06.01.2005 um 12:49 Uhr (0)
Hallo Nancy! Mit dem ThisDrawing.SendCommand _color & vbCr komme ich erst einmal klar, da ich damit bevor das Objekt gezeichnet wird die Farbe für die Zeichnung festlege. Sub cmd_click() me.hide ThisDrawing.SendCommand _color & vbCr me.show End Sub Danach wird die ausgewählte Farbe ja in der Farbanzeige der Eigenschaftstoolbar übernommen und aktuell gesetzt. Könnte man denn diesen Farbindex nicht in eine Variable übernehmen, um damit weiter arbeiten zu können? Vielen Dank im voraus. Gruß Dirk
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : AutoCAD Farbpalette
startrek am 06.01.2005 um 14:08 Uhr (0)
F1 auf TrueColor bringt sowas: Code: Sub Example_TrueColor() [...] Set line = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint) Dim retcolor As AcadAcCmColor Set retcolor = line.TrueColor MsgBox Red = & retcolor.Red MsgBox Green = & retcolor.Green MsgBox Blue = & retcolor.Blue End Sub Gruss Nancy
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : nächstgelegene Punkte bestimmen
mapcar am 06.01.2005 um 14:59 Uhr (0)
Mag ja sein, dass ihr euch jetzt alle versteht - aber nun klärt mich auch noch auf, was unter auf einer Seite eines Punkts zu verstehen ist . Gruß, Axel Strube-Zettler ------------------ (defun - Lisp over night - AutoLisp-Programmierung für AutoCad - Da weiß man, wann man s hat Meine AutoLisp-Seiten Mein Angriff auf dein Zwerchfell Mein Lexikon der Fotografie Mein gereimtes Gesülze
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : nächstgelegene Punkte bestimmen
mapcar am 07.01.2005 um 11:03 Uhr (0)
ja, das sehe ich nun mehr als auf einer Seite eines Vektors , nämlich dem Vektor (P1 P2). Bloß: in der zweiten Skizze liegen alle Punkte auf der Geraden durch P1 und P2. Der Grenzfall als Beispielskizze? Gruß, Axel Strube-Zettler ------------------ (defun - Lisp over night - AutoLisp-Programmierung für AutoCad - Da weiß man, wann man s hat Meine AutoLisp-Seiten Mein Angriff auf dein Zwerchfell Mein Lexikon der Fotografie Mein gereimtes Gesülze
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : nächstgelegene Punkte bestimmen
mapcar am 07.01.2005 um 11:31 Uhr (0)
Ich will mich mal nicht an dieser 2. Skizze aufhalten und halte mich einfach an die Skizze von Tunnelbauer: 1. Den Winkel p1 p2 ermitteln a = Utility.AngleFromXAxis(p1, p2) (das ist auch die Antwort auf die ganz am Anfang gestellte Frage nach einer Funktion für die Winkelbestimmung!) 2. Eine Transformationsmatrix erzeugen: Code: cos(a) sin(a) 0 0 -sin(a) cos(a) 0 0 0 0 1 0 0 0 0 1 3. Alle anderen Punkte mit Object.TransformBy(Matrix) umrechnen Die b ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : 3D revolve und rotate
Dirk.B am 12.01.2005 um 09:03 Uhr (0)
Hallo Zusammen! Ich benötige mal wieder Eure Hilfe. Zur Erstellung eines 3D Volumenkörpers (Acad3DSolid) über die Methode AddRevolvedSolid habe ich eine Region als Form / Fläche erstellt. Diese Region soll nun um die Y Achse laufen und den entsprechenden 3D V-Körper erstellen. Dieses funktioniert auch soweit, nur habe ich so meine Probleme mit den Koordinatenfestlegungen. Startpunkt = S0 Richtungspunkt: axisDir(0) = 0.01: axisDir(1) = 360: axisDir(2) = 0 Winkel: angle = (2 * pi) Hierbei liegt das Objekt ni ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Softwarebeschleunigung oder Hardwarebeschleunigung?
Pitsch52 am 15.01.2005 um 15:29 Uhr (0)
Hi Leute Ich habe festgestellt, dass wenn ich in AutoCAD 2005 in den Render-Optionen die Hardwarebeschleunigung aktiviere, 3D-Objekte beim Rotieren im 3D-Orbit sich gleichmässiger bewegen als wenn die Softwarebeschleunigung aktiviert ist. Nur ergibt sich das Problem, dass bei aktivierter Hardwarebeschleunigung, beim schliessen der Zeichnung dasProgramm, Abstürtzt. Zwar nicht immer, aber von 5 schliessungen stürzten 2 mit sicherheit ab. Manchmal wird sogar Windows2000 in den Tod gerissen. Nun meine Frage: M ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Softwarebeschleunigung oder Hardwarebeschleunigung?
tunnelbauer am 16.01.2005 um 21:17 Uhr (0)
Hallo Pitsch, mit deiner Frage bist du hier nicht ganz richtig - das hier ist das VBA Forum; deine Frage wäre besser aufgehoben gewesen im RuA-Forum . Aber egal. Zu deiner Frage: Es ist ganz klar, dass die Objekte gleichmässiger bewegt werden wenn man mit der Option der Hardwarebeschleunigung im Orbit arbeitet, da ja die Softwarebeschleunigung auf den RAM zugreift, von dem nicht immer gleich viel zur Verfügung steht - wechselt man nun aber auf die Hardwarebeschleunigung, so stehen einem immer zB 64MB RAM ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Geometrie einer Bemassung
Huebi am 17.01.2005 um 11:16 Uhr (0)
Servus zusammen, evtl. kann mir jemand bei meinem Problem helfen Ich bemaße Gebäudegrundrisse (die ich als Vermesser zuvor aufgemessen habe). Dazu habe ich mir einen Bemaßungsstil definiert, der einen benutzerdefinierten Pfeil hat (...also dieser übliche Schrägstrich) und ich unterdrücke die beiden Hilfslinien. Das funktioniert soweit recht gut und das Ergebnis entspricht - bis auf wenige Abstriche - dem, was ich von dieser Bemassung erwarte. Nun mein Problem: Wenn ich beide Hilfslinien unterdrücke, sehe ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Geometrie einer Bemassung
Huebi am 17.01.2005 um 16:25 Uhr (0)
Servus Nancy! Ich denke, Du hast schon erfasst, um was es mir geht. Ich möchte nur anzeigen lassen (zu einem fixen Zeitpunkt), wo die Bemaßungsbezugspunkte so liegen. Dummerweise benutze ich nur DimRotated, da die ja am universellsten zu benutzen sind. Das mit dem anzeigen stell ich mir so vor, daß ich ein VBA-Programm starte, dieses Programm dann den Dummy-Layer löscht und die Bezugspunkte reinmalt . Ob als kleine Kreise oder als AcadPoint - es geht ja nur darum, daß man in dem ganzen, komplexen Grundris ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Geometrie einer Bemassung
TomiProg am 18.01.2005 um 11:44 Uhr (0)
Hallo zusammen. Hatte mich auch mal intensiv mit Bemaßung beschäftigt. Das ist schon eine seltsame Sache, daß bei einigen Bemaßungsarten keine Start- und Endpunkte über VBA ausgelesen werden können. Das gilt auch für dir gedrehte Bemaßung (RotatedDim) nicht aber für eine ausgerichtete Bemaßung (AlignedDim). Vielleicht bekommst du die gleiche Bemaßung mit der ausgerichteten Bemaßung hin. Dann wären die zwei Punkte für die Extramarkierung leicht zu ermitteln. Warum das nicht bei allen Bemaßungsarten geht muß ...
|
| In das Form Autocad VBA wechseln |
