zcc0 发表于 2016-3-7 09:31:17

求助求助图形中批量加文字 为啥没人关注呢

本帖最后由 zcc0 于 2016-3-7 13:26 编辑

想在图形中批量加入文字最好是输入或者选取
我i想先选择或者输入文字然后框选图形，在图形中间靠下点自动标注之前的文字或者反过来也行，先框选再选择文字

陈进佳 发表于 2016-3-7 11:21:12

你这个只需要加这一种文字还是有好多种

zcc0 发表于 2016-3-7 11:25:47

一种文字但是内容不一样

陈进佳 发表于 2016-3-7 11:31:36

qq781849579联系

zcc0 发表于 2016-3-7 12:03:09

大家接着给看看怎么弄

zcc0 发表于 2016-3-7 12:06:44


我i想先选择或者输入文字然后框选图形，在图形中间靠下点自动标注之前的文字或者反过来也行，先框选再选择文字

Real_King 发表于 2016-3-8 09:38:37




NET整的，10上用，不知道你们承包地用的啥版本

永不言弃 发表于 2016-3-9 13:35:14

;;;需要小懒人工具箱支持
;;;下载地址
;;;http://yunpan.cn/c3iAVqYptpwj9访问密码 cc19
;;;QQ群： 208388011
(defun c:tt();;;;多边形内加文本
(vl-load-com)
(setq tx1 (cdr(assoc 1 (entget (car(entsel "\n 选择文本"))))))
(setq ss (ssget (list (cons 0 "*POLYLINE"))))
(setq k -1)
(repeat (sslength ss)
    (setq ent (ssname ss (setq k (1+ k))))
    (setq pt (xlr_plzxd ent))
    (command "TEXT" "J" "MC" pt 1 0 tx1)
    )
)



zcc0 发表于 2016-3-9 16:41:35

谢谢啦
页: [1]
查看完整版本: 求助求助图形中批量加文字 为啥没人关注呢