社区 › AutoCAD工具插件 › 改变颜色的插件

eileen 发表于 2020-4-15 00:10:54

改变颜色的插件

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

Linqu 发表于 2020-4-15 08:02:37

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

Linqu 发表于 2020-4-15 08:03:43

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

stonedesign 发表于 2020-4-18 21:56:26

你这个改颜色插件太傻了
试下这个
；改颜色命令
(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
)

偶尔郁闷 发表于 2020-4-22 15:10:21

TINGHAOYONG

KO你 发表于 2020-4-28 12:35:42

快捷键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你 发表于 2020-4-28 12:37:01

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 发表于 2020-5-10 17:00:38

qmqyqj 发表于 2020-5-20 12:00:24

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你 发表于 2020-5-22 00:43:12

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 "选择需要查询比例的视口：")
(setqent (entget (ssname (ssget ":S" '((0 . "viewport"))) 0)))
(princ (strcat "\n视口比例为：1:" (rtos (/ (cdr(assoc 45 ent))
(cdr(assoc 41 ent))) 2 0) "\n"))
(princ))

查看完整版本: 改变颜色的插件