利用自带pline扩展，但弧线命令时不显示新建图元，求大神进来观摩发表一下

xugaoming23

1. ;利用pline来做一些功能扩充，（以下展示弧线时文字不显示，实际上任何entmake在弧线段生成的元素都不显示）
   
2. ;直线段时可以显示文字，偏偏就是弧线段不显示文字，命令结束后必须RE一下才显示
   
3. (defun c:tt(/ ent lst)
   
4.   (vl-cmdf "._pline" )
   
5.   (command  pause)
   
6.   (setq ent (entlast))
   
7.   (while (< 0 (getvar 'cmdactive))
   
8.     (setq lst (vl-remove-if-not (function (lambda(x)(= 10 (car x))) )(entget ent)))  
   
9.     (entmake (list '(0 . "TEXT") (cons 1 "文字") (last lst) (cons 40 350)))        
   
10.     (command  pause)  
    
11.   )      
    
12. )

;利用pline来做一些功能扩充，（以下展示弧线时文字不显示，实际上任何entmake在弧线段生成的元素都不显示）<br /> ;直线段时可以显示文字，偏偏就是弧线段不显示文字，<font color="#ff0000">命令结束后必须RE一下才显示</font><br /> (defun c:tt(/ ent lst)<br />   (vl-cmdf "._pline" )<br />   (command  pause)<br />   (setq ent (entlast))<br />   (while (< 0 (getvar 'cmdactive))<br />     (setq lst (vl-remove-if-not (function (lambda(x)(= 10 (car x))) )(entget ent)))  <br />     (entmake (list '(0 . "TEXT") (cons 1 "文字") (last lst) (cons 40 350)))        <br />     (command  pause)  <br />   )      <br /> )

这个问题纠结我太久了，如何才能在过程中显示，以便可以相对动态的效果更完美，图片展示如下：

xugaoming23

就是不显示，pline的用处不言而喻