[测试]：UCS下的标注

eachy

2. [php]
   
3. ;;本程序用来测试在UCS下生成块实体并插入当前图形
   
4. ;;可以在UCS或者进行了视图扭转的情况下使用的简单标注
   
5. ;;本程序用来测试在UCS下生成块实体并插入当前图形
   
6. (defun c:test (/ p thisdrawing blocks modelspace blkref blkdef txt)
   
7.   (setq        thisdrawing (vla-get-activedocument (vlax-get-acad-object))
   
8.         blocks            (vla-get-blocks thisdrawing)
   
9.         modelspace  (vla-get-modelspace thisdrawing)
   
10.   )
    
11.   (vla-startundomark thisdrawing)
    
12.   ;;标记UNDO
    
13.   (while (setq p (getpoint "\nPoint: "))
    
14.     ;;块一定要定义在原点
    
15.     ;;Normal 保证实体在WCS下
    
16.     (setq blkdef (vla-add blocks (vlax-3d-point '(0. 0. 0.)) "*U"))
    
17.     (vla-put-normal
    
18.       (vla-addline
    
19.         blkdef
    
20.         (vlax-3d-point '(0. 0. 0.))
    
21.         (vlax-3d-point '(10. 10. 0.))
    
22.       )
    
23.       (vlax-3d-point '(0. 0. 1.))
    
24.     )
    
25.     (vla-put-normal
    
26.       (vla-addline
    
27.         blkdef
    
28.         (vlax-3d-point '(10. 10. 0.))
    
29.         (vlax-3d-point '(40. 10. 0.))
    
30.       )
    
31.       (vlax-3d-point '(0. 0. 1.))
    
32.     )
    
33.     (vla-put-normal
    
34.       (setq txt        (vla-addtext
    
35.                   blkdef
    
36.                   (strcat "X" (rtos (cadr p) 2 3))
    
37.                   (vlax-3d-point '(10. 11. 0.))
    
38.                   3.
    
39.                 )
    
40.       )
    
41.       (vlax-3d-point '(0. 0. 1.))
    
42.     )
    
43.     ;;此处处理经过Put-Normal的实体
    
44.     (vla-put-insertionpoint
    
45.       txt
    
46.       (vlax-3d-point '(10. 11. 0.))
    
47.     )
    
48.     (vla-put-normal
    
49.       (setq txt        (vla-addtext
    
50.                   blkdef
    
51.                   (strcat "Y" (rtos (car p) 2 3))
    
52.                   (vlax-3d-point '(10. 6. 0.))
    
53.                   3.
    
54.                 )
    
55.       )
    
56.       (vlax-3d-point '(0. 0. 1.))
    
57.     )
    
58.     ;;此处处理经过Put-Normal的实体
    
59.     (vla-put-insertionpoint
    
60.       txt
    
61.       (vlax-3d-point '(10. 6. 0.))
    
62.     )
    
63.     ;;插入匿名块
    
64.     (setq blkref
    
65.            (vla-insertblock
    
66.              modelspace
    
67.              (vlax-3d-point
    
68.                (trans p 0 1)
    
69.              )
    
70.              (vla-get-name blkdef)
    
71.              1
    
72.              1
    
73.              1
    
74.              0
    
75.            )
    
76.     )
    
77.     ;;保证Normal
    
78.     (vla-put-normal
    
79.       blkref
    
80.       (vlax-3d-point '(0. 0. 1.))
    
81.     )
    
82.     ;;此处处理经过Put-Normal的实体
    
83.     (vla-put-insertionpoint
    
84.       blkref
    
85.       (vlax-3d-point
    
86.         (trans p 1 0)
    
87.       )
    
88.     )
    
89.     ;;如果视图使用Plan命令进行了扭转
    
90.     (if        (not (zerop (getvar "VIEWTWIST")))
    
91.       (vla-put-rotation blkref (- (getvar "VIEWTWIST")))
    
92.     )
    
93.   )
    
94.   (princ)
    
95. )[/php]

[php]<br /> ;;本程序用来测试在UCS下生成块实体并插入当前图形<br /> ;;可以在UCS或者进行了视图扭转的情况下使用的简单标注<br /> ;;本程序用来测试在UCS下生成块实体并插入当前图形<br /> (defun c:test (/ p thisdrawing blocks modelspace blkref blkdef txt)<br />   (setq        thisdrawing (vla-get-activedocument (vlax-get-acad-object))<br />         blocks            (vla-get-blocks thisdrawing)<br />         modelspace  (vla-get-modelspace thisdrawing)<br />   )<br />   (vla-startundomark thisdrawing)<br />   ;;标记UNDO <br />   (while (setq p (getpoint "\nPoint: "))<br />     ;;块一定要定义在原点<br />     ;;Normal 保证实体在WCS下<br />     (setq blkdef (vla-add blocks (vlax-3d-point '(0. 0. 0.)) "*U"))<br />     (vla-put-normal<br />       (vla-addline<br />         blkdef<br />         (vlax-3d-point '(0. 0. 0.))<br />         (vlax-3d-point '(10. 10. 0.))<br />       )<br />       (vlax-3d-point '(0. 0. 1.))<br />     )<br />     (vla-put-normal<br />       (vla-addline<br />         blkdef<br />         (vlax-3d-point '(10. 10. 0.))<br />         (vlax-3d-point '(40. 10. 0.))<br />       )<br />       (vlax-3d-point '(0. 0. 1.))<br />     )<br />     (vla-put-normal<br />       (setq txt        (vla-addtext<br />                   blkdef<br />                   (strcat "X" (rtos (cadr p) 2 3))<br />                   (vlax-3d-point '(10. 11. 0.))<br />                   3.<br />                 )<br />       )<br />       (vlax-3d-point '(0. 0. 1.))<br />     )<br />     ;;此处处理经过Put-Normal的实体<br />     (vla-put-insertionpoint<br />       txt<br />       (vlax-3d-point '(10. 11. 0.))<br />     )<br />     (vla-put-normal<br />       (setq txt        (vla-addtext<br />                   blkdef<br />                   (strcat "Y" (rtos (car p) 2 3))<br />                   (vlax-3d-point '(10. 6. 0.))<br />                   3.<br />                 )<br />       )<br />       (vlax-3d-point '(0. 0. 1.))<br />     )<br />     ;;此处处理经过Put-Normal的实体<br />     (vla-put-insertionpoint<br />       txt<br />       (vlax-3d-point '(10. 6. 0.))<br />     )<br />     ;;插入匿名块<br />     (setq blkref<br />            (vla-insertblock<br />              modelspace<br />              (vlax-3d-point<br />                (trans p 0 1)<br />              )<br />              (vla-get-name blkdef)<br />              1<br />              1<br />              1<br />              0<br />            )<br />     )<br />     ;;保证Normal<br />     (vla-put-normal<br />       blkref<br />       (vlax-3d-point '(0. 0. 1.))<br />     )<br />     ;;此处处理经过Put-Normal的实体<br />     (vla-put-insertionpoint<br />       blkref<br />       (vlax-3d-point<br />         (trans p 1 0)<br />       )<br />     )<br />     ;;如果视图使用Plan命令进行了扭转<br />     (if        (not (zerop (getvar "VIEWTWIST")))<br />       (vla-put-rotation blkref (- (getvar "VIEWTWIST")))<br />     )<br />   )<br />   (princ)<br /> )[/php]

aeo

做块时vla-put-normal
插入时再vla-put-normal
就相当于在wcs下做块，再在ucs下直接插入.

eachy

相关背景
http://www.xdcad.net/forum/showt ... d=749738#post749738

在这种UCS下要修改Normal文字等才正确显示。修改了Normal还要修改Insertionpoint文字就到指定的位置了。