精品试听季，好课抢鲜听 工程师进阶必备，全套项目资料包来袭！
      土木在线论坛 \ 建筑设计 \ CAD下载及教程 \ 如何将文字的颜色设为随层？

      如何将文字的颜色设为随层？

      如题
      谢谢
      发布于2008-02-19 12:09:19
      我来答
      分享
      举报

      全部回答（1 ）

      • biechen
        biechen

        ;程序实现，保存为后缀为lsp的文件，加载，运行set_txtcobylayer命令
        (defun c:set_txtcobylayer( / ss)
        (setq ss (ssget ’ ((0 . "TEXT"))))
        (fe-put-ss-color ss 256)
        (princ)
        )


        ;|Function: fe-put-color(ename color)
        Parameter:
        ename: 对象名称
        Action:
        修改实体颜色
        |;
        (defun fe-put-color(_sname _color / dxflist)
        (setq dxflist (entget _sname))
        (if (assoc 62 dxflist)
        (setq dxflist (subst (cons 62 _color) (assoc 62 dxflist) dxflist))
        (setq dxflist (append dxflist (list (cons 62 _color))))
        )
        (entmod dxflist)
        )

        (defun fe-put-ss-color(_ss _color / en i dxflist)
        (setq i -1)
        (repeat (sslength _ss)
        (setq en (ssname _ss (setq i (1+ i))))
        (setq dxflist (entget en))
        (if (assoc 62 dxflist)
        (setq dxflist (subst (cons 62 _color) (assoc 62 dxflist) dxflist))
        (setq dxflist (append dxflist (list (cons 62 _color))))
        )
        (entmod dxflist)
        )
        )
        2008-03-22 10:11:22 来自 PC 评论 举报
      相关推荐
      lihan1117
      这个家伙什么也没有留下。。。

      主题

      10

      回复

      63

      粉丝

      0
      + 关注 私信

      CAD下载及教程

      返回版块

      52.09 万条内容 · 667 人订阅

      猜你喜欢

      回帖成功

      经验值 +10

      关于我们 | 联系我们 | 网站声明 | 帮助中心 | 网站地图 | 土木在线手机版

      Copyright©2000-2024  常州易宝网络服务有限公司版权所有  苏B2-20220726  出版物经营许可证