能否实现同一DWG文件内的链接

王与韩1

RT,能不能实现在图纸内点击一文字，即得到同一图纸内相对应的图块或文字

榨菜人生

edata 发表于 2014-7-30 17:51

一个文字可以链接多个图形吗？谢谢！

edata

得到的是什么，文字内容，图块名称，还是。。。。不清楚意图。

etoxp

是不是说的视图跳转？

masterlong

“链接规则以及链接后处理”要清楚
比如
dwg内含有多张图纸以及目录
点击目录条目
视窗转换到对应图纸

要求清楚了
程序并不难
但是通用基本不可能

王与韩1

masterlong 发表于 2014-7-30 12:24
“链接规则以及链接后处理”要清楚
比如
dwg内含有多张图纸以及目录

就是这个意思，从目录文字跳往图纸，通用是什么意思，从文字跳往图块？

edata

通用则需要适合每个人的需要。
一般地，目录文字跳转图块还算是比较好处理的。可以手动链接两个对象的句柄值。使用程序的时候选择了连接的目录文字，自动寻找对应句柄，低版本计算外框值，缩放视图即可，高版本直接 zoom o 。。。

王与韩1

edata 发表于 2014-7-30 16:47
通用则需要适合每个人的需要。
一般地，目录文字跳转图块还算是比较好处理的。可以手动链接两个对象的句柄 ...

虽不明，但觉厉...大神可否写点程序

masterlong

其实就是通过某种方式获取一些"特征"
再根据"特征"搜寻符合特征的其它数据
再进行相应的处理
就好比文字查找替换这一类的程序
其实也是一样的思路

正因为可以有非常多的可能
所以通用是不可能的
只能具体要求具体解决

edata

1. ;;图形内链接跳转
   
2. ;;code by edata @ mjtd.com 2014-7-30
   
3. ;;首次执行将选择提示选择对象并关联对象
   
4. ;;再次选择关联的对象将相互跳转
   
5. ;;关联跳转
   
6. (defun c:tt(/ ss en en2 en2_h5 en_h5 sk_link)
   
7.   (prompt "\n请选择关联对象:")
   
8.   (if(setq ss(ssget ":E:S" ));'((0 . "*text"))))
   
9.     (progn
   
10.       (setq en(ssname ss 0))
    
11.       (setq en_h5(sk_dxf en 5))
    
12.       (if(and (setq sk_link(vlax-ldata-get (vlax-ename->vla-object en) "sk_hplink")) (entget (handent sk_link)))
    
13.   (progn
    
14.     (prompt "\n执行跳转.")
    
15.     (setvar 'cmdecho 0)
    
16.     (command "zoom" "o" (ssadd(handent sk_link)) "")
    
17.     (setvar 'cmdecho 1)
    
18.     )
    
19.   (progn
    
20.     (if(setq en2(car(entsel "\n该对象无链接,请选择链接对象:")))
    
21.       (progn
    
22.         (setq en2_h5(sk_dxf en2 5))
    
23.         (vlax-ldata-put (vlax-ename->vla-object en) "sk_hplink" en2_h5)
    
24.         (vlax-ldata-put (vlax-ename->vla-object en2) "sk_hplink" en_h5)
    
25.         (prompt "\n链接完成.")
    
26.         )
    
27.       )
    
28.     )  
    
29.   )
    
30.       )
    
31.     )
    
32.   (princ)
    
33.   )
    
34. ;;关联删除
    
35. (defun c:tt2(/ ss en sk_link en2)
    
36.   (prompt "\n请选择需要删除关联的对象:")
    
37.   (if(setq ss(ssget));'((0 . "*text"))))
    
38.     (while(setq en(ssname ss 0))            
    
39.       (if(setq sk_link(vlax-ldata-get (vlax-ename->vla-object en) "sk_hplink"))
    
40.   (progn
    
41.     (prompt "\r删除........")
    
42.     (setq en2 (handent sk_link))   
    
43.     (vlax-ldata-delete (vlax-ename->vla-object en) "sk_hplink")
    
44.     (and (entget en2) (vlax-ldata-delete (vlax-ename->vla-object en2) "sk_hplink"))
    
45.     (prompt "\r删除完成....")
    
46.     )
    
47.   (prompt "\r没有发现链接.")
    
48.   )
    
49.       (setq ss (ssdel en ss))
    
50.       )
    
51.     )
    
52.   (princ)
    
53.   )
    
54. ;;dxf组码获取函数
    
55. (defun sk_dxf(ent code)(cdr(assoc code (entget ent))))
    

;;图形内链接跳转<br /> ;;code by edata @ mjtd.com 2014-7-30<br /> ;;首次执行将选择提示选择对象并关联对象<br /> ;;再次选择关联的对象将相互跳转<br /> ;;关联跳转<br /> (defun c:tt(/ ss en en2 en2_h5 en_h5 sk_link)<br />   (prompt "\n请选择关联对象:")<br />   (if(setq ss(ssget ":E:S" ));'((0 . "*text"))))<br />     (progn<br />       (setq en(ssname ss 0))<br />       (setq en_h5(sk_dxf en 5))<br />       (if(and (setq sk_link(vlax-ldata-get (vlax-ename->vla-object en) "sk_hplink")) (entget (handent sk_link)))<br />   (progn<br />     (prompt "\n执行跳转.")<br />     (setvar 'cmdecho 0)<br />     (command "zoom" "o" (ssadd(handent sk_link)) "")<br />     (setvar 'cmdecho 1)<br />     )<br />   (progn<br />     (if(setq en2(car(entsel "\n该对象无链接,请选择链接对象:")))<br />       (progn<br />         (setq en2_h5(sk_dxf en2 5))<br />         (vlax-ldata-put (vlax-ename->vla-object en) "sk_hplink" en2_h5)<br />         (vlax-ldata-put (vlax-ename->vla-object en2) "sk_hplink" en_h5)<br />         (prompt "\n链接完成.")<br />         )<br />       )<br />     )  <br />   )<br />       )<br />     )<br />   (princ)<br />   )<br /> ;;关联删除<br /> (defun c:tt2(/ ss en sk_link en2)<br />   (prompt "\n请选择需要删除关联的对象:")<br />   (if(setq ss(ssget));'((0 . "*text"))))<br />     (while(setq en(ssname ss 0))            <br />       (if(setq sk_link(vlax-ldata-get (vlax-ename->vla-object en) "sk_hplink"))<br />   (progn<br />     (prompt "\r删除........")<br />     (setq en2 (handent sk_link))    <br />     (vlax-ldata-delete (vlax-ename->vla-object en) "sk_hplink")<br />     (and (entget en2) (vlax-ldata-delete (vlax-ename->vla-object en2) "sk_hplink"))<br />     (prompt "\r删除完成....")<br />     )<br />   (prompt "\r没有发现链接.")<br />   )<br />       (setq ss (ssdel en ss))<br />       )<br />     )<br />   (princ)<br />   )<br /> ;;dxf组码获取函数<br /> (defun sk_dxf(ent code)(cdr(assoc code (entget ent))))<br />

王与韩1

edata 发表于 2014-7-30 17:51

谢谢哈，真大神也，这样看图就方便了许多