三维填充边界实际坐标如何计算

q3_2006

如题,想算图中填充边界,涉及矩阵转换,只能求高人指导了
(-1 . <图元名: 24a51c80>)
(0 . "HATCH")
(330 . <图元名: 24a4f9f0>)
(5 . "7B0")
(100 . "AcDbEntity")
(67 . 0)
(410 . "Model")
(8 . "layer8")
(100 . "AcDbHatch")
(10 0.0 0.0 -536.354)
(210 0.0 -0.290544 0.956862)
(2 . "平行线")
(70 . 0)
(71 . 0)
(91 . 1)
(92 . 1)
(93 . 4)
(72 . 1)
(10 1316.17 1766.4 0.0)
(11 1406.8 1766.4 0.0)
(72 . 1)
(10 1406.8 1766.4 0.0)
(11 1406.8 1783.61 0.0)
(72 . 1)
(10 1406.8 1783.61 0.0)
(11 1316.17 1783.61 0.0)
(72 . 1)
(10 1316.17 1783.61 0.0)
(11 1316.17 1766.4 0.0)
(97 . 0)
(75 . 1)
(76 . 1)
(52 . 0.0)
(41 . 2.0)
(77 . 0)
(78 . 1)
(53 . 1.5708)
(43 . 1359.49)
(44 . 1766.4)
(45 . -2.0)
(46 . 1.22465e-16)
(79 . 0)
(98 . 1)
(10 1361.49 1766.4 0.0)
(-3 ("GradientColor1ACI" (1070 . 5)) ("GradientColor2ACI" (1070 . 2)) ("ACAD" (1010 0.0 0.0 0.0)))

marting

平面的原点 (10 0.0 0.0 -536.354)
法线向量 (210 0.0 -0.290544 0.956862)

构建从WCS到这个平面的变换矩阵，然后把边界点作用到矩阵就变换了

q3_2006

marting 发表于 2019-5-9 12:08
平面的原点 (10 0.0 0.0 -536.354)
法线向量 (210 0.0 -0.290544 0.956862)

大师..不是我懒,是真不懂..麻烦大师写个范例吧,谢谢了..

Lispboy

q3_2006 发表于 2019-5-9 12:12
大师..不是我懒,是真不懂..麻烦大师写个范例吧,谢谢了..

1. (defun c:tt ()
   
2.   (if (setq ha (car (xdrx_entsel "\n选取填充<退出>:" '((0 . "hatch")))))
   
3.     (progn (setq elev (xdrx_getpropertyvalue ha "elevation") ;;标高
   
4.                  g   (xdrx_getpropertyvalue ha "getloops") ;;边界几何实体
   
5.                  ecs   (xdrx_entity_getecs ha) ;;ECS坐标系
   
6.                  c1 (apply 'xdrx_matrix_setcoordsystem ecs)
   
7.                  c2 (xdrx_matrix_identity 3)
   
8.                  m1 (xdrx_matrix_transcoordsystem c2 c1);;WCS到ECS变换矩阵
   
9.                  m2 (xdrx_matrix_settranslation (list 0.0 0.0 elev));;标高平移矩阵
   
10.                  m3 (xdrx_matrix_product m1 m2);;组合变换
    
11.            )
    
12.       (setq ss (xdge::entity:make g));;生成边界
    
13.       (xdrx_entity_transform ss m3);; 边界变换到ECS
    
14.       (xdrx_entity_setproperty ss "color" 1);;设置颜色红
    
15.     )
    
16.   )
    
17.   (princ)
    
18. )
    
19. 
    

(defun c:tt ()<br />   (if (setq ha (car (xdrx_entsel "\n选取填充<退出>:" '((0 . "hatch")))))<br />     (progn (setq elev (xdrx_getpropertyvalue ha "elevation") ;;标高<br />                  g   (xdrx_getpropertyvalue ha "getloops") ;;边界几何实体<br />                  ecs   (xdrx_entity_getecs ha) ;;ECS坐标系<br />                  c1 (apply 'xdrx_matrix_setcoordsystem ecs)<br />                  c2 (xdrx_matrix_identity 3)<br />                  m1 (xdrx_matrix_transcoordsystem c2 c1);;WCS到ECS变换矩阵<br />                  m2 (xdrx_matrix_settranslation (list 0.0 0.0 elev));;标高平移矩阵<br />                  m3 (xdrx_matrix_product m1 m2);;组合变换<br />            )<br />       (setq ss (xdge::entity:make g));;生成边界<br />       (xdrx_entity_transform ss m3);; 边界变换到ECS<br />       (xdrx_entity_setproperty ss "color" 1);;设置颜色红<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

q3_2006

Lispboy 发表于 2019-5-9 14:45

非常感谢,不懂矩阵..用哪些函数都不知道呀..

Lispboy

q3_2006 发表于 2019-5-9 15:03
非常感谢,不懂矩阵..用哪些函数都不知道呀..

矩阵就这么几个函数，看看API手册xdrx_matrix.............

sicky111

学习一下。