给表格行间设置交替颜色

marting · 发表于 2018-9-19 00:16:39

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun c:TableAltColor (/ *error* acc col fnc idx obj row sel tmp)
(defun *error* (msg)
(if (and (= 'vla-object (type acc))
(not (vlax-object-released-p acc))
)
(vlax-release-object acc)
)
(if (not (wcmatch (strcase msg t) "*break,*cancel*,*exit*"))
(princ (strcat "\nError: " msg))
)
(princ)
)
(setq col '(215 215 215))
;; True Colour (r g b) for cell background
(if (setq sel (ssget "_:L" '((0 . "ACAD_TABLE"))))
(if (setq acc (vla-getinterfaceobject
(vlax-get-acad-object)
(strcat "autocad.accmcolor."
(substr (getvar 'acadver) 1 2)
)
)
)
(progn (apply 'vla-setrgb (cons acc col))
(repeat (setq idx (sslength sel))
(setq obj (vlax-ename->vla-object
(ssname sel (setq idx (1- idx)))
)
col (vla-get-columns obj)
)
(vla-put-regeneratetablesuppressed obj :vlax-true)
(repeat (setq row (vla-get-rows obj))
(if (zerop (rem (setq row (1- row)) 2))
(setq fnc (lambda (a b)
(vla-setcellbackgroundcolor obj a b acc)
)
)
(setq fnc (lambda (a b)
(vla-setcellbackgroundcolornone
obj
a
b
:vlax-true
)
)
)
)
(repeat (setq tmp col) (fnc row (setq tmp (1- tmp))))
)
(vla-put-regeneratetablesuppressed obj :vlax-false)
)
(vlax-release-object acc)
)
(princ "\nUnable to interface with AcCmColor object.")
)
)
(princ)
)

(defun c:TableAltColor (/ *error* acc col fnc idx obj row sel tmp) 
  (defun *error* (msg) 
    (if        (and (= 'vla-object (type acc)) 
             (not (vlax-object-released-p acc)) 
        ) 
      (vlax-release-object acc) 
    ) 
    (if        (not (wcmatch (strcase msg t) "*break,*cancel*,*exit*")) 
      (princ (strcat "\nError: " msg)) 
    ) 
    (princ) 
  ) 
  (setq col '(215 215 215)) 
  ;; True Colour (r g b) for cell background 
  (if (setq sel (ssget "_:L" '((0 . "ACAD_TABLE")))) 
    (if        (setq acc (vla-getinterfaceobject 
                    (vlax-get-acad-object) 
                    (strcat "autocad.accmcolor." 
                            (substr (getvar 'acadver) 1 2) 
                    ) 
                  ) 
        ) 
      (progn (apply 'vla-setrgb (cons acc col)) 
             (repeat (setq idx (sslength sel)) 
               (setq obj (vlax-ename->vla-object 
                           (ssname sel (setq idx (1- idx))) 
                         ) 
                     col (vla-get-columns obj) 
               ) 
               (vla-put-regeneratetablesuppressed obj :vlax-true) 
               (repeat (setq row (vla-get-rows obj)) 
                 (if (zerop (rem (setq row (1- row)) 2)) 
                   (setq fnc (lambda (a b) 
                               (vla-setcellbackgroundcolor obj a b acc) 
                             ) 
                   ) 
                   (setq fnc (lambda (a b) 
                               (vla-setcellbackgroundcolornone 
                                 obj 
                                 a 
                                 b 
                                 :vlax-true 
                               ) 
                             ) 
                   ) 
                 ) 
                 (repeat (setq tmp col) (fnc row (setq tmp (1- tmp)))) 
               ) 
               (vla-put-regeneratetablesuppressed obj :vlax-false) 
             ) 
             (vlax-release-object acc) 
      ) 
      (princ "\nUnable to interface with AcCmColor object.") 
    ) 
  ) 
  (princ) 
)

游客，如果您要查看本帖隐藏内容请回复

fn2398 · 发表于 2018-9-19 02:08:05

谢谢老师分享，小白再学习学习！

renyonghua2014 · 发表于 2018-9-19 04:28:04

学习学习，谢谢楼主提供！

Michael527 · 发表于 2018-9-19 07:25:42

这个会很方便，谢谢了

longer88 · 发表于 2018-9-19 07:36:28

这个会很方便，谢谢

ynhh · 发表于 2018-9-19 08:04:08

谢谢您的分享

lw5297590 · 发表于 2018-9-19 08:23:29

谢谢分享，学习学习！

spp_wall · 发表于 2018-9-19 09:38:35

不错不错！！！！！！！！！！！

yoyoho · 发表于 2018-9-19 11:28:40

学习了! 谢谢 marting 提供！

小乙辫 · 发表于 2018-9-19 13:22:51

谢谢大神，学习。

sachindkini · 发表于 2018-9-19 14:12:51

dear sir, wow its very cool

cshimao · 发表于 2018-9-19 14:15:59

谢谢楼主分享，小白学习来了。

Michael527 · 发表于 2018-9-20 07:32:08

能不能选颜色呢？

ray7891 · 发表于 2018-9-20 08:41:07

很有用的感觉。

sicky111 · 发表于 2018-9-25 10:17:03

回复学习。

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

[每日一码] 给表格行间设置交替颜色

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。