将弧的(210 0 0 -1)纠正为(210 0 0 1)而图形不变

/db_自贡黄明儒_

1. ;;;;;w3将弧的(210 0 0 -1)纠正为(210 0 0 1)而图形不变
   
2. ;;;(defun C:W3 (/ O)
   
3. ;;;  (setq o (vlax-ename->vla-object (car (entsel))))
   
4. ;;;  (_C210 o)
   
5. ;;;  (princ)
   
6. ;;;)
   
7. ;;;;;W4将弧的(210 0 0 1)纠正为(210 0 0 -1)
   
8. ;;;(defun C:w4 (/ O ZA)
   
9. ;;;  (setq o (vlax-ename->vla-object (car (entsel))))
   
10. ;;;  (setq ZA '(0 0 -1))
    
11. ;;;  (setq ZA (List->Array ZA))
    
12. ;;;  (vla-put-Normal o ZA)
    
13. ;;;  (princ)
    
14. ;;;)
    
15. (defun _C210 (o / CENTER MAT ZA)  
    
16.   (if (and
    
17.         (vlax-property-available-p o 'Normal)
    
18.         ;;(setq ZA (vlax-safearray->list(vlax-variant-value (vla-get-Normal o)))
    
19.         (setq ZA (safearray-value (vlax-variant-value (vla-get-Normal o))))
    
20.         (equal (caddr ZA) -1 0.00001)
    
21.       )
    
22.     (progn
    
23.       (setq ZA '(0 0 1))
    
24.       (setq ZA (List->Array ZA))
    
25.       (vla-put-Normal o ZA)
    
26.       
    
27.       ;;绕Y轴旋转 180度,旋转后组码210变了
    
28.       (setq Center (safearray-value (vlax-variant-value (vla-get-Center o))))      
    
29.       ;;(setq mat (MAT:Rotation3D Center (mapcar '+ '(0 1 0) Center) pi))
    
30.       ;;MAT:Reflect By Highflybird Matrix-Lib.LSP
    
31.       (setq mat (MAT:Reflect (mapcar '+ '(0 1 0) Center) Center));平面镜向
    
32.       (setq mat (vlax-tmatrix mat))
    
33.       (vla-transformby o mat)
    
34.     )
    
35.   )  
    
36. )
    
37. ;;表转化为安全数组
    
38. (defun List->Array (lst)
    
39.   (vlax-make-variant
    
40.     (vlax-safearray-fill
    
41.       (vlax-make-safearray
    
42.         vlax-vbdouble
    
43.         (cons 0 (1- (length lst)))
    
44.       )
    
45.       lst
    
46.     )
    
47.   )
    
48. )

;;;;;w3将弧的(210 0 0 -1)纠正为(210 0 0 1)而图形不变<br /> ;;;(defun C:W3 (/ O)<br /> ;;;  (setq o (vlax-ename->vla-object (car (entsel))))<br /> ;;;  (_C210 o)<br /> ;;;  (princ)<br /> ;;;)<br /> ;;;;;W4将弧的(210 0 0 1)纠正为(210 0 0 -1)<br /> ;;;(defun C:w4 (/ O ZA)<br /> ;;;  (setq o (vlax-ename->vla-object (car (entsel))))<br /> ;;;  (setq ZA '(0 0 -1))<br /> ;;;  (setq ZA (List->Array ZA))<br /> ;;;  (vla-put-Normal o ZA)<br /> ;;;  (princ)<br /> ;;;)<br /> (defun _C210 (o / CENTER MAT ZA)  <br />   (if (and<br />         (vlax-property-available-p o 'Normal)<br />         ;;(setq ZA (vlax-safearray->list(vlax-variant-value (vla-get-Normal o)))<br />         (setq ZA (safearray-value (vlax-variant-value (vla-get-Normal o))))<br />         (equal (caddr ZA) -1 0.00001)<br />       )<br />     (progn<br />       (setq ZA '(0 0 1))<br />       (setq ZA (List->Array ZA))<br />       (vla-put-Normal o ZA)<br />       <br />       ;;绕Y轴旋转 180度,旋转后组码210变了<br />       (setq Center (safearray-value (vlax-variant-value (vla-get-Center o))))      <br />       ;;(setq mat (MAT:Rotation3D Center (mapcar '+ '(0 1 0) Center) pi))<br />       ;;MAT:Reflect By Highflybird Matrix-Lib.LSP<br />       (setq mat (MAT:Reflect (mapcar '+ '(0 1 0) Center) Center));平面镜向<br />       (setq mat (vlax-tmatrix mat))<br />       (vla-transformby o mat)<br />     )<br />   )  <br /> )<br /> ;;表转化为安全数组 <br /> (defun List->Array (lst)<br />   (vlax-make-variant<br />     (vlax-safearray-fill<br />       (vlax-make-safearray<br />         vlax-vbdouble<br />         (cons 0 (1- (length lst)))<br />       )<br />       lst<br />     )<br />   )<br /> )

vlisp2012

Thx for sharing!

kyky1002

虽然不是很明白，但感谢分享

白领坛主

椭圆弧，支持吧？

drshang

6666666666