皮皮网

1.lisp语言如何设置CAD当前绘颜色
2.大神请教个问题：我想用lisp改变已有的改颜p更改文标注样式 的标注线 和文本的颜色 lisp 该怎么写呢？
3.CAD修改颜色命令---Lisp代码分享(3)
4.求lisp代码！怎么把图层改成与文字内容一样名称的色源式和图层

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

       (setq #os6 (getvar "Cecolor")        ;;取得当前颜色为#os6

       (setvar "cecolor" "1");改变当前颜色为红，颜色的字样字体数值到AutoCAD里面查看。

       (setvar "Cecolor" #os6);颜色还原

       ;1.以上是改颜p更改文盒子推广源码一个设置方法，这个时候绘图的色源式和话，会把图形以设置颜色绘制。字样字体

       ;2.如果图元对象已经绘制，改颜p更改文要修改图元颜色的色源式和话，这个图元是字样字体ent 如：(setq ent (entlast))

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

大神请教个问题：我想用lisp改变已有的标注样式 的标注线 和文本的颜色 lisp 该怎么写呢？

       ;改颜色随层子程序

       (defun c:tt1(/ ss)

       (princ "颜色改为随层")

       (if (setq ss (ssget))

       (progn

       (princ (strcat (itoa (sslength ss)) "个对象的颜色改为随层"))

       (command "change" ss "" "P" "C" "bylayer" "")

       )

       );if

       (princ)

       )

CAD修改颜色命令---Lisp代码分享(3)

       运用Lisp实现多步骤CAD命令集成，优化了颜色修改操作，改颜p更改文改进了错误代码，色源式和源码php修改工具修正了中途退出命令时参数恢复问题。字样字体附带CAD命令集合与源代码，改颜p更改文便于用户交流学习。色源式和

       以下是字样字体使用Lisp简化后的命令流程：

       1. 打开记事本，编写代码。java 咨询门户 源码

       2. 将文件另存为Color.lsp，确保保存类型为全部，编码类型选用UTF-8或ANSI。

       3. 或者在CAD中输入Vlisp，进入编程界面，html打开链接源码新建文件，输入代码并保存。

       4. 根据需求修改defun c: 后的命令定义，本文展示部分命令，如0~等。php网站免费源码

       5. 在CAD命令行输入AP，回车，选择Lisp文件加载，即可使用定义的命令。

       6. 对于常用命令，可加入启动组，方便快速访问。

       注意：获取完整Lisp程序文件的步骤如下：

       关注公众号：为赶路人干杯

       在公众号回复关键词：Lisp（后续发布的Lisp命令集均会共享至此文件夹中）

求lisp代码！怎么把图层改成与文字内容一样名称的图层

       代码如下：

       (defun c:tes ( / &kw ent i lays n obj tc tr x)

        (vl-load-com)

        (princ "\n请选择文字")

        (if (setq &kw (ssget '((0 . "TEXT"))))

        (progn

        (while (setq ent (ssname &kw 0))

        (setq &kw (ssdel ent &kw)

        obj (vlax-ename->vla-object ent)

        tr (cdr (assoc 1 (entget ent)));文字内容

        n (vla-get-color obj);颜色

        x (vla-get-Lineweight obj);线宽

        i (vla-get-Linetype obj);线型

        tc (vla-get-layer obj);图层

        lays (vla-add (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))) tc);图层

        )

        (if (= n ) (setq n (vla-get-color lays)))

        (if (= n 0) (setq n 7) );图层颜色修正

        (if (= i "ByLayer") (setq i (vla-get-Linetype lays)) )

        (if (= i "ByBlock") (setq i "Continuous") );线型修正

        (if (member x '(-1 -2)) (setq x (vla-get-Lineweight lays)) )

        (xtc1 i n tr x);检查图层

        (vla-put-layer obj tr);修改图层

        )

        )

        )

        (princ)

       )

       (defun xtc1 (i n r x / i n r x)

        (if (null (tblsearch "layer" r))

        (entmake (list '(0 . "LAYER") '( . "AcDbSymbolTableRecord") '( . "AcDbLayerTableRecord") (cons 6 i) (cons n) (cons x) '( . 0) '( . 1) (cons 2 r)))

        )

       )

       ;复制以上代码，粘贴到记事本，以.lsp为后缀，保存的编码格式为ANSI，CAD加载后，输入命令TES，选择文字就可以建立新图层。