求助！（修改CAD图中的字体）

mcm007 · 发表于 2002-11-6 10:19

我想把CAD图中所有字体改为Tahoma，有格式刷无法实现，请问哪位高手有LISP程序。

alin · 发表于 2002-11-6 12:59

mcm007 · 发表于 2002-11-6 13:20

alin · 发表于 2002-11-6 13:59

mcm007 · 发表于 2002-11-8 13:06

alin · 发表于 2002-11-8 13:43

Hopefully this rooutine can help you a little bit.
Howerver, it's not finished yet. Coz it doesn't work for long strings and some very special formats.

alin · 发表于 2002-11-8 13:45

mcm007 · 发表于 2002-11-8 20:02

格式转换的同时，把内容也变为一样，相当于copy

alin · 发表于 2002-11-10 07:06

(defun c:CMT(/ en1 mtobj1 str1 style1 ss idx en str mtobj style)
  (setq en1 (car (entsel "Select a Source MTEXT: ")))
  (setq mtobj1 (vlax-ename->vla-object en1)
      str1 (vlax-get-property mtobj1 'TextString))
  (princ "\nSelect Object MTEXTs...")
  (setq ss (ssget '((0 . "MTEXT"))))
  (if ss
(progn
   (setq idx -1)
   (while (<= (setq idx (1+ idx)) (1- (sslength ss)))
      (setq en (ssname ss idx))
      (setq mtobj (vlax-ename->vla-object en))
   (vlax-put-property mtobj 'TextString str1)
      (command "matchprop" en1 en ""); 再刷一遍
   );while
)
(princ "No mtexts found.")
);end if
(princ)
)

alin · 发表于 2002-11-10 07:11

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

求助！（修改CAD图中的字体）

up load one of your drawings...

drawing

本帖子中包含更多资源

Can't get it. Zip it better

zip

It's not so easy ...

attachment

本帖子中包含更多资源

请帮我完善

早说，这可容易多了...

强力