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

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

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

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

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:aca4zg5go45.dwg
下载次数:0 文件大小:23.71 KB 售价:2银币 [记录]
下载权限: 不限以上或 Vip会员 [开通Vip] [签到领银币] [免费赚银币]

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

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:00

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:azapjuyfgyu.zip
下载次数:0 文件大小:949 Bytes 售价:2银币 [记录]
下载权限: 不限以上或 Vip会员 [开通Vip] [签到领银币] [免费赚银币]

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

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

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

(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 (vla-object en))
      (vlax-put-property mtobj 'TextString str1)
      (command "matchprop" en1 en ""); 再刷一遍
   );while
)
(princ "No mtexts found.")
);end if
(princ)
)

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

发表回复

精选推荐