关于圆的法向Z座标 求助

ysq101

如图：


LISP如何修改 法向Z座标


注：些图是 UG转2D图转出来的


附上DXF图

st788796

绕 Y 轴旋转, 矩阵或 3dRotate

zxq0220

查改210组码

ysq101

zxq0220 发表于 2014-1-21 08:18
查改210组码

试过修改210组码
但改了之后
相当于  把对象以  世界座标的0,0  对称了Y轴
有什么好办法把10的组码表    的X轴  正角值相反吗?

说得太多怕你不明白
来个改表的例子:

(-2 3 0)    这个表改为  (2 3 0)     ;这个表  用绝对值来改正负就好了
(2 3 0)    这个表要改为  (-2 3 0)     ;这个就不知道怎么改了

st788796

(setq ss (ssget))
(rotate3d ss p1 p2 30)

or

(setq ss (ssget))
(align ss s1 d1 s2 d2 "" "2d")

zxq0220

ysq101 发表于 2014-1-21 13:22
试过修改210组码
但改了之后
相当于  把对象以  世界座标的0,0  对称了Y轴

改210组码的同时将X坐标乘以-1

牢固

1. ;;批量修正210组码 By Gu_xl
   
2. (defun c:tt (/ ZA mat obj ss)
   
3.   (if (setq ss (ssget))
   
4.     (repeat (setq n (sslength ss))
   
5.       (setq obj (vlax-ename->vla-object (ssname ss (setq n (1- n)))))
   
6.       (setq ZA (vlax-safearray->list
   
7.      (vlax-variant-value (vla-get-Normal obj))
   
8.          )
   
9.       )
   
10.       (setq mat  (vlax-tmatrix
    
11.       (list
    
12.         (list 1 0 (car ZA) 0)
    
13.         (list 0 1 (cadr ZA) 0)
    
14.         (list 0 0 (caddr ZA) 0)
    
15.         (list 0 0 0 1)
    
16.       )
    
17.     )
    
18.       )
    
19.       (vla-TransformBy obj mat)
    
20.     )
    
21.   )
    
22.   (princ)
    
23. )

;;批量修正210组码 By Gu_xl<br /> (defun c:tt (/ ZA mat obj ss)<br />   (if (setq ss (ssget))<br />     (repeat (setq n (sslength ss))<br />       (setq obj (vlax-ename->vla-object (ssname ss (setq n (1- n)))))<br />       (setq ZA (vlax-safearray->list<br />      (vlax-variant-value (vla-get-Normal obj))<br />          )<br />       )<br />       (setq mat  (vlax-tmatrix<br />       (list<br />         (list 1 0 (car ZA) 0)<br />         (list 0 1 (cadr ZA) 0)<br />         (list 0 0 (caddr ZA) 0)<br />         (list 0 0 0 1)<br />       )<br />     )<br />       )<br />       (vla-TransformBy obj mat)<br />     )<br />   )<br />   (princ)<br /> )

newer

ysq101 发表于 2014-1-21 13:22
试过修改210组码
但改了之后
相当于  把对象以  世界座标的0,0  对称了Y轴

只 把X符号相反？

(list (* -1 (car xyz)) (cadr xyz)(caddr xyz))

st788796

(mapcar '* '(-1. 1. 1.) (cdr (assoc 210 lst)))

ysq101

zxq0220 发表于 2014-1-21 18:56
改210组码的同时将X坐标乘以-1

哈哈...你这个技巧太好了....一言惊醒梦中人啊

ysq101

牢固 发表于 2014-1-21 19:38

谢谢你写的源码...
但我是初学者...
只想研究一下关于表的处理...
看来我要慢慢消化你的程序了..

ysq101

newer 发表于 2014-1-21 22:44
只 把X符号相反？

(list (* -1 (car xyz)) (cadr xyz)(caddr xyz))

是的...因为改了组码210后
对象   对称了Y轴

所以我只需要改组码10的  X轴

ysq101

st788796 发表于 2014-1-21 22:49
(mapcar '* '(-1. 1. 1.) (cdr (assoc 210 lst)))

正是我要的结果啊...谢谢你啊