(XD::Block:MakeAngleScale)制作角度刻度盘块XDOB_ANGLESCALE

XDSoft

1. ;|
   
2. 制作角度刻度盘块XDOB_ANGLESCALE
   
3. |;
   
4. (defun XD::Block:MakeAngleScale (pj / arc-data c-data crosshair ent entmark l-data mat n ss ss1 v)
   
5.   (if (not (xdrx_object_get "block" "XDOB_ANGLESCALE"))
   
6.     (progn
   
7.       (setq l-data '(((0.434667 0.116469 0.0) (0.482963 0.12941 0.0))
   
8.              ((0.346804 0.200227 0.0) (0.433013 0.25 0.0))
   
9.              ((0.200227 0.346804 0.0) (0.25 0.433013 0.0))
   
10.              ((0.0 0.400455 0.0) (0.0 0.5 0.0))
    
11.              ((-0.200227 0.346804 0.0) (-0.25 0.433013 0.0))
    
12.              ((-0.346804 0.200227 0.0) (-0.433013 0.25 0.0))
    
13.              ((-0.400455 0.0 0.0) (-0.5 0.0 0.0))
    
14.              ((-0.346804 -0.200227 0.0) (-0.433013 -0.25 0.0))
    
15.              ((-0.200227 -0.346804 0.0) (-0.25 -0.433013 0.0))
    
16.              ((0.0 -0.400455 0.0) (0.0 -0.5 0.0))
    
17.              ((0.200227 -0.346804 0.0) (0.25 -0.433013 0.0))
    
18.              ((0.346804 -0.200227 0.0) (0.433013 -0.25 0.0))
    
19.              ((-0.342783 0.11 0.0) (0.342783 0.11 0.0))
    
20.              ((-0.342783 -0.11 0.0) (0.342783 -0.11 0.0))
    
21.              ((0.400455 0.0 0.0) (0.5 0.0 0.0))
    
22.              ((0.318198 0.318198 0.0) (0.353553 0.353553 0.0))
    
23.              ((0.116469 0.434667 0.0) (0.12941 0.482963 0.0))
    
24.              ((-0.116469 0.434667 0.0) (-0.12941 0.482963 0.0))
    
25.              ((-0.318198 0.318198 0.0) (-0.353553 0.353553 0.0))
    
26.              ((-0.434667 0.116469 0.0) (-0.482963 0.12941 0.0))
    
27.              ((-0.434667 -0.116469 0.0) (-0.482963 -0.12941 0.0))
    
28.              ((-0.318198 -0.318198 0.0) (-0.353553 -0.353553 0.0))
    
29.              ((-0.116469 -0.434667 0.0) (-0.12941 -0.482963 0.0))
    
30.              ((0.116469 -0.434667 0.0) (0.12941 -0.482963 0.0))
    
31.              ((0.318198 -0.318198 0.0) (0.353553 -0.353553 0.0))
    
32.              ((0.434667 -0.116469 0.0) (0.482963 -0.12941 0.0))
    
33.             )
    
34.             crosshair '(((0.0 -0.03 0.0) (0.0 0.03 0.0)) ((-0.03 0.0 0.0)
    
35.               (0.03 0.0 0.0)
    
36.              )
    
37.             )
    
38.             c-data '(((0.0 0.0 0.0) 0.11) ((0.0 0.0 0.0) 0.5))
    
39.             arc-data '(((0.0 0.0 0.0) 0.25
    
40.               0.523599 2.61799
    
41.              )
    
42.              ((0.0 0.0 0.0) 0.25
    
43.               3.66519 5.75959
    
44.              )
    
45.             )
    
46.       )
    
47.       (xdrx_setmark (setq entmark (entlast)))
    
48.       (foreach n l-data
    
49.         (apply
    
50.           'xdrx_line_make
    
51.           n
    
52.         )
    
53.       )
    
54.       (foreach n c-data
    
55.         (apply
    
56.           'xdrx_circle_make
    
57.           n
    
58.         )
    
59.       )
    
60.       (foreach n arc-data
    
61.         (apply
    
62.           'xdrx_arc_make
    
63.           n
    
64.         )
    
65.       )
    
66.       (setq ss (xdrx_getss 9))
    
67.       (xdrx_entity_setcolor ss 0)
    
68.       (XD::Pnt:MakeCrossHair '(0 0 0) 0.06 0 "AngleScale")
    
69.       (xdrx_entity_setcolor (entlast) 1)
    
70.       (xdrx_setmark entmark)
    
71.       (setq ent (xdrx_block_make "XDOB_ANGLESCALE" (xdrx_getss) '(0 0 0) t))
    
72.       (setq v (mapcar
    
73.                 '-
    
74.                 pj
    
75.                 '(0 0 0)
    
76.               )
    
77.             mat (xdrx_matrix_settranslation (xdrx_matrix_identity 3) v)
    
78.       )
    
79.       (xdrx_entity_transform (entlast) mat)
    
80.       (entlast)
    
81.     )
    
82.     (progn
    
83.       (if (setq ss1 (ssget "x" '((2 . "XDOB_ANGLESCALE"))))
    
84.         (xdrx_entity_delete ss1)
    
85.       )
    
86.       (setq ent (xdrx_insert_make "XDOB_ANGLESCALE" pj 1.0 0.0))
    
87. 
    
88.     )
    
89.   )
    
90.   (xdrx_entity_setcolor (entlast) '(0 191 255))
    
91.   (entlast)
    
92. )

;|<br /> 制作角度刻度盘块XDOB_ANGLESCALE<br /> |;<br /> (defun XD::Block:MakeAngleScale (pj / arc-data c-data crosshair ent entmark l-data mat n ss ss1 v)<br />   (if (not (xdrx_object_get "block" "XDOB_ANGLESCALE"))<br />     (progn<br />       (setq l-data '(((0.434667 0.116469 0.0) (0.482963 0.12941 0.0))<br />              ((0.346804 0.200227 0.0) (0.433013 0.25 0.0))<br />              ((0.200227 0.346804 0.0) (0.25 0.433013 0.0))<br />              ((0.0 0.400455 0.0) (0.0 0.5 0.0))<br />              ((-0.200227 0.346804 0.0) (-0.25 0.433013 0.0))<br />              ((-0.346804 0.200227 0.0) (-0.433013 0.25 0.0))<br />              ((-0.400455 0.0 0.0) (-0.5 0.0 0.0))<br />              ((-0.346804 -0.200227 0.0) (-0.433013 -0.25 0.0))<br />              ((-0.200227 -0.346804 0.0) (-0.25 -0.433013 0.0))<br />              ((0.0 -0.400455 0.0) (0.0 -0.5 0.0))<br />              ((0.200227 -0.346804 0.0) (0.25 -0.433013 0.0))<br />              ((0.346804 -0.200227 0.0) (0.433013 -0.25 0.0))<br />              ((-0.342783 0.11 0.0) (0.342783 0.11 0.0))<br />              ((-0.342783 -0.11 0.0) (0.342783 -0.11 0.0))<br />              ((0.400455 0.0 0.0) (0.5 0.0 0.0))<br />              ((0.318198 0.318198 0.0) (0.353553 0.353553 0.0))<br />              ((0.116469 0.434667 0.0) (0.12941 0.482963 0.0))<br />              ((-0.116469 0.434667 0.0) (-0.12941 0.482963 0.0))<br />              ((-0.318198 0.318198 0.0) (-0.353553 0.353553 0.0))<br />              ((-0.434667 0.116469 0.0) (-0.482963 0.12941 0.0))<br />              ((-0.434667 -0.116469 0.0) (-0.482963 -0.12941 0.0))<br />              ((-0.318198 -0.318198 0.0) (-0.353553 -0.353553 0.0))<br />              ((-0.116469 -0.434667 0.0) (-0.12941 -0.482963 0.0))<br />              ((0.116469 -0.434667 0.0) (0.12941 -0.482963 0.0))<br />              ((0.318198 -0.318198 0.0) (0.353553 -0.353553 0.0))<br />              ((0.434667 -0.116469 0.0) (0.482963 -0.12941 0.0))<br />             )<br />             crosshair '(((0.0 -0.03 0.0) (0.0 0.03 0.0)) ((-0.03 0.0 0.0)<br />               (0.03 0.0 0.0)<br />              )<br />             )<br />             c-data '(((0.0 0.0 0.0) 0.11) ((0.0 0.0 0.0) 0.5))<br />             arc-data '(((0.0 0.0 0.0) 0.25<br />               0.523599 2.61799<br />              )<br />              ((0.0 0.0 0.0) 0.25<br />               3.66519 5.75959<br />              )<br />             )<br />       )<br />       (xdrx_setmark (setq entmark (entlast)))<br />       (foreach n l-data<br />         (apply<br />           'xdrx_line_make<br />           n<br />         )<br />       )<br />       (foreach n c-data<br />         (apply<br />           'xdrx_circle_make<br />           n<br />         )<br />       )<br />       (foreach n arc-data<br />         (apply<br />           'xdrx_arc_make<br />           n<br />         )<br />       )<br />       (setq ss (xdrx_getss 9))<br />       (xdrx_entity_setcolor ss 0)<br />       (XD::Pnt:MakeCrossHair '(0 0 0) 0.06 0 "AngleScale")<br />       (xdrx_entity_setcolor (entlast) 1)<br />       (xdrx_setmark entmark)<br />       (setq ent (xdrx_block_make "XDOB_ANGLESCALE" (xdrx_getss) '(0 0 0) t))<br />       (setq v (mapcar<br />                 '-<br />                 pj<br />                 '(0 0 0)<br />               )<br />             mat (xdrx_matrix_settranslation (xdrx_matrix_identity 3) v)<br />       )<br />       (xdrx_entity_transform (entlast) mat)<br />       (entlast)<br />     )<br />     (progn<br />       (if (setq ss1 (ssget "x" '((2 . "XDOB_ANGLESCALE"))))<br />         (xdrx_entity_delete ss1)<br />       )<br />       (setq ent (xdrx_insert_make "XDOB_ANGLESCALE" pj 1.0 0.0))<br /> <br />     )<br />   )<br />   (xdrx_entity_setcolor (entlast) '(0 191 255))<br />   (entlast)<br /> )