如何将属性图签的图名图号显示在图框上面？？？

依然小小鸟

图框的图签是属性块，希望有大神能够帮忙编一个程序 能够将图名和图号显示在图框上面 如果一个dwg里面有很多图 这样可以方便施工单位能在茫茫图纸中及时找到所需要的图纸  小弟谢谢大家了  我不会编程 我有两个思路：1：提取属性块属性 2：通过最大包围盒坐标来定位图名和图号的显示位置  

ludaweb

依然小小鸟 发表于 2018-12-30 13:02
这个字进入图框里面了 如果打印图纸 会不方便 能让字在图框外面吗？

1. (defun c:tt ( / ss sss i ent box linedis boxcenter pt DrawingName DrawingNum ShortNum)
   
2.     (if (setq ss (ssget (list '(0 . "INSERT") '(66 . 1) '(2 . "A*_LZTK_*"))))
   
3.         (repeat (setq i (sslength ss))
   
4.             (setq ent (ssname ss (setq i (1- i)))
   
5.                 box (GetBoundingBox ent)
   
6.                 linedis (distance (car box) (cadr box))
   
7.                 boxcenter (polar (car box) (angle (car box) (cadr box)) (* 0.5 linedis))
   
8.                 pt (polar boxcenter (* 0.5 PI) (* 0.65 (abs (- (cadar box) (cadadr box)))));文字距离图框距离
   
9.             )
   
10.             (if (setq sss (ssget "_w" (car box) (cadr box) (list '(0 . "INSERT") '(66 . 1) '(2 . "12号线-标准图签_LZ_1_1"))))
    
11.                 (setq ent (ssname sss 0)
    
12.                     DrawingName (GetAttributeValue (vlax-ename->vla-object ent) "图名")
    
13.                     DrawingNum (GetAttributeValue (vlax-ename->vla-object ent) "图号")
    
14.                     ShortNum (substr DrawingNum (- (strlen DrawingNum) 2))
    
15.                 )
    
16.             )
    
17.             (entmake (list '(0 . "TEXT")
    
18.                 (cons 1 (strcat ShortNum " " DrawingName))
    
19.                 (cons 10 pt)
    
20.                 (cons 7 "STANDARD");文字样式
    
21.                 (cons 40 (* 0.1 linedis));文字高度
    
22.                 (cons 41 0.7)
    
23.                 (cons 72 1)
    
24.                 (cons 73 2)
    
25.                 (cons 11 pt))
    
26.             )
    
27.         )
    
28.     )
    
29.     (princ)
    
30. )
    
31. ;;获取图块的属性值
    
32. (defun GetAttributeValue ( blk tag )
    
33.     (setq tag (strcase tag))
    
34.     (vl-some '(lambda ( att ) (if (= tag (strcase (vla-get-tagstring att))) (vla-get-textstring att)))
    
35.         (vlax-invoke blk 'getattributes)
    
36.     )
    
37. )
    
38. ;;物体包围盒
    
39. (defun GetBoundingBox (ent / ll ur)
    
40.     (vla-getboundingbox (vlax-ename->vla-object ent) 'll 'ur)
    
41.     (mapcar 'vlax-safearray->list (list ll ur))
    
42. )
    
43. (vl-load-com)
    
44. (princ "\n命令: tt")
    
45. (princ)

(defun c:tt ( / ss sss i ent box linedis boxcenter pt DrawingName DrawingNum ShortNum)<br />     (if (setq ss (ssget (list '(0 . "INSERT") '(66 . 1) '(2 . "A*_LZTK_*"))))<br />         (repeat (setq i (sslength ss))<br />             (setq ent (ssname ss (setq i (1- i)))<br />                 box (GetBoundingBox ent)<br />                 linedis (distance (car box) (cadr box))<br />                 boxcenter (polar (car box) (angle (car box) (cadr box)) (* 0.5 linedis))<br />                 pt (polar boxcenter (* 0.5 PI) (* 0.65 (abs (- (cadar box) (cadadr box)))));文字距离图框距离<br />             )<br />             (if (setq sss (ssget "_w" (car box) (cadr box) (list '(0 . "INSERT") '(66 . 1) '(2 . "12号线-标准图签_LZ_1_1"))))<br />                 (setq ent (ssname sss 0)<br />                     DrawingName (GetAttributeValue (vlax-ename->vla-object ent) "图名")<br />                     DrawingNum (GetAttributeValue (vlax-ename->vla-object ent) "图号")<br />                     ShortNum (substr DrawingNum (- (strlen DrawingNum) 2))<br />                 )<br />             )<br />             (entmake (list '(0 . "TEXT")<br />                 (cons 1 (strcat ShortNum " " DrawingName))<br />                 (cons 10 pt)<br />                 (cons 7 "STANDARD");文字样式<br />                 (cons 40 (* 0.1 linedis));文字高度<br />                 (cons 41 0.7)<br />                 (cons 72 1)<br />                 (cons 73 2)<br />                 (cons 11 pt))<br />             )<br />         )<br />     )<br />     (princ)<br /> )<br /> ;;获取图块的属性值<br /> (defun GetAttributeValue ( blk tag )<br />     (setq tag (strcase tag))<br />     (vl-some '(lambda ( att ) (if (= tag (strcase (vla-get-tagstring att))) (vla-get-textstring att)))<br />         (vlax-invoke blk 'getattributes)<br />     )<br /> )<br /> ;;物体包围盒<br /> (defun GetBoundingBox (ent / ll ur)<br />     (vla-getboundingbox (vlax-ename->vla-object ent) 'll 'ur)<br />     (mapcar 'vlax-safearray->list (list ll ur))<br /> )<br /> (vl-load-com)<br /> (princ "\n命令: tt")<br /> (princ)

xinxirong

查找替换就可以定位属性

依然小小鸟

xinxirong 发表于 2018-12-17 18:57
查找替换就可以定位属性

查找替换毕竟不太方便  我一个dwg有上百张图 而且相近图名

zhuquanmao

选中所有图框图块
遍历每个图框
取得每个图框的边界点
在图框内搜标题栏
取得标题栏的属性
得到图号和图名
用文字写出图号和图名到每个图框的正上方
类似下边这样：

xudi1234

值得期待！

依然小小鸟

xudi1234 发表于 2018-12-17 21:41
值得期待！

是啊 我还有很多想法 专门用来提高工作效率  希望大家多参与 我收集的好插件 也会分享的

依然小小鸟

mikewolf2k

规范的做法是一个文件一张图，这样有哪些图一目了然。都放在一起，图全不全都不知道，文控会相当混乱。

依然小小鸟

mikewolf2k 发表于 2018-12-18 14:54
规范的做法是一个文件一张图，这样有哪些图一目了然。都放在一起，图全不全都不知道，文控会相当混乱。

  希望抓住题干 不要引开话题  解决当下的难题