（XD::Mat:Block2WCS）图块到WCS的变换矩阵

marting

1. (defun XD::Mat:Block2WCS (ename / elst ang norm mat)
   
2.   (if (= (type ename) 'vla-object)
   
3.     (setq ename (vlax-vla-object->ename ename))
   
4.   )
   
5.   (setq        elst (entget ename)
   
6.         ang  (cdr (assoc 50 elst))
   
7.         norm (cdr (assoc 210 elst))
   
8.   )
   
9.   (apply
   
10.     'xd::mat:disptomatrix
    
11.     (list
    
12.       (setq mat        (XD::Mat:m*m
    
13.                   (mapcar (function (lambda (v) (trans v 0 norm T)))
    
14.                           '((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))
    
15.                   )
    
16.                   (XD::Mat:m*m
    
17.                     (list (list (cos ang) (- (sin ang)) 0.0)
    
18.                           (list (sin ang) (cos ang) 0.0)
    
19.                           '(0.0 0.0 1.0)
    
20.                     )
    
21.                     (list (list (cdr (assoc 41 elst)) 0.0 0.0)
    
22.                           (list 0.0 (cdr (assoc 42 elst)) 0.0)
    
23.                           (list 0.0 0.0 (cdr (assoc 43 elst)))
    
24.                     )
    
25.                   )
    
26.                 )
    
27.       )
    
28.       (mapcar '-
    
29.               (trans (cdr (assoc 10 elst)) norm 0)
    
30.               (XD::Mat:M*V
    
31.                 mat
    
32.                 (cdr (assoc 10 (tblsearch "BLOCK" (cdr (assoc 2 elst)))))
    
33.               )
    
34.       )
    
35.     )
    
36.   )
    
37. )
    

(defun XD::Mat:Block2WCS (ename / elst ang norm mat)<br />   (if (= (type ename) 'vla-object)<br />     (setq ename (vlax-vla-object->ename ename))<br />   )<br />   (setq        elst (entget ename)<br />         ang  (cdr (assoc 50 elst))<br />         norm (cdr (assoc 210 elst))<br />   )<br />   (apply<br />     'xd::mat:disptomatrix<br />     (list<br />       (setq mat        (XD::Mat:m*m<br />                   (mapcar (function (lambda (v) (trans v 0 norm T)))<br />                           '((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))<br />                   )<br />                   (XD::Mat:m*m<br />                     (list (list (cos ang) (- (sin ang)) 0.0)<br />                           (list (sin ang) (cos ang) 0.0)<br />                           '(0.0 0.0 1.0)<br />                     )<br />                     (list (list (cdr (assoc 41 elst)) 0.0 0.0)<br />                           (list 0.0 (cdr (assoc 42 elst)) 0.0)<br />                           (list 0.0 0.0 (cdr (assoc 43 elst)))<br />                     )<br />                   )<br />                 )<br />       )<br />       (mapcar '-<br />               (trans (cdr (assoc 10 elst)) norm 0)<br />               (XD::Mat:M*V<br />                 mat<br />                 (cdr (assoc 10 (tblsearch "BLOCK" (cdr (assoc 2 elst)))))<br />               )<br />       )<br />     )<br />   )<br /> )<br />

ynhh

一直不知用在那里
也没学会

大师能不能来个在命令行自动显示
进度条的小功能
谢谢您

dyjwyqz5221

此函数对于嵌套块是不行的。