[教学]：API应用示例二。

eachy

                               
登录/注册后可看大图

2. 
   
3. ;|
   
4. xdrx_dragssmove、xdrx_dragssrotate示例|;
   
5. (defun c:pot (/ zz tf p0 s s1 p an hi)
   
6.   ;;标注到指定图层
   
7.   (xdrx_begin "dlsx" "6")
   
8.   (xdrx_ucson)
   
9.   ;;tf控制循环
   
10.   (setq tf T)
    
11.   (initget 128)
    
12.   ;;取当前字体
    
13.   (setq zz (getvar "textstyle"))
    
14.   ;;判断是否有"ro"字体，有则设置，没有则新建
    
15.   (if (null (tblsearch "style" "RO"));;搜寻style字典定义
    
16.     (command "style" "RO" "romans" "" "0.75" "" "" "" "")
    
17.     (setvar "textstyle" "ro")
    
18.   )
    
19.   (while tf
    
20.     ;;构造选择集 s 为实心三角，s1 为数字
    
21.     (setq s  (ssadd)
    
22.           s1 (ssadd)
    
23.     )
    
24.     ;;dimzin控制数字位数
    
25.     (setvar "dimzin" 0)
    
26.     (setq p0 (getpoint "\n标注点<回车退出>: "))
    
27.     (if        (= (type p0) 'LIST)
    
28.       (progn
    
29.         ;;＃hight为全局变量，即标高值
    
30.         (setq hi (getreal (strcat "\n标  高:<"
    
31.                                   (if (boundp '#hight)
    
32.                                     (rtos #hight 2 2)
    
33.                                     (setq #hight 0.00)
    
34.                                   )
    
35.                                   ">: "
    
36.                           )
    
37.                  )
    
38.         )
    
39.         ;;更新#hight
    
40.         (if (OR (= HI NIL) (= hi ""))
    
41.           (setq hi #hight)
    
42.           (setq #hight hi)
    
43.         )
    
44.         ;;绘制三角并构造选择集s
    
45.         (command ".pline"
    
46.                  p0
    
47.                  "w"
    
48.                  "0"
    
49.                  (* 3.5 BL)
    
50.                  (polar p0 (* 0.5 pi) (* 2.5 bl))
    
51.                  ""
    
52.         )
    
53.         (setq s (ssadd (entlast) s))
    
54.         ;;写标高并构造选择集s1
    
55.         (command ".text"
    
56.                  (polar p0 (* 0.5 pi) (* 4 bl))
    
57.                  (* 2.5 bl)
    
58.                  0
    
59.                  (rtos hi 2 2)
    
60.         )
    
61.         (setq s1 (ssadd (entlast) s1))
    
62.         ;;xdrx_dragssrotate、xdrx_dragssmove示例
    
63.         (if
    
64.           (setq
    
65.             an (xdrx_dragssrotate
    
66.                  "\n如需旋转角度, 请点取要旋转的角度 <不调整>: "
    
67.                  s
    
68.                  p0
    
69.                )
    
70.           )
    
71.            (command ".rotate" s "" p0 an)
    
72.         )
    
73.         (if
    
74.           (setq
    
75.             p (xdrx_dragssmove
    
76.                 "\n如需调整位置, 请点取要移到的位置 <不调整>: "
    
77.                 s1
    
78.                 (polar p0 (* 0.5 pi) 4)        ;(* 4 bl))
    
79.               )
    
80.           )
    
81.            (command ".move"
    
82.                     s1
    
83.                     ""
    
84.                     (polar p0 (* 0.5 pi) 3 ;|(* 3 bl)|;)
    
85.                     p
    
86.            )
    
87.         )
    
88.         (setq s         nil
    
89.               s1 nil
    
90.         )
    
91.       )
    
92.       (setq tf nil)
    
93.     )
    
94.   )
    
95.   ;;恢复字体
    
96.   (setvar "textstyle" zz)
    
97.   (xdrx_ucsoff)
    
98.   (xdrx_end)
    
99.   (princ)
    
100. )
     

<br /> ;|<br /> xdrx_dragssmove、xdrx_dragssrotate示例|;<br /> (defun c:pot (/ zz tf p0 s s1 p an hi)<br />   ;;标注到指定图层<br />   (xdrx_begin "dlsx" "6")<br />   (xdrx_ucson)<br />   ;;tf控制循环<br />   (setq tf T)<br />   (initget 128)<br />   ;;取当前字体<br />   (setq zz (getvar "textstyle"))<br />   ;;判断是否有"ro"字体，有则设置，没有则新建<br />   (if (null (tblsearch "style" "RO"));;搜寻style字典定义<br />     (command "style" "RO" "romans" "" "0.75" "" "" "" "")<br />     (setvar "textstyle" "ro")<br />   )<br />   (while tf<br />     ;;构造选择集 s 为实心三角，s1 为数字<br />     (setq s  (ssadd)<br />           s1 (ssadd)<br />     )<br />     ;;dimzin控制数字位数<br />     (setvar "dimzin" 0)<br />     (setq p0 (getpoint "\n标注点<回车退出>: "))<br />     (if        (= (type p0) 'LIST)<br />       (progn<br />         ;;＃hight为全局变量，即标高值<br />         (setq hi (getreal (strcat "\n标  高:<"<br />                                   (if (boundp '#hight)<br />                                     (rtos #hight 2 2)<br />                                     (setq #hight 0.00)<br />                                   )<br />                                   ">: "<br />                           )<br />                  )<br />         )<br />         ;;更新#hight<br />         (if (OR (= HI NIL) (= hi ""))<br />           (setq hi #hight)<br />           (setq #hight hi)<br />         )<br />         ;;绘制三角并构造选择集s<br />         (command ".pline"<br />                  p0<br />                  "w"<br />                  "0"<br />                  (* 3.5 BL)<br />                  (polar p0 (* 0.5 pi) (* 2.5 bl))<br />                  ""<br />         )<br />         (setq s (ssadd (entlast) s))<br />         ;;写标高并构造选择集s1<br />         (command ".text"<br />                  (polar p0 (* 0.5 pi) (* 4 bl))<br />                  (* 2.5 bl)<br />                  0<br />                  (rtos hi 2 2)<br />         )<br />         (setq s1 (ssadd (entlast) s1))<br />         ;;xdrx_dragssrotate、xdrx_dragssmove示例<br />         (if<br />           (setq<br />             an (xdrx_dragssrotate<br />                  "\n如需旋转角度, 请点取要旋转的角度 <不调整>: "<br />                  s<br />                  p0<br />                )<br />           )<br />            (command ".rotate" s "" p0 an)<br />         )<br />         (if<br />           (setq<br />             p (xdrx_dragssmove<br />                 "\n如需调整位置, 请点取要移到的位置 <不调整>: "<br />                 s1<br />                 (polar p0 (* 0.5 pi) 4)        ;(* 4 bl))<br />               )<br />           )<br />            (command ".move"<br />                     s1<br />                     ""<br />                     (polar p0 (* 0.5 pi) 3 ;|(* 3 bl)|;)<br />                     p<br />            )<br />         )<br />         (setq s         nil<br />               s1 nil<br />         )<br />       )<br />       (setq tf nil)<br />     )<br />   )<br />   ;;恢复字体<br />   (setvar "textstyle" zz)<br />   (xdrx_ucsoff)<br />   (xdrx_end)<br />   (princ)<br /> )<br />