0 Members and 2 Guests are viewing this topic.
(defun c:xdtb_entrandclr (/ ss clr) (xdrx-begin) (if (setq ss (xdrx-ssget (xdrx-string-multilanguage "\n选择实体<退出>:" "\nSelect Entity<Exit>:" ) ) ) (progn (mapcar '(lambda (x) (setq clr (xdrx-math-rand 1 255)) (xdrx-setpropertyvalue x "color" clr) ) (xdrx-ss->ents ss) ) ) ) (xdrx-end) (princ))