改变颜色的插件

eileen

以前不知道哪里下载到的。分享到这里。
如有违规，请删除。
输入数字1-255即可改变颜色。

Linqu

单独改变颜色的话 用处不大 配合图层的话就完美了

Linqu

单独改变颜色的话 用处不大 配合图层的话就完美了

stonedesign

你这个改颜色插件太傻了
试下这个
；改颜色命令[0-255]
(apply
'(lambda ( / n nn times pre)
    (setq n -1
          pre ""
          times 255
    )
    (repeat (1+ times)
       (setq n (1+ n)
             nn (itoa n)
       )
       (eval (read (strcat
                      "(defun c:"
                      (if (= 0 n) "0" nn)
                      "( / old_cmd x)(mai_start nil)(setq x (mai_select_first nil (strcat \"选择变颜色实体,颜色为 "
                      (if (= 0 n) "随层" nn)
                      ":<退出>\") \"没有选择物体.\"))(mai_chgcolor x "
                      nn
                      " nil)(mai_end))"
                   )
             )
       )
    )
)
nil
)

偶尔郁闷

TINGHAOYONG

KO你

快捷键  1-255  颜色
(defun c:1~255 (/ cnt)
(setq cnt -1)
(repeat 257
(eval(read(strcat
"(defun C:" (if (= cnt -1)"`"(itoa cnt))
"(/ ent)(setq ent (ssget))"
"(command \"_.change\" ent \"\" \"_p\" \"_c\" \""
(cond((= cnt -1)"bylayer")((= cnt 0)"byblock")(t(itoa cnt)))
"\" \"\")(princ))")))
(eval(read(strcat
"(defun C:C" (if (= cnt -1)"`"(itoa cnt)) "()"
"(command \".-color\""
(cond((= cnt -1)"bylayer")((= cnt 0)"byblock")(t(itoa cnt)))
")(princ))")))
(setq cnt (1+ cnt))))
(c:1~255)

KO你

Linqu 发表于 2020-4-15 08:03
单独改变颜色的话 用处不大 配合图层的话就完美了

快捷键  cd  改图层颜色
(defun c:cd()
(setvar "cmdecho" 0)
(setq lay(cdr (assoc 8 (entget (car (entsel "\n 请选取要修改颜色的图层对象:"))))))
;(setq ss (ssget))
;(if ss (progn
(setq colour (getstring "\n请输入颜色号<1-255>:"))
(command "-layer" "c" colour lay ""))
(setvar "cmdecho" 1)
(princ)

l982414603

qmqyqj

KO你 发表于 2020-4-28 12:35
快捷键  1-255  颜色
(defun c:1~255 (/ cnt)
(setq cnt -1)

(DEFUN c:1 () (command"zoom""1/1xp"))
(DEFUN c:2 () (command"zoom""1/2xp"))
(DEFUN c:3 () (command"zoom""1/3xp"))
(DEFUN c:5 () (command"zoom""1/5xp"))
怎么将这个改视口比例的代码融合进去，当在布局空间的视口内（未选择任何图元）的情况下，使用的是上面的命令调整视口比例，但选择图元后则使用修改图元的颜色

KO你

qmqyqj 发表于 2020-5-20 12:00
(DEFUN c:1 () (command"zoom""1/1xp"))
(DEFUN c:2 () (command"zoom""1/2xp"))
(DEFUN c:3 () (comma ...

在论坛里都可以找得到的
快捷键  sv  视口比例
(defun c:sv (/ bl)
(if (setq bl (getreal "\n视口比例1:"))
(command "zoom" "s" (strcat (rtos (/ 1.0 bl) 2 10) "xp")))
(princ))

快捷键  svv  视口比例查询
(defun c:svv (/ ent)
(prompt "选择需要查询比例的视口：")
(setq  ent (entget (ssname (ssget ":S" '((0 . "viewport"))) 0)))
(princ (strcat "\n视口比例为：1:" (rtos (/ (cdr(assoc 45 ent))
(cdr(assoc 41 ent))) 2 0) "\n"))
(princ))