MapGis转CAD后文字大小的一个问题

ro2056 · 发表于 2014-4-24 16:06:42

MapGis转CAD后的文字比在MapGIS中的要大一点，经过比对，发现cad中的文字字高为MapGIS中的0.75倍。有没有办法一步到位统一使文字按比例缩小？
比如文字中有字高分别为2、3、4、5、6、7、10的文字，按0.75的比例缩小为1.5、2.25、3、3.75、4.5、5.25、7.5的字高。而不是先选字高2的改为1.5，3的改为2.25，4的改为3……

llsheng_73 · 发表于 2014-4-24 16:32:09

有没有办法一步到位统一使文字按比例缩小？
而不是先选字高2的改为1.5，3的改为2.25，4的改为3……

那应该是没办法了，虽然可以写个简单的LSP，但要用到的方法刚好是你排除掉了的

ll_j · 发表于 2014-4-24 16:48:30

试用一下，是不是需要的，不是的话，再详细说明，或者贴个图上来。

(defun c:tt(/ ss i en et e40)
(setq ss(ssget '((0 . "*text")))
i -1
)
(repeat (sslength ss)
(setq i (1+ i)
en(ssname ss i)
et(entget en)
e40(* 0.75 (cdr (assoc 40 et)))
et(subst (cons 40 e40) (assoc 40 et) et)
)
(entmod et)
)
(princ)
)

自贡黄明儒 · 发表于 2014-4-24 16:51:32

也可以原位缩放http://bbs.mjtd.com/forum.php?mod=viewthread&tid=108656

ro2056 · 发表于 2014-4-25 10:39:50

ll_j 发表于 2014-4-24 16:48
试用一下，是不是需要的，不是的话，再详细说明，或者贴个图上来。

能用，谢谢。就是这样的，如果能先定义倍数，就更好了

ro2056 · 发表于 2014-4-25 10:41:48

自贡黄明儒发表于 2014-4-24 16:51
也可以原位缩放http://bbs.mjtd.com/forum.php?mod=viewthread&tid=108656

这个我没试，用了3L的那个可以用，就没试这个了，不过这个应该是可以的。谢谢

ll_j · 发表于 2014-4-25 10:51:26

ro2056 发表于 2014-4-25 10:39
能用，谢谢。就是这样的，如果能先定义倍数，就更好了

先定义倍数是很容易的，随手改一下：

(defun c:tt(/ ss i en et e40 sc)
(setq ss(ssget '((0 . "*text")))
i -1
)
(initget 6)
(setq sc (getreal "\n文字放缩倍数 <0.75>: "))
(if (not sc) (setq sc 0.75))
(repeat (sslength ss)
(setq i (1+ i)
en(ssname ss i)
et(entget en)
e40(* sc (cdr (assoc 40 et)))
et(subst (cons 40 e40) (assoc 40 et) et)
)
(entmod et)
)
(princ)
)

ro2056 · 发表于 2014-4-25 15:34:17

ll_j 发表于 2014-4-25 10:51
先定义倍数是很容易的，随手改一下：

谢谢,真是太好了,转的图都不去有文字漏掉了.

香田里浪人 · 发表于 2014-4-25 18:51:52

ro2056 发表于 2014-4-25 10:39
能用，谢谢。就是这样的，如果能先定义倍数，就更好了

很简单，略微修改一下即可。程序如下：
(defun c:wzywsf (/ ss i en et e40)
(setq sc (getdist "\n请输入缩放倍数:"))
  (setq ss(ssget '((0 . "*text")))
      i -1
  )
  (repeat (sslength ss)
(setq i (1+ i)
      en(ssname ss i)
      et(entget en)
      e40(* sc(cdr (assoc 40 et)))
      et(subst (cons 40 e40) (assoc 40 et) et)
)
(entmod et)
  )
  (princ)
)

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

[已解答] MapGis转CAD后文字大小的一个问题