[软件使用]
直接修改AutoCAD线条颜色的方法 [复制链接]

5403阅读
22回复

离线创世图腾

楼主发表于： 2012-09-25 只看楼主正序阅读

中国汉化网提醒您：

如转此帖，须经本站同意，另外请认真阅读《本站论坛管理条例》！

— 本帖被 admin 从插件专区移动到本区(2012-09-25) —

将下列内容加入AutoCAD的autodos.lsp文件内就可以实现俺数字键改变线条颜色功能。

复制代码

(setvar "cmdecho" 0)
;改成红色--------------------------------------------------------- 1
(defun c:1(/ ent)
(setq ent (ssget))
(command "change" ent "" "p" "c" "1" "")
)
;改成黄色--------------------------------------------------------- 2
(defun c:2(/ ent)
(setq ent (ssget))
(command "change" ent "" "p" "c" "2" "")
)
;改成绿色--------------------------------------------------------- 3
(defun c:3(/ ent)
(setq ent (ssget))
(command "change" ent "" "p" "c" "3" "")
)
;改成青色--------------------------------------------------------- 4
(defun c:4(/ ent)
(setq ent (ssget))
(command "change" ent "" "p" "c" "4" "")
)
;改成蓝色--------------------------------------------------------- 5
(defun c:5(/ ent)
(setq ent (ssget))
(command "change" ent "" "p" "c" "5" "")
)
;改成紫色--------------------------------------------------------- 6
(defun c:6(/ ent)
(setq ent (ssget))
(command "change" ent "" "p" "c" "6" "")
)
;改成白色--------------------------------------------------------- 7
(defun c:7(/ ent)
(setq ent (ssget))
(command "change" ent "" "p" "c" "7" "")
)
;改成灰黑色--------------------------------------------------------8
(defun c:8(/ ent)
(setq ent (ssget))
(command "change" ent "" "p" "c" "8" "")
)
;改色--------------------------------------------------------------9
(defun c:9(/ ent)
(setq ent(ssget))
(command "change" ent "" "p" "c" "9" "")
)

好了，希望可以帮到大家。
找不到文件的可以用搜索。

分享到

新浪
QQ空间
QQ好友
扫一扫分享到微信

离线 sj111111

发表于： 2013-12-19 只看该作者

22F

算不算是自己改了快捷键啊

离线明天我是青菜

发表于： 2013-06-30 只看该作者

21F

这个是相当于快捷键吗

离线 himmJK

发表于： 2013-06-30 只看该作者

20F

作弊器啊，强大

离线德威堡

发表于： 2013-06-29 只看该作者

19F

学习学习，不错

离线 ainiaini520

发表于： 2012-11-20 只看该作者

18F

支持楼主。

离线布丁00

发表于： 2012-10-31 只看该作者

17F

木有看明白

离线 c349891321

发表于： 2012-10-30 只看该作者

16F

感觉不是太方便啊，不过还是顶你这样爱创新的人！

离线 jullye1

发表于： 2012-10-27 只看该作者

15F

回楼主(创世图腾) 的帖子

顶起

离线 nanxi

发表于： 2012-10-26 只看该作者

14F

感谢楼主

发表新帖回复

首页12 3 末页

你的浏览器不支持js脚本，无法发帖，请修改浏览器设置，支持js脚本并刷新页面后再发帖！

发表新帖回复

新手引导

论坛管理条例

新手必看，以更好发挥论坛作用

下载问题来问我！

下载软件前请务必查看下载提醒与下载方法，以免发生误会

我需要帮助

我需要帮助，我要求助，来吧，在这里

您所在的版区

汉化天地

资源天下

CG 表现

站务管理

常用功能

帖子

[软件使用] 直接修改AutoCAD线条颜色的方法 [复制链接]

新手引导

您所在的版区

[软件使用]
直接修改AutoCAD线条颜色的方法 [复制链接]