xingyun300 发表于 2013-3-2 11:31:14

求一程序-点一行字自动画出该行字的下划线




点击之前的效果



点击后的效果

阿然 发表于 2013-3-2 11:37:07

本帖最后由 阿然 于 2013-3-2 11:40 编辑

;;;只对单行文本有效
(defun c:tt (/ ent elst txtstr)
(while (setq ent (car (entsel "\n选择文字:")))
(setq elst (entget ent))
(setq txtstr (cdr (assoc 1 elst)))
   (setq txtstr (strcat "%%U" txtstr))
   (setq elst (subst (cons 1 txtstr) (assoc 1 elst) elst))
    (entmod elst)
   (princ)))


xingyun300 发表于 2013-3-2 14:18:34

阿然 发表于 2013-3-2 11:37 static/image/common/back.gif


程序不错，能不能在CAD里自动画一条线呢，

434939575 发表于 2014-3-28 21:30:06

这个下面画条线比较简单。

xyp1964 发表于 2014-3-28 22:45:50


yxh1202 发表于 2019-5-8 11:48:00

xyp1964 发表于 2014-3-28 22:45


你这种高人就像神仙一样，露两手，然后不知所踪

xgr 发表于 2019-5-8 12:21:15

yxh1202 发表于 2019-5-8 11:48
你这种高人就像神仙一样，露两手，然后不知所踪

页: [1]
查看完整版本: 求一程序-点一行字自动画出该行字的下划线