(XD::Pnt:MakeCrossHair)绘制十字交叉线（块）

newer

1. ;|
   
2. 绘制十字交叉线（块），
   
3. 参数：
   
4.    pnt ---  插入点 (WCS)
   
5.    len ---  线长
   
6.    ang ---  角度（弧度）
   
7.    blknastr-块名后缀（前缀固定为XDOB_CROSSHAIR_),如果给 "" , 后缀随机三位字符
   
8. 
   
9.    如果有同名块存在，替换掉
   
10. 
    
11. 返回值：INSERT实体名
    
12. |;
    
13. (defun XD::Pnt:MakeCrossHair (pnt len ang blknastr / blkname direc mat norm ss v1 v1- v2 v2- x yAxis)
    
14.   (setq norm (XD::UCS:zDir)
    
15.         direc (xdrx_vector_rotate '(1 0 0) (float ang) norm)
    
16.         direc (xdrx_vector_normalize direc)
    
17.         yAxis (xdrx_vector_perpVector direc)
    
18.         v1 (xdrx_vector_product direc (/ 1 2.0))
    
19.         v1- (xdrx_vector_negate v1)
    
20.         v2 (xdrx_vector_product yAxis (/ 1 2.0))
    
21.         v2- (xdrx_vector_negate v2)
    
22.   )
    
23.   (xdrx_setmark)
    
24.   (mapcar
    
25.     '(lambda (x)
    
26.        (xdrx_line_make (mapcar
    
27.                          '+
    
28.                          pnt
    
29.                          (car x)
    
30.                        ) (mapcar
    
31.                            '+
    
32.                            pnt
    
33.                            (cadr x)
    
34.                          )
    
35.        )
    
36.        (xdrx_setpropertyvalue (entlast) "color" 0)
    
37.      )
    
38.     (list (list v1 v1-) (list v2 v2-))
    
39.   )
    
40.   (if (= "" blknastr)
    
41.     (setq blknastr (xdrx_getrandstr))
    
42.   )
    
43.   (setq ss (xdrx_getss)
    
44.         blkname (strcat "XDOB_CROSSHAIR_" blknastr)
    
45.   )
    
46.   (setq mat (xdrx_matrix_setTranslation (xdrx_matrix_identity 3) (mapcar
    
47.                                                                    '-
    
48.                                                                    '(0 0 0)
    
49.                                                                    pnt
    
50.                                                                  )
    
51.             )
    
52.   )
    
53.   (xdrx_entity_transform ss mat)
    
54.   (setq blkname (xdrx_block_make blkname ss '(0 0 0) t))
    
55.   (xdrx_entity_transform (entlast) (xdrx_matrix_inverse mat))
    
56.   (xdrx_setpropertyvalue (entlast) "ScaleFactors" (list len len len))
    
57.   (entlast)
    
58. )
    
59. 
    
60. 
    

;|<br /> 绘制十字交叉线（块），<br /> 参数：<br />    pnt ---  插入点 (WCS)<br />    len ---  线长<br />    ang ---  角度（弧度）<br />    blknastr-块名后缀（前缀固定为XDOB_CROSSHAIR_),如果给 "" , 后缀随机三位字符<br /> <br />    如果有同名块存在，替换掉<br /> <br /> 返回值：INSERT实体名<br /> |;<br /> (defun XD::Pnt:MakeCrossHair (pnt len ang blknastr / blkname direc mat norm ss v1 v1- v2 v2- x yAxis)<br />   (setq norm (XD::UCS:zDir)<br />         direc (xdrx_vector_rotate '(1 0 0) (float ang) norm)<br />         direc (xdrx_vector_normalize direc)<br />         yAxis (xdrx_vector_perpVector direc)<br />         v1 (xdrx_vector_product direc (/ 1 2.0))<br />         v1- (xdrx_vector_negate v1)<br />         v2 (xdrx_vector_product yAxis (/ 1 2.0))<br />         v2- (xdrx_vector_negate v2)<br />   )<br />   (xdrx_setmark)<br />   (mapcar<br />     '(lambda (x)<br />        (xdrx_line_make (mapcar<br />                          '+<br />                          pnt<br />                          (car x)<br />                        ) (mapcar<br />                            '+<br />                            pnt<br />                            (cadr x)<br />                          )<br />        )<br />        (xdrx_setpropertyvalue (entlast) "color" 0)<br />      )<br />     (list (list v1 v1-) (list v2 v2-))<br />   )<br />   (if (= "" blknastr)<br />     (setq blknastr (xdrx_getrandstr))<br />   )<br />   (setq ss (xdrx_getss)<br />         blkname (strcat "XDOB_CROSSHAIR_" blknastr)<br />   )<br />   (setq mat (xdrx_matrix_setTranslation (xdrx_matrix_identity 3) (mapcar<br />                                                                    '-<br />                                                                    '(0 0 0)<br />                                                                    pnt<br />                                                                  )<br />             )<br />   )<br />   (xdrx_entity_transform ss mat)<br />   (setq blkname (xdrx_block_make blkname ss '(0 0 0) t))<br />   (xdrx_entity_transform (entlast) (xdrx_matrix_inverse mat))<br />   (xdrx_setpropertyvalue (entlast) "ScaleFactors" (list len len len))<br />   (entlast)<br /> )<br /> <br /> <br />