请教下，渐变填充的颜色是怎样控制的？

userzhl · 发表于 2011-8-11 10:28

请教下，渐变填充的颜色是怎样控制的？
这样是不行的：
(Vlax-put o 'Color 252)
改63组码也达不到效果。
哪位高手知道吗？

if · 发表于 2011-8-11 14:27

(vlax-put (vlax-ename->vla-object(car(entsel))) 'HatchObjectType 1)

userzhl · 发表于 2011-8-11 21:32

楼上if,我知道这个是修改成渐变填充，你没看清我的问题，我问的是如何改变渐变填充的颜色？

caoyin · 发表于 2011-8-11 23:08

(setq HATOBJ (vlax-ename->vla-object(car(entsel))))
(vlax-put HATOBJ 'HatchObjectType 1)
(setq ACC (vla-getinterfaceobject
         (vlax-get-acad-object)
         (strcat "AutoCAD.AcCmColor." (substr (getvar "AcadVer") 1 2))
      )
)
(vlax-put ACC 'ColorIndex 1);;起始色红色
(vlax-put HATOBJ 'GradientColor1 ACC)
(vlax-put ACC 'ColorIndex 2);;结束色黄色
(vlax-put HATOBJ 'GradientColor2 ACC)

userzhl · 发表于 2011-8-11 23:13

曹饮老师厉害！

账号		自动登录	找回密码
密码			注册

[讨论] 请教下，渐变填充的颜色是怎样控制的？