[求助]：改变颜色，难道只能用command吗

ss1025 · 发表于 2007-1-23 19:30:52

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

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

×

;;;改物体的颜色
(defun chcol (str / a1 n m a2 a3 col)
  (setq a1 (ssget))
  (setq n (sslength a1)
m 0
  )
  (repeat n
(setq a2 (entget (ssname a1 m)))
(setq col (assoc 62 a2))
(if col
   (setq a3 (subst (cons 62 str) col a2))
   (setq a3 (cons (cons 62 str) a2))
(entmod a3)
(setq m (+ 1 m))
  )
  (princ)
)
(defun c:c2 () (chcol 2))
这个程序改不了块或多义线的颜色，用command,change就可以。请哪位高手指点一下。怎么才能不用command，一样可以实现改色

ygrzz · 发表于 2007-1-23 21:30:26

我看到过用setvar 也可以，具体我也不懂

zxq0220 · 发表于 2007-1-24 08:22:21

[php]
(defun chcol (str / a1 n m a2 a3 col)
(setq a1 (ssget) m 0)
(repeat (sslength a1)
(setq a2 (entget (ssname a1 m)))
(setq col (assoc 62 a2))
(if col
(setq a3 (subst (cons 62 str) col a2))
(setq a3 (APPEND A2 (LIST (cons 62 str))));此句改了
)
(entmod a3)
(setq m (1+ m))
)
(princ)
)
[/php]

小菜 · 发表于 2007-1-24 08:28:33

用vla-put-color速度比较快

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

[求助] [求助]：改变颜色，难道只能用command吗

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

相关帖子

浏览过的版块