lisp语言如何设置CAD当前绘图颜色

如题所述

举报该问题

推荐答案推荐于2017-12-16

(setq #os6 (getvar "Cecolor") ;;取得当前颜色为#os6
(setvar "cecolor" "1");改变当前颜色为【红】，颜色的数值到AutoCAD里面查看。
(setvar "Cecolor" #os6);颜色还原

;1.以上是一个设置方法，这个时候绘图的话，会把图形以设置颜色绘制。

;2.如果图元对象已经绘制，要修改图元颜色的话，这个图元是ent 【如：(setq ent (entlast))】

(command "_.chprop" ent "" "color" 1 "");修改图元颜色为【红】；这个是直接改变颜色

温馨提示：答案为网友推荐，仅供参考

当前网址：http://33.wendadaohang.com/zd/R5B50000PRd5P5454PW.html

相似回答

CAD 如何用lisp实现如图层一到二十,把全部图层变成8号色?然后其中的某...答：1、界面上放两个按钮，2、其中一个按钮用来定义哪些层需要变成红色的，里边让用户输入字符串，比如：AAA，BBB，，也就是定义为 AAA层与BBB层将变成红色，其它所有层变为8号色 3、另一个按钮用来执行任务遍历所有图层，将图层名称逐一与定义的字符串比较，如果相同则设为红色，否则设为8号色-...

cad二次开发改变线的颜色 LISP答：(defun colorchange (colornum0 colorname0 / gp)(setvar "cmdecho" 0)(princ (strcat "\n★改变对象颜色为" colorname0 "★"))(setq gp (ssget))(if (/= gp nil)(command ".change" gp "" "p" "c" colornum0 ""))(princ "\nOK"))(setq colorlist(list '(1 "红色")'(2 ...

...类似于广联达软件中的,在CAD里面用LISP或者易语言上实现都行_百度知...答：RT,没有思路,就是可以直接点数字,输入参数的,然后用LISP或者易语言读取,再计算下面是图是广联达里面的,绿色的数字都可以点击修改,我想在易语言或者CAD里面实现,哪位大神给个思... RT,没有思路,就是可以直接点数字,输入参数的,然后用LISP或者易语言读取,再计算下面是图是广联达里面的,绿色的数字都可以点击修改,我...

大家正在搜

cad的lisp语言 lisp语言应用 lisp是解释语言吗 lisp语言能干什么 lisp语言入门 lisp语言经典教材 CAD用lisp优命令 haskell语言 prolog语言

CAD颜色快捷键怎么设置 (LISP编程也可以)？

Auto CAD AUTOLISP LSP 如何实现修改对象...

AutoCAD Lisp,怎么快速更改图层颜色？

求LISP源码，将CAD图中指定颜色（如JZD层）的文字颜色...

cad二次开发改变线的颜色 LISP

CAD lisp语言修改

如何用CAD LISP语言将所选的文字的文字样式设为当前文...

cad如何用lisp或者宏批量实现图层颜色随层？