W AutoCADzie o wersji 2000 do 2002 działała funkcja acedSetColorDialog. Wywoływała ona standardowe okna wyboru koloru.
No i niestety przestała ona działać w wyższych wersjach. Nikt nie wie dlaczego.
Nie mniej można ją stosować przy wykorzystaniu jednego "myku":
Private Declare Function acedSetColorDialog Lib "acad.exe" _
(Color As AcColor, ByVal AllowMetaColor As Byte) As Byte
Sub DlgColorACI()
Dim Color As AcColor, ColorOld As AcColor
Dim AllowMetaColor As Byte, Result As Byte
Color = acByLayer
AllowMetaColor = 1
On Error Resume Next
ColorOld = Color
Result = acedSetColorDialog(Color, AllowMetaColor)
On Error GoTo 0
If Color = ColorOld Then
MsgBox "Bez zmiany", vbExclamation
Else
MsgBox "Wybrany kolor: " & Color
End If
End Sub
Informację o tym znalazłem na poniższej rosyjskiej stronie:
http://www.caduser.ru/cgi-bin/f1/board.cgi?t=4258zJ
A tak trochę OFF-TOPIC:
myślę o czym takim jak rozwijanie aplikacji opensourcowych w VBA.
Polegać by to miało na tym, że w osobnym dziale będą umieszczane pliki makr, będzie też założony wątek forum poświęcony rozwijanej aplikacji.
Moderator to oczywiście admin (czyli ja!) lub osoba którą wyznaczę.
Na początek myślę o czym takim jak makro dla AutoCADa, służące do automatycznej generacji spisu elementów z rysunków technicznego.
Było by to rozwinięcie makra http://www.vbamania.pl/stats/counter.php?id=163.
Jeżeli macie swoje propozycje, oczywiście proszę je zgłosić.
Z pozdrowieniami
Admin |