Lisp, vla-object color w gstarcad

[andkal]

Witam
Jak zmienić poniższy kod aby działał w np GstarCADzie a nie tylko w Autocadzie, i utworzył vla-obiekt?

Kod: Zaznacz cały

(vlax-create-object (strcat "AutoCAD.AcCmColor." (rtos (fix (atof (getvar "ACADVER"))) 2 0)))

[ziele_o2k]

Witam
Jak zmienić poniższy kod aby działał w np GstarCADzie a nie tylko w Autocadzie, i utworzył vla-obiekt?

Kod: Zaznacz cały

(vlax-create-object (strcat "AutoCAD.AcCmColor." (rtos (fix (atof (getvar "ACADVER"))) 2 0)))

Kiedyś też z tym walczyłem, ale poległem.
Żeby sprawę obejść, tworzyłem sobie dowolny obiekt, który miał właściwość TrueColor. Tam siedział vla-object (IGcadAcCmColor, IZcadZcCmColor, czy jeszcze co innego), na którym można było działać.
Ostatecznie przesiadłem się na dxf 420 i śpię spokojnie, bo działa na każdej pochodnej AC.

Podpowiedzi:
https://adndevblog.typepad.com/autocad/2013/01/how-to-access-the-truecolor-property-via-autolisp.html
http://www.lee-mac.com/colourconversion.html#rgbtru