[LISP程序]：将UCS实体投影到WCS

eachy

2. 
   
3. ;;将UCS实体投影到WCS，适用2000+以上，R14下对elst需要去除实体名、句柄等
   
4. ;;才可entmake
   
5. ;;Write by eachy 2003.08.19
   
6. (defun ConvertEntitytoWCS (ent / elst)
   
7.   (setq elst (entget ent))
   
8.   (setq
   
9.     elst
   
10.      (mapcar
    
11.        '(lambda        (x)
    
12.           (if (member (car x) '(10 11 12 13 14 15 16 17 18 19))
    
13.             (cons (car x) (trans (list (cadr x) (caddr x) 0.) 0 1))
    
14.             x
    
15.           )
    
16.         )
    
17.        elst
    
18.      )
    
19.   )
    
20.   (setq        elst (subst '(210 0.0 0.0 1.0)
    
21.                     (assoc 210 elst)
    
22.                     elst
    
23.              )
    
24.   )
    
25.   (entmake elst)
    
26.   (entdel ent)
    
27.   (princ)
    
28. )

<br /> ;;将UCS实体投影到WCS，适用2000+以上，R14下对elst需要去除实体名、句柄等<br /> ;;才可entmake<br /> ;;Write by eachy 2003.08.19<br /> (defun ConvertEntitytoWCS (ent / elst)<br />   (setq elst (entget ent))<br />   (setq<br />     elst<br />      (mapcar<br />        '(lambda        (x)<br />           (if (member (car x) '(10 11 12 13 14 15 16 17 18 19))<br />             (cons (car x) (trans (list (cadr x) (caddr x) 0.) 0 1))<br />             x<br />           )<br />         )<br />        elst<br />      )<br />   )<br />   (setq        elst (subst '(210 0.0 0.0 1.0)<br />                     (assoc 210 elst)<br />                     elst<br />              )<br />   )<br />   (entmake elst)<br />   (entdel ent)<br />   (princ)<br /> )

aeo

大致看了一下，没测试:
(trans (list (cadr x) (caddr x) 0.) 0 1)应该有问题的，不知道要达到什么效果?


随便举例:实体ray, dxf11要求单位矢量，(trans ??? 0 1)不一定是单位矢量.

fsxm

这个完全可以用对齐命令来写吧？
因为平时用时没有程序就是用al命令来完成的~！