[求助]这样的反映器能否实现？

userzhluserzhl

反映器：“金蜘蛛”改成“金蜘蛛大理石” 时下面的引线跟着延长。

zhang8755

应该是可以做到的

userzhluserzhl

我把文件附上，哪位高人出手帮忙下？

eachy

用 underline 写字不是更省事？

userzhluserzhl

eachy  大师，我不明白哦，CAD既没有underline这个命令，vl里也没有呀。

kmdz

可以用vla-getboundingbox来试试

eachy

%%uUnderline%%U

userzhluserzhl

牛人在对牛弹琴呀，我想没这么容易的吧，可否给个例子？

eachy

%%u 文字下划线控制符，只要找到这个起点就和楼主想要的效果一样的

kmdz

;赚点分，在文字倾斜情况稍有点长，自己再弄下，还可以加个复制的

2. 
   
3. (defun c:aa()
   
4.   (vl-load-com)
   
5.   (setq vobj1 (vlax-ename->vla-object (car (entsel))))
   
6.   (setq obj1 (cdr (assoc 5 (entget (car (entsel))))))
   
7.   (setq f_obj1 (list obj1))
   
8.   (setq f_vobj (list vobj1))
   
9. (vlr-pers (vlr-object-reactor f_vobj f_obj1 '((:vlr-modified . txt_edit))))
   
10. )
    
11. (defun txt_edit (f_txt f_line f_list)
    
12.   (vl-load-com)
    
13.   (vla-getboundingbox f_txt 'minpoint 'maxpoint)
    
14.   (setq len (distance (vlax-safearray->list minpoint)
    
15.             (vlax-safearray->list maxpoint))
    
16.             obj2 (vlr-data f_line)
    
17.             vobj2 (vlax-ename->vla-object (handent (car obj2)))
    
18.             star_pt (vlax-curve-getStartPoint vobj2)
    
19.            vangle (vla-get-Rotation f_txt)
    
20.            end_pt (polar star_pt vangle len)
    
21.           )
    
22.   (vla-put-EndPoint vobj2 (vlax-3d-point end_pt))
    
23. )

<br /> (defun c:aa()<br />   (vl-load-com)<br />   (setq vobj1 (vlax-ename->vla-object (car (entsel))))<br />   (setq obj1 (cdr (assoc 5 (entget (car (entsel))))))<br />   (setq f_obj1 (list obj1))<br />   (setq f_vobj (list vobj1))<br /> (vlr-pers (vlr-object-reactor f_vobj f_obj1 '((:vlr-modified . txt_edit))))<br /> )<br /> (defun txt_edit (f_txt f_line f_list)<br />   (vl-load-com)<br />   (vla-getboundingbox f_txt 'minpoint 'maxpoint)<br />   (setq len (distance (vlax-safearray->list minpoint)<br />             (vlax-safearray->list maxpoint))<br />             obj2 (vlr-data f_line)<br />             vobj2 (vlax-ename->vla-object (handent (car obj2)))<br />             star_pt (vlax-curve-getStartPoint vobj2)<br />            vangle (vla-get-Rotation f_txt)<br />            end_pt (polar star_pt vangle len)<br />           )<br />   (vla-put-EndPoint vobj2 (vlax-3d-point end_pt))<br /> )

userzhluserzhl

试了不行！有下面两个问题：
1、遇到文字是右边对齐的不行；
2、文字下面那根线不是直线，而是标注引线。
我把文件附上

snsj

引线标注本身就有自身的附着反应器功能，改变文字自动会延长，不需要借助LISP帮助

userzhluserzhl

CAD默认的附着反应器功能不好用，我们做室内的都是用单行文本再画引线的。

kmdz

你是在编程序还是想叫人帮你弄功能，不是编程序你把引线删了重新标一次就行了，整这个干啥子，不如重定义一个画引线的函数
1.框选文字和引线；
2.提取修改后的引线文字、引线的几个坐标；
3.删除原来的引线；
4.重新在原来位置标注引线。
这样还方便点。

userzhluserzhl

这样的功能我已经做出来了，只是不能够批量框选，批量框选能否实现？