背景颜色切换问题

菜卷鱼 · 发表于 2020-5-16 10:32:33

本帖最后由菜卷鱼于 2020-5-16 10:41 编辑

背景颜色切换，是我CAD 问题还是代码错了，不能切换自动追踪矢量线的颜色。？

由于自动追踪矢量线颜色无法如预期切换，背景白色的时候，看不到矢量线，背景黑色的时候可以看到。

;;;切换背景颜色，十字光标颜色，自动追踪矢量线颜色
(defun c:bkex (/ DISPLAY whitecol blackcol)
(setq DISPLAY (vla-get-display
(vla-get-preferences
(vla-get-application (vlax-get-acad-object))
)
)
)
(setq whitecol (vlax-make-variant 16777215 19))
(setq blackcol (vlax-make-variant 0 19))
(cond
(
(equal (vla-get-GraphicsWinModelBackgrndColor DISPLAY)
whitecol
)
(vla-put-GraphicsWinModelBackgrndColor DISPLAY blackcol)
(vla-put-ModelCrosshairColor DISPLAY whitecol)
(vla-put-AutoTrackingVecColor DISPLAY whitecol)
)
(
(equal (vla-get-GraphicsWinModelBackgrndColor DISPLAY)
blackcol
)
(vla-put-GraphicsWinModelBackgrndColor DISPLAY whitecol)
(vla-put-ModelCrosshairColor DISPLAY blackcol)
(vla-put-AutoTrackingVecColor DISPLAY blackcol)
)
(T
(vla-put-GraphicsWinModelBackgrndColor DISPLAY blackcol)
(vla-put-ModelCrosshairColor DISPLAY whitecol)
(vla-put-AutoTrackingVecColor DISPLAY whitecol)
)
)
(princ "\n背景颜色已经切换。")
(prin1)
)

;;;切换背景颜色 ，十字光标颜色 ，自动追踪矢量线颜色 
(defun c:bkex (/ DISPLAY whitecol blackcol) 
  (setq  DISPLAY  (vla-get-display 
      (vla-get-preferences 
        (vla-get-application (vlax-get-acad-object)) 
      ) 
    ) 
  ) 
  (setq whitecol (vlax-make-variant 16777215 19)) 
  (setq blackcol (vlax-make-variant 0 19)) 
  (cond 
    ( 
     (equal (vla-get-GraphicsWinModelBackgrndColor DISPLAY) 
      whitecol 
     ) 
     (vla-put-GraphicsWinModelBackgrndColor DISPLAY blackcol) 
     (vla-put-ModelCrosshairColor  DISPLAY whitecol) 
     (vla-put-AutoTrackingVecColor DISPLAY whitecol) 
    ) 
    ( 
     (equal (vla-get-GraphicsWinModelBackgrndColor DISPLAY) 
      blackcol 
     ) 
     (vla-put-GraphicsWinModelBackgrndColor DISPLAY whitecol) 
     (vla-put-ModelCrosshairColor  DISPLAY blackcol) 
     (vla-put-AutoTrackingVecColor DISPLAY blackcol) 
    ) 
    (T 
     (vla-put-GraphicsWinModelBackgrndColor DISPLAY blackcol) 
     (vla-put-ModelCrosshairColor  DISPLAY whitecol) 
     (vla-put-AutoTrackingVecColor DISPLAY whitecol) 
    ) 
  ) 
    (princ "\n背景颜色已经切换。") 
    (prin1) 
)

rocking2008 · 发表于 2020-5-17 07:00:45

http://bbs.mjtd.com/thread-181504-1-1.html这里有现成的。

taoyi0727 · 发表于 2020-5-17 09:28:34

我试了可以用呀没有什么问题 vla-put-AutoTrackingVecColor(自动追踪矢量线颜色),这是个啥?

菜卷鱼 · 发表于 2020-5-18 08:36:41

taoyi0727 发表于 2020-5-17 09:28
我试了可以用呀没有什么问题 vla-put-AutoTrackingVecColor(自动追踪矢量线颜色),这是个啥?

就是那根绿色的线

taoyi0727 · 发表于 2020-5-18 14:20:59

好像这个不是用在你说的哪里

先用vla-get-AutoTrackingVecColor获取出来
再手动把这个位置颜色改了
然后用vla-get-AutoTrackingVecColor获取出来的值并没有改变

这个是官网上的
http://help.autodesk.com/view/OA ... B-9082-C91BE0EDDF5D

菜卷鱼 · 发表于 2020-5-19 08:44:55

taoyi0727 发表于 2020-5-18 14:20
好像这个不是用在你说的哪里

先用vla-get-AutoTrackingVecColor获取出来

这个追踪线颜色不能改的话，切换背景颜色也失去了意义，还是要手动去点，手动去点的话还不如直接全部点了。

1993063 · 发表于 2020-5-22 23:51:33

本帖最后由 1993063 于 2020-5-22 05:52 编辑

看看这个合不合你胃口

(Defun c:bg ( / disp drafting)
(setq disp (vla-get-display (vla-get-preferences (vlax-get-acad-object))))
(setq drafting (vla-get-drafting (vla-get-preferences (vlax-get-acad-object))))
(if (= (vlax-variant-value (vlax-variant-change-type (vla-get-graphicswinmodelbackgrndcolor disp) vlax-vblong)) 0)
(progn
(vla-put-graphicswinmodelbackgrndcolor disp 16777215)
(vla-put-graphicswinlayoutbackgrndcolor disp 16777215)
(vla-put-layoutcrosshaircolor disp 0)
(vla-put-modelcrosshaircolor disp 0)
(vla-put-autotrackingveccolor disp 0)
(vla-put-autosnapmarkercolor drafting 6)
;(princ "\n →背景切换到白色")
)
(progn
(vla-put-graphicswinmodelbackgrndcolor disp 0)
(vla-put-graphicswinlayoutbackgrndcolor disp 0)
(vla-put-layoutcrosshaircolor disp 65535);布局空间十字光标颜色
(vla-put-modelcrosshaircolor disp 32767) ;模型空间十字光标颜色
(vla-put-autotrackingveccolor disp 16777215)
(vla-put-autosnapmarkercolor drafting 2)
;(princ "\n →背景切换到黑色")
)
)
(princ)
)

(Defun c:bg ( / disp drafting) 
  (setq disp (vla-get-display (vla-get-preferences (vlax-get-acad-object)))) 
  (setq drafting (vla-get-drafting (vla-get-preferences (vlax-get-acad-object)))) 
  (if (= (vlax-variant-value (vlax-variant-change-type (vla-get-graphicswinmodelbackgrndcolor disp) vlax-vblong)) 0) 
    (progn 
      (vla-put-graphicswinmodelbackgrndcolor disp 16777215) 
      (vla-put-graphicswinlayoutbackgrndcolor disp 16777215) 
      (vla-put-layoutcrosshaircolor disp 0) 
      (vla-put-modelcrosshaircolor disp 0) 
      (vla-put-autotrackingveccolor disp 0) 
      (vla-put-autosnapmarkercolor drafting 6) 
      ;(princ "\n →背景切换到白色") 
    ) 
    (progn 
      (vla-put-graphicswinmodelbackgrndcolor disp 0) 
      (vla-put-graphicswinlayoutbackgrndcolor disp 0) 
      (vla-put-layoutcrosshaircolor disp 65535);布局空间十字光标颜色 
      (vla-put-modelcrosshaircolor disp 32767) ;模型空间十字光标颜色 
      (vla-put-autotrackingveccolor disp 16777215) 
      (vla-put-autosnapmarkercolor drafting 2) 
      ;(princ "\n →背景切换到黑色") 
    ) 
  ) 
  (princ) 
)

菜卷鱼 · 发表于 2020-5-23 08:48:00

1993063 发表于 2020-5-22 23:51
看看这个合不合你胃口

谢谢，一样的，自动追踪矢量（极轴）颜色不会变，
要事先把自动追踪矢量,应该说是极轴，改成背景颜色黑色或白色都能看到的颜色。

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

[提问] 背景颜色切换问题

本帖子中包含更多资源

本帖子中包含更多资源

浏览过的版块