求将门窗标注移到门窗图中心点的lsp源码

品茗新秀

求将门窗标注移到门窗图中心点的的程序
有时为了方便查图，将门窗标注移至门窗图中点，图面更简洁，查图完毕后，再用撤消返回原图(如能再将门窗标注再返回原图位置更佳)。

原图



达到效果

yjr111

品茗新秀 发表于 2012-8-28 23:17
隐藏编号不是我的意思，因为在其它操作过程中，还要查看门窗

还有上次测试图图层是锁的，这次开了

天正自定义实体没有详细的帮助文件（自带帮助lsp接口没什么用），要操作实在无从下手。。。
编号虽然隐藏了，但entmake了一个与编号一样的文本，我这里测试时可以的,cad2008+xp+天正8.2plus

xyp1964

又一个密探？！

yjr111

关于天正门窗的问题，我还是第一次去碰，差点把电脑烧了，搜了一下，发现高飞已经说得很明白了http://bbs.mjtd.com/thread-87567-2-1.html。。。。。不用ENTMOD修改组码，用ActiveX方法似乎没问题，可惜天正提供的方法接口少得可怜，根本不能满足（而且似乎不能用检验功能，一用就崩溃）。。。。。。说实话，我对天正的组码结构完全不熟悉，对于楼主的要求，只能采用变通的方法，隐藏编号，然后entmake编号，仅此而已，仅供参考！

2. (DEFUN C:BHJZ(/ SS E N S s1)
   
3.   (command "undo" "be")
   
4.   (IF(SETQ SS(SSGET '((0 . "TCH_OPENING"))))
   
5.     (REPEAT (SETQ N(SSLENGTH SS))
   
6.       (SETQ S(ENTGET(SETQ E(SSNAME SS(SETQ N(1- N)))))
   
7.             s1(entget(CDR(ASSOC 330 (REVERSE S))))
   
8.             )
   
9.       (vlax-put-property (vlax-ename->vla-object e) 'hidelabel "是");;;隐藏编号
   
10.       (entmake (list '(0 . "TEXT");;;生成编号文字
    
11.                      (cons 1 (CDR(ASSOC 302 S)))
    
12.                      (cons 7 (CDR(ASSOC 7  S)))
    
13.                      (cons 8 (CDR(ASSOC 410 (REVERSE S))))
    
14.                      (cons 10 (CDR(ASSOC 10 S)))
    
15.                      (cons 11 (CDR(ASSOC 10 S)))
    
16.                      (cons 40 450)
    
17.                      (cons 41 0.5)
    
18.                      (cons 50 (rem(angle (CDR(ASSOC 10 s1))
    
19.                                      (CDR(ASSOC 11 s1))
    
20.                                      )
    
21.                                   3.14159
    
22.                                   )
    
23.                            )
    
24.                      (cons 62 256)
    
25.                      (cons 72 4)
    
26.                      )
    
27.                )
    
28.     )
    
29.   )
    
30. (command "undo" "e")
    
31. (PRINC)
    
32. )

(DEFUN C:BHJZ(/ SS E N S s1)<br />   (command "undo" "be")<br />   (IF(SETQ SS(SSGET '((0 . "TCH_OPENING"))))<br />     (REPEAT (SETQ N(SSLENGTH SS))<br />       (SETQ S(ENTGET(SETQ E(SSNAME SS(SETQ N(1- N)))))<br />             s1(entget(CDR(ASSOC 330 (REVERSE S))))<br />             )<br />       (vlax-put-property (vlax-ename->vla-object e) 'hidelabel "是");;;隐藏编号<br />       (entmake (list '(0 . "TEXT");;;生成编号文字<br />                      (cons 1 (CDR(ASSOC 302 S)))<br />                      (cons 7 (CDR(ASSOC 7  S)))<br />                      (cons 8 (CDR(ASSOC 410 (REVERSE S))))<br />                      (cons 10 (CDR(ASSOC 10 S)))<br />                      (cons 11 (CDR(ASSOC 10 S)))<br />                      (cons 40 450)<br />                      (cons 41 0.5)<br />                      (cons 50 (rem(angle (CDR(ASSOC 10 s1))<br />                                      (CDR(ASSOC 11 s1))<br />                                      )<br />                                   3.14159<br />                                   )<br />                            )<br />                      (cons 62 256)<br />                      (cons 72 4)<br />                      )<br />                )<br />     )<br />   )<br /> (command "undo" "e")<br /> (PRINC)<br /> )

随梦而飞

在CAD2006测试，出现

lidaxiu

这个我也没有具体的思路， 想想应该和两个批量的物体对齐(G版曾编过一个)意思差不多

xiaodao520

真有钱啊，500个币，不过也就50快人民币而已。

xyp1964

局部测试通过：

品茗新秀

隐藏编号不是我的意思，因为在其它操作过程中，还要查看门窗

还有上次测试图图层是锁的，这次开了

品茗新秀

yjr111 发表于 2012-8-28 23:30
天正自定义实体没有详细的帮助文件（自带帮助lsp接口没什么用），要操作实在无从下手。。。
编号虽然隐藏 ...

楼主十分给力，强大，只是还要优化一下，框选整个测试图反应太慢了