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

xingyun300

点击之前的效果



点击后的效果

阿然

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

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

xingyun300

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

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

434939575

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

xyp1964

yxh1202

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

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

xgr

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