哪位大师能看懂这个图片是怎么做到的呢？给分解下谢谢。

相信自己666 · 发表于 2018-1-2 16:29:18

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由相信自己666 于 2018-1-8 20:14 编辑

哪位大师能看懂这个图片是怎么做到的呢？给分解下谢谢。利用表格来控制cad中相同文字的颜色。除了这个还有没有其他方法来批量把CAD中相同的文字标注不同的颜色？望赐教多谢多谢，感激不尽！各位大师，我上传了样版麻烦做下让学生参考下，十分感谢！

marting · 发表于 2018-1-2 19:17:53

开源函数库现成的函数，读取当前选择的EXCEL文本，很容易实现了

xd::excel:readselection

xd::excel:readselection 这个函数可以读多个选择区域的内容，下面图片演示了。

EXCEL改文字颜色.gif

下面是VL代码。

(defun c:tt ()
(if (setq txts (xd::excel:readselection))
(progn
(mapcar
'(lambda (x)
(setq x (cdr x))
(mapcar
'(lambda (y)
(if (= (length y) 2)
(progn (setq txt (car y)
txt (vl-princ-to-string txt)
)
(if (xd::string:regexps "[0-9]+\\.0$" txt "")
(setq txt (itoa (atoi txt)))
)
(setq clr (cadr y)
clr (vl-princ-to-string clr)
)
(if (xd::string:regexps "[0-9]+\\.0$" clr "")
(setq clr (atoi clr))
)
(setq ss (ssget "x" (list (cons 1 txt))))
(setq i -1)
(while (setq e (ssname ss (setq i (1+ i))))
(vla-put-color (vlax-ename->vla-object e) clr)
)
)
)
)
x
)
)
txts
)
)
)
(princ)
)

(defun c:tt () 
  (if (setq txts (xd::excel:readselection)) 
    (progn 
      (mapcar 
        '(lambda (x) 
           (setq x (cdr x)) 
           (mapcar 
             '(lambda (y) 
                (if (= (length y) 2) 
                  (progn (setq txt (car y) 
                               txt (vl-princ-to-string txt) 
                         ) 
                         (if (xd::string:regexps "[0-9]+\\.0$" txt "") 
                           (setq txt (itoa (atoi txt))) 
                         ) 
                         (setq clr (cadr y) 
                               clr (vl-princ-to-string clr) 
                         ) 
                         (if (xd::string:regexps "[0-9]+\\.0$" clr "") 
                           (setq clr (atoi clr)) 
                         ) 
                         (setq ss (ssget "x" (list (cons 1 txt)))) 
                         (setq i -1) 
                         (while (setq e (ssname ss (setq i (1+ i)))) 
                           (vla-put-color (vlax-ename->vla-object e) clr) 
                         ) 
                  ) 
                ) 
              ) 
             x 
           ) 
         ) 
        txts 
      ) 
    ) 
  ) 
  (princ) 
)

csharp · 发表于 2018-1-2 17:55:06

这有必要用 Excel 吗？直接在Acad中写即可

newer · 发表于 2018-1-2 18:15:21

把EXCEL文件和DWG打包发上论坛，别人也好帮你啊。

相信自己666 · 发表于 2018-1-8 19:25:45

csharp 发表于 2018-1-2 17:55

您好老师，请教有没有方法直接在CAD里面改变的，请赐教，多谢多谢。

marting · 发表于 2018-1-8 19:34:00

相信自己666 发表于 2018-1-8 19:25

说0绝对，无限接近0

相信自己666 · 发表于 2018-1-8 19:38:06

csharp 发表于 2018-1-2 17:55

您好老师，请教有没有方法直接在CAD里面改变的，请赐教，多谢多谢。

相信自己666 · 发表于 2018-1-8 19:46:28

marting 发表于 2018-1-2 19:17

您好老师，感谢您的帮助，可是我把代码复制到visual lisp编辑器中怎么不能用啊，老师麻烦您把具体的操作步骤给录个屏好吗，十分谢谢您老师。

marting · 发表于 2018-1-8 19:54:34

相信自己666 发表于 2018-1-8 19:46

多看看论坛置顶的帖子，论坛插件的使用方法。很多现成的帖子。
最简单的方法，下载安装晓东工具箱，然后你拷贝回去代码保存成LISP，或者直接粘贴到命令行。然后执行C:后面的单词就是命令了。

相信自己666 · 发表于 2018-1-8 21:33:57

marting 发表于 2018-1-8 19:54

老师我下载安装了晓东工具箱了，不知道对我这个怎么用，把代码输入到命令行后按“tt”没有反应的,是不是要先做个EXCEL表啊,请老师指教，感谢感谢。

marting · 发表于 2018-1-8 22:00:37

相信自己666 发表于 2018-1-8 21:33

你的要求不就是从EXCEL里面的内容修改颜色吗？当然你得有那个EXCEL了。

相信自己666 · 发表于 2018-1-9 08:39:58

marting 发表于 2018-1-8 22:00

老师我打EXCEL了也是出现这个（命令: TT ; 错误: no function definition: XD::EXCEL:READSELECTION），不知道怎么读取EXCEL文本，请老师指教，老师我上传的有个附件能不帮忙给做下，让学生参考学习下，感谢老师。

marting · 发表于 2018-1-9 08:46:50

相信自己666 发表于 2018-1-9 08:39

你没安装好晓东工具箱，装好了，就没这个提示错误了。
你怎么装的？启动CAD后，按F2，把文本屏幕截图贴上来看看。

相信自己666 · 发表于 2018-1-9 09:28:51

marting 发表于 2018-1-9 08:46

老师我上传图片了，麻烦您给看下

marting · 发表于 2018-1-9 09:38:43

相信自己666 发表于 2018-1-9 09:28

你在命令行输入：

!XD::EXCEL:READSELECTION
回车，
看看返回什么？是不是下面这样的

命令: !XD::EXCEL:READSELECTION
#<SUBR @1e873884 XD::EXCEL:READSELECTION>

复制代码

账号		自动登录	找回密码
密码			立即注册

[求助] 哪位大师能看懂这个图片是怎么做到的呢？给分解下谢谢。

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

浏览过的版块