设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › [编程申请]：怎么画这个圆柱
12下一页
返回列表 发新帖
查看: 4448|回复: 25

[编程申请]：怎么画这个圆柱

[复制链接]
漏网の鱼
发表于 2002-8-6 11:05:37 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有账号？立即注册

×
想利用已有一根空间LINE为中心线，绘制一个圆柱，圆柱的底面在LINE的起点上，厚度为线长。绘制时总得调整UCS，有没有直接计算的方法？
((-1 . <图元名: 5ea0550>) (0 . "LINE") (5 . "9A") (100 . "AcDbEntity") (67 . 0)
(8 . "0") (100 . "AcDbLine") (10 1.0 2.0 3.0) (11 6.0 5.0 4.0) (210 0.0 0.0 1.0))
((-1 . <图元名: 5ea0558>) (0 . "CIRCLE") (5 . "9B") (100 . "AcDbEntity") (67 . 0) (8 . "0") (100 . "AcDbCircle") (39 . 5.91608) (10 1.20049 2.63796 2.36643)
(40 . 1.0) (210 0.845154 0.507093 0.169031))
关键是圆的10项和210项怎么计算？
圆柱, 绘制, AcDbEntity

相关帖子

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

XDSoft

已领礼包: 145个

财富等级: 日进斗金
发表于 2002-8-6 11:13:46 | 显示全部楼层

Re: [编程申请]：怎么画这个圆柱

最初由 漏网之鱼 发布
[B]想利用已有一根空间LINE为中心线，绘制一个圆柱，圆柱的底面在LINE的起点上，厚度为线长。绘制时总得调整UCS，有没有直接计算的方法？
((-1 . <图元名: 5ea0550>) (0 . "LINE") (5 . "9A") (100 . "AcDbEntity") (6... [/B]


210是圆柱底平面的Z轴矢量，

关键是要得到圆的平面，通过已知的LINE的两端点，用（终点－起点）得到向量，然后把这个矢量normlize（单位化）就是210了。

XDRX_API对矢量提供了所有的ObjectArx几何类库的AcGeVector类方法：

单位化矢量的函数是：

329. xdrx_vector_Normalize

功能：求向量的单位向量

调用格式：(xdrx_vector_Normalize <向量>)

返回值：向量

其他关于矢量处理的：

  2. [FONT=courier new]
  3. 322. xdrx_vector_CrossProduct

  5. 功能：求两向量的差积

  7. 调用格式：(xdrx_vector_CrossProduct <三维向量1> <三维向量2>)

  9. 返回值：三维向量

  11. 说明：两向量差积结果得到的第三个向量和前两个向量互相正交，即垂直于
  12.      前两个向量决定的平面。
  13.      
  14. 323. xdrx_vector_DotProduct   

  16. 功能：求两个向量的点积

  18. 调用格式：(xdrx_vector_DotProduct <向量1> <向量2>)

  20. 返回值：两向量夹角的余玄

  22. 324. xdrx_vector_IsParallel

  24. 功能：判断两向量是否平行

  26. 调用格式：(xdrx_vector_IsParallel <向量1> <向量2>)

  28. 返回值：平行 T 否 NIL

  30. 325. xdrx_vector_IsPerpendicular

  32. 功能：判断两向量是垂直

  34. 调用格式：(xdrx_vector_IsPerpendicular <向量1> <向量2>)

  36. 326. xdrx_vector_IsCodirectional

  38. 功能：判断两向量是否同向

  40. 调用格式：(xdrx_vector_IsCodirectional <向量1> <向量2>)

  42. 返回值：同向T 否NIL

  44. 327. xdrx_vector_Negate

  46. 功能：求负向量

  48. 调用格式：(xdrx_vector_Negate <向量>)

  50. 返回值：向量

  52. 328. xdrx_vector_PerpVector

  54. 功能：求切向量

  56. 调用格式：(xdrx_vector_PerpVector <向量>)

  58. 返回值：向量

  60. 329. xdrx_vector_Normalize

  62. 功能：求向量的单位向量

  64. 调用格式：(xdrx_vector_Normalize <向量>)

  66. 返回值：向量

  68. 330. xdrx_vector_Length

  70. 功能：求向量的长度

  72. 调用格式：(xdrx_vector_Length <向量>)

  74. 返回值：实数

  76. 331. xdrx_vector_IsEqual

  78. 功能：判断两向量是否相等

  80. 调用格式：(xdrx_vector_IsEqual <向量1> <向量2>)

  82. 332. xdrx_vector_OrthoProject

  84. 功能：向量向一个平面正投影，得到投影后的向量

  86. 调用格式：(xdrx_vector_OrthoProject <3维向量> <指定平面的normal向量>)

  88. 返回值：向量

  90. 说明：仅对三维向量操作
  91.      有NORMAL代表投影到的平面
  92.      
  93. 333. xdrx_vector_Project

  95. 功能：向量向一个平面沿着指定的方向投影

  97. 调用格式：(xdrx_vector_Project <三维向量> <代表平面的normal向量> <投影方向向量>)

  99. 返回值：向量

  101. 说明：向量投影操作，事先应该用(xdrx_vector_IsParallel <向量> <平面NORMAL向量>)
  102.      判断向量是否平行，若平行，将不能投影

  104. 334. xdrx_vector_product

  106. 功能：向量和一个矩阵左相乘

  108. 调用格式：(xdrx_vector_product <向量1> <矩阵>)

  110. 返回值：向量


  113. 335. xdrx_vector_Angle

  115. 功能：求两向量的夹角

  117. 调用格式：(xdrx_vector_Angle <向量1> <向量2>)

  119. 返回值：实数

  121. 336. xdrx_vector_Transform

  123. 功能：用一个前置矩阵转换该向量

  125. 调用格式：(xdrx_vector_Transform <向量> <转换矩阵>)

  127. 返回值：向量

  129. 说明：矩阵的维数必须和向量的维数相同。二维或者三维

  131. 338. xdrx_vector_Rotate

  133. 功能：向量旋转

  135. 调用格式：(xdrx_vector_Rotate <向量> <角度>)

  137. 返回值：向量

  139. 339. xdrx_vector_Mirror

  141. 功能：镜像向量

  143. 调用格式：
  144.         1、(xdrx_vector_Mirror <二维向量> <镜像基二维向量>)
  145.         2、(xdrx_vector_Mirror <三维向量> <镜像平面>)
  146.         
  147. 返回值：向量

  149. 说明：<镜像平面>:  向量代表的平面，normal向量

  151. 340. xdrx_vector_Divide

  153. 功能：向量除以一个比例系数

  155. 调用格式：(xdrx_vector_Divide <向量> <比例>)

  157. 返回值：向量

  159. 341. xdrx_vector_LargestElement

  161. 功能：返回一个三维向量中的绝对值最大的元素

  163. 调用格式：(xdrx_vector_LargestElement <三维向量>)

  165. 返回值：实数

  167. 342. xdrx_vector_LengthSqrd
  168. ******************

  170. 343. xdrx_vector_IsZeroLength

  172. 功能：判断向量是否是0长度

  174. 调用格式：(xdrx_vector_IsZeroLength <向量>)

  176. 返回值：是T 否NIL

  178. 344. xdrx_vector_IsUnitLength

  180. 功能：判断一个向量是否是单位向量

  182. 调用格式：(xdrx_vector_IsUnitLength <向量>)

  184. 返回值：是T 否NIL
  185. [/FONT]
复制代码
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

XDSoft

已领礼包: 145个

财富等级: 日进斗金
发表于 2002-8-6 11:58:58 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
如果实体很多，不想在座标系间来回用UCS命令转变，那么就需要自己建立UCS到WCS的转换矩阵，然后把矩阵作用到点上就可以变换点了。

首先要构筑转换矩阵（例如简单的平移）

315. xdrx_matrix_SetTranslation

功能：设置一个矩阵的平移向量

调用格式：(xdrx_matrix_SetTranslation <2d or 3d矩阵> <平移向量>)

返回值：矩阵

说明： <平移向量>--对2D矩阵，是2D 向量
                   对3D矩阵  是3D 向量

构筑一个转换矩阵后，可以用下面的函数作用到点上，完成点在座标系间的转换

357. xdrx_point_transform

功能：将一个转换矩阵作用于点上。

调用格式：(xdrx_point_transform <点> <转换矩阵>)

返回值：变换后的点

说明：转换矩阵维数要和点的维数相同。

XDRX_API对ObjectARX的几何库中的所有矩阵AcGeMatrix3d,2d类的方法都提供了LISP下使用的函数

图形学变换关键的就是构筑转换矩阵，矩阵构造好了，作用到点上，就是变换点，作用的实体上，就是对实体移动、变比例、旋转、平移、镜像等等。

使用XDRX_API几个transFrom函数，可以实现所有ACAD关于实体的编辑操作。如：xdrx_entity_transFrom,xdrx_entity_transFromedCopy都是把转换矩阵作用到实体上进行实体的变换。


关于座标系间矩阵变换的函数：


  3. [FONT=courier new]
  4. 295. xdrx_matrix_wcs2ucs

  6. 功能：获得WCS->当前UCS的转换矩阵                           

  8. 调用格式：(xdrx_matrix_wcs2ucs)

  10. 返回值：矩阵表

  12. 例子：Command: (xdrx_matrix_wcs2ucs)
  13.                ((1.0 0.0 0.0 -23768.7) (0.0 1.0 0.0 -10864.1) (0.0 0.0 1.0 0.0) (0.0 0.0 0.0 1.0))
  14.       当前UCS原点的WCS值：
  15.       Command: ucsorg
  16.       UCSORG = 23769,10864,0 (read only)   
  17.       
  18. 296. xdrx_matrix_ucs2wcs

  20. 功能：获得当前UCS->WCS的转换矩阵

  22. 调用格式：(xdrx_matrix_ucs2wcs)

  24. 返回值：矩阵表

  26. 例子：当前UCS原点的WCS值：
  27.       Command: ucsorg
  28.       UCSORG = 23769,10864,0 (read only)  
  29.       
  30.       Command: (xdrx_matrix_ucs2wcs)
  31.       ((1.0 0.0 0.0 23768.7) (0.0 1.0 0.0 10864.1) (0.0 0.0 1.0 0.0) (0.0 0.0 0.0 1.0))
  32.       
  33. 程序举例：求当前UCS下一点的WCS值，要用UCS->WCS的转换矩阵乘以该点。
  34.       Command: (setq p(getpoint))
  35.                (-6727.99 -716.155 0.0)      ;ucs下点

  37.       Command: (setq pp (xdrx_matrix_ucs2wcs))  ;;得到UCS->WCS转换矩阵                              
  38.       ((1.0 0.0 0.0 23768.7) (0.0 1.0 0.0 10864.1) (0.0 0.0 1.0 0.0) (0.0 0.0 0.0 1.0))                                                                     
  39.                                                                                  
  40.       Command: (setq pwcs (xdrx_point_transform p pp)) ;;转换矩阵作用到点P                          
  41.       (17040.7 10148.0 0.0)   ;;变成WCS下的点                                                   
  42.                                                                                  
  43.       Command: (trans p 1 0)   ;;使用trans函数验证结果                                                
  44.       (17040.7 10148.0 0.0)   
  45.       
  46. 297.  xdrx_matrix_ecs2wcs

  48. 功能：获得对象的ECS(OCS)到WCS下的转换矩阵

  50. 调用格式：(xdrx_matrix_ecs2wcs <实体名>)

  52. 返回值：矩阵表

  54. 298. xdrx_matrix_block2wcs

  56. 功能：获得块BLOCK到WCS下的转换矩阵

  58. 调用格式：(xdrx_matrix_block2wcs <insert实体名>)

  60. 返回值：矩阵

  62. 299. xdrx_matrix_image2Wcs

  64. 功能：获得IMAGE图像实体象素到WCS下的转换矩阵

  66. 调用格式：(xdrx_matrix_image2Wcs <image实体名>)

  68. 返回值：矩阵

  70. 302. xdrx_matrix_setCoordsystem

  72. 功能：设置转换矩阵的坐标系

  74. 调用格式：1. 2d
  75.              (xdrx_matrix_setCoordsystem <矩阵AcGeMatrix2d> <2d原点> <X轴> <Y轴>)
  76.           2. 3D
  77.              (xdrx_matrix_setCoordsystem <矩阵AcGeMatrix3d> <3d原点> <X轴> <Y轴> <Z轴>)
  78.             
  79. 返回值：矩阵表

  81. 303. xdrx_matrix_getCoordsystem

  83. 功能：获得一个转换矩阵的坐标系

  85. 调用格式：(xdrx_matrix_getcoordsystem <2d or 3d矩阵>)

  87. 返回值：表(原点 X轴向量 Y轴向量 Z轴向量)

  89. 例子：
  90. Command: !pp  ;;ucs->wcs的转换矩阵
  91. ((1.0 0.0 0.0 23768.7) (0.0 1.0 0.0 10864.1) (0.0 0.0 1.0 0.0) (0.0 0.0 0.0 1.0))
  92. Command: (xdrx_matrix_getcoordsystem pp) ;;获得UCS的坐标系
  93. ((23768.7 10864.1 0.0) (1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))

  95. 304. xdrx_matrix_AlignCoordSystem

  97. 功能：构造从一个坐标系到另一个坐标系的转换矩阵

  99. 调用格式：
  100.          1：2D矩阵转换
  101.          (xdrx_matrix_AlignCoordSystem <from 原点> <from X轴向量> <from Y轴向量>
  102.                                        <To 原点>  <To X轴向量>  <To Y轴向量> )
  103.                                        
  104.          2: 3D矩阵转换                              

  106.          (xdrx_matrix_AlignCoordSystem <From 原点> <FromX轴向量> <From Y轴向量> <From Z轴向量>
  107.                                        <To 原点>  <To X轴向量>  <To Y轴向量> <To Z轴向量>)

  109. 返回值：矩阵[/FONT]


关于所有的矩阵方面的函数


  3. [FONT=courier new]
  4. 294. xdrx_matrix_identity

  6. 功能：获得一个2d or 3d的单位矩阵

  8. 调用格式：(xdrx_matrix_identity [维数])

  10. 返回值：三个或者四个元素的表，单位矩阵

  12. 说明：[维数]- 2:构造一个2D 单位矩阵
  13.               3:构造一个3D 单位矩阵
  14.               
  15. 例子：Command: (xdrx_matrix_identity 2)
  16.                ((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))
  17.       Command: (xdrx_matrix_identity 3)
  18.                ((1.0 0.0 0.0 0.0) (0.0 1.0 0.0 0.0) (0.0 0.0 1.0 0.0) (0.0 0.0 0.0 1.0))     
  19.                
  20. 295. xdrx_matrix_wcs2ucs

  22. 功能：获得WCS->当前UCS的转换矩阵                           

  24. 调用格式：(xdrx_matrix_wcs2ucs)

  26. 返回值：矩阵表

  28. 例子：Command: (xdrx_matrix_wcs2ucs)
  29.                ((1.0 0.0 0.0 -23768.7) (0.0 1.0 0.0 -10864.1) (0.0 0.0 1.0 0.0) (0.0 0.0 0.0 1.0))
  30.       当前UCS原点的WCS值：
  31.       Command: ucsorg
  32.       UCSORG = 23769,10864,0 (read only)   
  33.       
  34. 296. xdrx_matrix_ucs2wcs

  36. 功能：获得当前UCS->WCS的转换矩阵

  38. 调用格式：(xdrx_matrix_ucs2wcs)

  40. 返回值：矩阵表

  42. 例子：当前UCS原点的WCS值：
  43.       Command: ucsorg
  44.       UCSORG = 23769,10864,0 (read only)  
  45.       
  46.       Command: (xdrx_matrix_ucs2wcs)
  47.       ((1.0 0.0 0.0 23768.7) (0.0 1.0 0.0 10864.1) (0.0 0.0 1.0 0.0) (0.0 0.0 0.0 1.0))
  48.       
  49. 程序举例：求当前UCS下一点的WCS值，要用UCS->WCS的转换矩阵乘以该点。
  50.       Command: (setq p(getpoint))
  51.                (-6727.99 -716.155 0.0)      ;ucs下点

  53.       Command: (setq pp (xdrx_matrix_ucs2wcs))  ;;得到UCS->WCS转换矩阵                              
  54.       ((1.0 0.0 0.0 23768.7) (0.0 1.0 0.0 10864.1) (0.0 0.0 1.0 0.0) (0.0 0.0 0.0 1.0))                                                                     
  55.                                                                                  
  56.       Command: (setq pwcs (xdrx_point_transform p pp)) ;;转换矩阵作用到点P                          
  57.       (17040.7 10148.0 0.0)   ;;变成WCS下的点                                                   
  58.                                                                                  
  59.       Command: (trans p 1 0)   ;;使用trans函数验证结果                                                
  60.       (17040.7 10148.0 0.0)   
  61.       
  62. 297.  xdrx_matrix_ecs2wcs

  64. 功能：获得对象的ECS(OCS)到WCS下的转换矩阵

  66. 调用格式：(xdrx_matrix_ecs2wcs <实体名>)

  68. 返回值：矩阵表

  70. 298. xdrx_matrix_block2wcs

  72. 功能：获得块BLOCK到WCS下的转换矩阵

  74. 调用格式：(xdrx_matrix_block2wcs <insert实体名>)

  76. 返回值：矩阵

  78. 299. xdrx_matrix_image2Wcs

  80. 功能：获得IMAGE图像实体象素到WCS下的转换矩阵

  82. 调用格式：(xdrx_matrix_image2Wcs <image实体名>)

  84. 返回值：矩阵

  86. 300. xdrx_matrix_inverse

  88. 功能：获得一个矩阵的逆矩阵

  90. 调用格式：(xdrx_matrix_inverse <2d or 3d矩阵>)

  92. 返回值：矩阵表

  94. 说明：矩阵的格式见函数xdrx_matrix_identity获得的结果。

  96. 例子：

  98. Command: !pp
  99. ((1.0 0.0 0.0 23768.7) (0.0 1.0 0.0 10864.1) (0.0 0.0 1.0 0.0) (0.0 0.0 0.0
  100. 1.0))

  102. Command: (setq p1 (xdrx_matrix_inverse pp)) ;;求逆矩阵
  103. ((1.0 0.0 0.0 -23768.7) (0.0 1.0 0.0 -10864.1) (0.0 0.0 1.0 0.0) (0.0 0.0 0.0
  104. 1.0))

  106. Command: (setq product (xdrx_matrix_product pp p1)) ;;原来矩阵×逆矩阵=单位矩阵
  107. ((1.0 0.0 0.0 0.0) (0.0 1.0 0.0 0.0) (0.0 0.0 1.0 0.0) (0.0 0.0 0.0 1.0))

  109. 301. xdrx_matrix_Determinant

  111. 功能：求矩阵行列式的值

  113. 调用格式：(xdrx_matrix_Determinant <2d or 3d矩阵>)

  115. 返回值：实数

  117. 302. xdrx_matrix_setCoordsystem

  119. 功能：设置转换矩阵的坐标系

  121. 调用格式：1. 2d
  122.              (xdrx_matrix_setCoordsystem <矩阵AcGeMatrix2d> <2d原点> <X轴> <Y轴>)
  123.           2. 3D
  124.              (xdrx_matrix_setCoordsystem <矩阵AcGeMatrix3d> <3d原点> <X轴> <Y轴> <Z轴>)
  125.             
  126. 返回值：矩阵表

  128. 303. xdrx_matrix_getCoordsystem

  130. 功能：获得一个转换矩阵的坐标系

  132. 调用格式：(xdrx_matrix_getcoordsystem <2d or 3d矩阵>)

  134. 返回值：表(原点 X轴向量 Y轴向量 Z轴向量)

  136. 例子：
  137. Command: !pp  ;;ucs->wcs的转换矩阵
  138. ((1.0 0.0 0.0 23768.7) (0.0 1.0 0.0 10864.1) (0.0 0.0 1.0 0.0) (0.0 0.0 0.0 1.0))
  139. Command: (xdrx_matrix_getcoordsystem pp) ;;获得UCS的坐标系
  140. ((23768.7 10864.1 0.0) (1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))

  142. 304. xdrx_matrix_AlignCoordSystem

  144. 功能：构造从一个坐标系到另一个坐标系的转换矩阵

  146. 调用格式：
  147.          1：2D矩阵转换
  148.          (xdrx_matrix_AlignCoordSystem <from 原点> <from X轴向量> <from Y轴向量>
  149.                                        <To 原点>  <To X轴向量>  <To Y轴向量> )
  150.                                        
  151.          2: 3D矩阵转换                              

  153.          (xdrx_matrix_AlignCoordSystem <From 原点> <FromX轴向量> <From Y轴向量> <From Z轴向量>
  154.                                        <To 原点>  <To X轴向量>  <To Y轴向量> <To Z轴向量>)

  156. 返回值：矩阵

  158. 305. xdrx_matrix_setScale

  160. 功能：设置转换矩阵的全局比例系数                                       

  162. 调用格式：
  163.          1：2D矩阵
  164.             (xdrx_matrix_setScale <矩阵> <比例> <2d 基点>)
  165.          2: 3D矩阵
  166.             (xdrx_matrix_setScale <矩阵> <比例> <3d 基点>)
  167.             
  168. 返回值：矩阵   

  170. 306. xdrx_matrix_Scalefactor

  172. 功能：获得矩阵的全局比例系数

  174. 调用格式：(xdrx_matrix_Scalefactor <2d or 3d矩阵>)

  176. 返回值：实数

  178. 307. xdrx_matrix_setRotation

  180. 功能：设置转换矩阵的旋转角

  182. 调用格式：
  183.           1、2D转换矩阵
  184.              (xdrx_matrix_setRotation <2d矩阵> <角度弧度值> <2D基点>)
  185.             
  186.           2、3D转换矩阵
  187.              (xdrx_matrix_setRotation <3d矩阵> <角度弧度值> <转轴向量> <基点>)

  189. 返回值：旋转矩阵               

  191. 308. xdrx_matrix_setMirror

  193. 功能：构造镜像矩阵

  195. 调用格式：1、2D转换矩阵
  196.           (xdrx_matrix_setMirror <2d矩阵> <镜像点>)
  197.           (xdrx_matrix_setMirror <2d矩阵> <镜像线>)
  198.          
  199.           2、3D转换矩阵
  200.          
  201.           (xdrx_matrix_setMirror <3d矩阵> <镜像点>)
  202.           (xdrx_matrix_setMirror <2d矩阵> <镜像线>)
  203.           (xdrx_matrix_setMirror <2d矩阵> <镜像面>)
  204.          
  205. 返回值：矩阵

  207. 说明：对2D矩阵，点都要给2D点。
  208.       [镜像线]-- (线起点 线终点)
  209.       [镜像面]-- (点1 点2 点3)  满足右手定则的时针顺序3个点表示一个平面。
  210.       
  211. 例子：

  213. Command: !a
  214. ((1.0 0.0 0.0 -30937.9) (0.0 1.0 0.0 -9817.43) (0.0 0.0 1.0 0.0) (0.0 0.0 0.0 1.0)) ;矩阵
  215. Command: !l
  216. ((2922.82 -2479.0 0.0) (8768.45 7657.35 0.0)) ;;线
  217. Command: (setq c (xdrx_matrix_setmirror a l)) ;;镜像
  218. ((-0.500844 0.865537 0.0 -24405.6)
  219. (0.865537 0.500844 0.0 -13584.6)
  220. (0.0 0.0 -1.0 0.0)
  221. (0.0 0.0 0.0 1.0)
  222. )

  224. 309. xdrx_matrix_Projection

  226. 功能：构造投影变换矩阵

  228. 调用格式：(xdrx_matrix_Projection <矩阵> <投影平面> <投影方向>)

  230. 返回值：3D投影转换矩阵

  232. 说明：<投影平面>--3点定的一个平面,遵循右手法则，时针方向不在一条直线上的三点(点 点 点)
  233.       <投影方向>--向量(点表示)
  234.       
  235. 310. xdrx_matrix_Wcs2Plane
  236.                                                                                                 
  237. 给未来版本保留
  238.                                                                                                                            
  239. 311. xdrx_matrix_Plane2Wcs     
  240.                                                                                             
  241. 给未来版本保留         

  243. 312. xdrx_matrix_Transpose

  245. 功能：获得一个矩阵的转置矩阵

  247. 调用格式：(xdrx_matrix_Transpose <2d or 3d矩阵>)

  249. 返回：转置后的矩阵

  251. 313. xdrx_matrix_IsSingular

  253. 功能：判断一个矩阵是否是一个奇异矩阵

  255. 调用格式：(xdrx_matrix_IsSingular <2d or 3d矩阵>)

  257. 返回：是T 否NIL

  259. 说明：使用getCoordSys获得矩阵坐标系的三个向量X,Y,Z轴，其中有一个轴向量
  260.       长度为0，既是奇异矩阵。
  261.       
  262. 314. xdrx_matrix_Translation

  264. 功能：获得一个矩阵的平移分量

  266. 调用格式：(xdrx_matrix_Translation <2d or 3d矩阵>)

  268. 返回值：向量

  270. 315. xdrx_matrix_SetTranslation

  272. 功能：设置一个矩阵的平移向量

  274. 调用格式：(xdrx_matrix_SetTranslation <2d or 3d矩阵> <平移向量>)

  276. 返回值：矩阵

  278. 说明： <平移向量>--对2D矩阵，是2D 向量
  279.                    对3D矩阵  是3D 向量
  280.                   
  281. 316. xdrx_matrix_IsEqual

  283. 功能：判断两个矩阵是否相等。

  285. 调用格式：(xdrx_matrix_IsEqual <2d or 3d矩阵> <2d or 3d矩阵>)

  287. 返回值：相等T 否NIL

  289. 317. xdrx_matrix_Product

  291. 功能：两个矩阵相乘

  293. 调用格式：(xdrx_matrix_Product <2d or 3d矩阵> <2d or 3d 矩阵>)                     

  295. 返回值：矩阵

  297. 318. xdrx_matrix->Local

  299. 功能：获得矩阵本身的NORMAL向量（坐标系Z轴）和ELEV高度值

  301. 调用格式：(xdrx_matrix->Local <三维矩阵>)

  303. 返回值：表(normal向量 elev)

  305. 319. xdrx_matrix_IsScaledOrtho

  307. 功能：测试一个矩阵的每个线性向量是否彼此正交

  309. 调用格式：(xdrx_matrix_IsScaledOrtho <2d or 3d矩阵>)

  311. 返回值：是 T 否 NIL

  313. 320. xdrx_matrix_IsUniScaledOrtho

  315. 功能：测试一个矩阵测试一个矩阵的每个线性向量是否彼此正交并且有至少有
  316.      两个向量长度相等。
  317.      
  318. 返回值：满足 T 否 NIL     

  320. 321. xdrx_matrix_Norm

  322. 功能：求三维转换矩阵绝对值最大的元素值

  324. 调用格式：(xdrx_matrix_Norm <三维矩阵>)

  326. 返回值：实数
  327. [/FONT]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

梦断江南
发表于 2002-8-6 13:48:49 | 显示全部楼层
也可作出圆柱后 align 么。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

漏网の鱼
 楼主| 发表于 2002-8-6 14:12:53 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
如果杆件的方向太多，align 没什么实际意义。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

漏网の鱼
 楼主| 发表于 2002-8-6 17:47:55 | 显示全部楼层
在晓东和qun的帮助下，问题已经解决，不妨把这个程序拿出来给大家共享：

  3. ;;向量单位化
  4. (defun nmlz(p1 p2 / x y z sum)
  5.   (setq x (- (car p2) (car p1)) y (- (cadr p2) (cadr p1)) z (- (caddr p2) (caddr p1))
  6.         sum (sqrt (+ (* x x) (* y y) (* z z)))
  7.   )
  8.   (if (zerop sum) '(0 0 0) (list (/ x sum) (/ y sum) (/ z sum)))
  9. )
  10. ;;按空间直线生成圆柱
  11. (defun mkcir(e / p1 p2 p21 w)
  12.   (setq w 1)
  13.   (setq e (entget e) p1 (cdr (assoc 10 e)) p2 (cdr (assoc 11 e)) p21 (nmlz p1 p2) p10 (trans p1 1 p21)
  14.         e (list '(0 . "CIRCLE") '(100 . "AcDbEntity") '(67 . 0) (assoc 8 e) '(100 . "AcDbCircle")
  15.                  (cons 39 (distance p1 p2)) (cons 10 p10) (cons 40 w) (cons 210 p21))
  16.   )
  17.   (entmake e)
  18. )

  20. (defun c:test( / e)
  21.   (while (setq e (entsel "\nLine")) (mkcir (car e)))
  22.   (princ)
  23. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

XDSoft

已领礼包: 145个

财富等级: 日进斗金
发表于 2002-8-6 18:44:52 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
借着小鱼的帖子，给大家写篇如果利用“图形学”矩阵转换方法，得到“三维空间的圆实体”的组码10和拉伸向量210组码。

先贴个背景材料：

CIRCLE实体的entget里面，点是按照ECS（实体座标系）储存的，
ECS定义如下：
  1、ECS的Z轴与绘制图的平面正交，也被称为“法向”，由圆的Normal属性返回（DXF里面是组码210）

  2、世界坐标系的原点（0，0，0）也是ECS的原点

  3、ECS的X轴通过“任意轴”算法，从ECS的Z轴算出。

  4、ECS的Y轴是通过ECS的Z轴和X轴向量“叉集”得到。

下面谈谈“任意轴”算法（仅根据ECS法线向量得到ECS的X轴、Y轴的方法）：

平面实体的法向向量定义了ECS的Z方向，但是仅仅规定了图形画板表面的方向，而不是它的位置。无限数量的平行平面共享一个法向。为了定义一个唯一的座标系，任意轴算法规定：ECS的原点总是必须和WCS的原点一致。这样就消除了所有平行的平面，而只留下其中一个。

现在剩下的就是确定平面中用到的其余的轴－X和Y的方向，这三个轴相互垂直，所以一旦确定了X轴，那么Y轴也很容易得到了。

如果通过Z轴获得X轴呢？AUTOCAD使用了一个名为“任意轴算法”（arbitrary axis algorithm）的技巧。因为唯一需要的参数是Z轴，所以对于AUTOCAD来说，计算X轴不成问题（把Z轴向量垂直就得到了），问题是对于给定的一个法线，总是必须计算出同样的X轴来。因此，轴可以是任意的，但是计算出来的X轴必须是唯一的，采用的方法如下：

  2. [FONT=courier new]
  3.    ECS_X=WCS_Z  x  ECS_Z  （x 表示两个向量差集，下同）
  4. [/FONT]
复制代码

在上面公式中，WCS_Z是WCS的Z轴（0，0，1）是固定的。但是有个问题：如果法向（ECS_Z）等于或很接近于WCS的Z轴（WCS_Z）怎么办？（两个向量很接近到计算机识别的误差内后，两个向量差集就会有意外结果），所以必须增加判断语句，利用WCS_Y轴（0，1，0）：

  2. [FONT=courier new]
  3.    if ESC_Z is close to WCS_Z
  4.          then
  5.             ECS_X=WCS_Y x  ECS_Z
  6.         else
  7.             ECS_X=WCS_Z x  ECS_Z

  9. [/FONT]
复制代码

现在定义“is close to”是什么意思。“任意轴算法”如下定义：
(-e < ECS_Z[X] < e) and (-e < ECS_Z[Y] < e)

上面式子说明如果两个向量（轴）是接近的，那么它们法向向量的X,Y分量小于e，一个临界值。e 值被定义为：0.015625=1.0/64.0，它是在数值和二进制格式下所能显示的最精确的值，因此它能被用来在任何支持数学运算的计算机上所得到的快速而准确的值。

一旦知道了X,Y,Z轴和原点，那么就很容易的在不同的座标系进行变换。

上面讲了关于“圆实体的ECS定义和任意轴的算法”，所以，如果我们能够得到ECS的座标系，那么就可以把WCS下的点转换到ECS下面，下面的帖子将对小鱼的例子进行探索...

下面给大家一个函数，可以通过实体的210组码的法线矢量，得到圆实体的ECS的X,Y,Z轴向量：


  3. [FONT=courier new]
  4. (defun xdrx_matrix_getecs (normal / ecs_x ecs_y)
  5.   (setq normal (xdrx_vector_Normalize normal))
  6.   (if (and
  7.         (< (abs (car normal)) (/ 1 64.0))
  8.         (< (abs (cadr normal)) (/ 1 64.0))
  9.       )
  10.     (setq ecs_x (xdrx_vector_Normalize (xdrx_vector_CrossProduct '
  11.                                                                  (0 1 0)
  12.                                                                  normal
  13.                                        )
  14.                 )
  15.     )
  16.     (setq ecs_x (xdrx_vector_Normalize (xdrx_vector_CrossProduct '
  17.                                                                  (0 0 1)
  18.                                                                  normal
  19.                                        )
  20.                 )
  21.     )
  22.   )
  23.   (setq ecs_y (xdrx_vector_CrossProduct normal ecs_x))
  24.   (list ecs_x (xdrx_vector_Normalize ecs_y) normal)
  25. )
  26. [/FONT]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

XDSoft

已领礼包: 145个

财富等级: 日进斗金
发表于 2002-8-6 19:43:59 | 显示全部楼层

                               
登录/注册后可看大图


目的：用LISP的ENTMAKE根据已知的三维空间的线，生成一个三维空间的任意的圆实体
先用ACAD交互的方法，绘制一个我们以后要用LISP生成的三维空间的圆实体。得到数据定义供以后测试比较。
用生成圆，圆心和法线是两个很重要的数据。

命令: (entget (entlast)) ;;上面图中最终通过ACAD交互画得得圆实体的数据定义
((-1 . <图元名: 400a9c28>) (0 . "CIRCLE") (330 . <图元名: 400a9d18>) (5 . "7D")
(100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (62 . 2) (100 .
"AcDbCircle") (39 . 5.91608) (10 1.20049 2.63796 2.36643) (40 . 1.0) (210
0.845154 0.507093 0.169031))

下面我们的任务就是如何通过已知的三维空间直线，得到上面的圆实体关键数据组码10和210

首先，我们得的法线210组码值的过程：

命令: (setq normal (mapcar '- p2 p1))  ;;p2直线终点，p1直线起点，获得要画圆的法线向量
(5.0 3.0 1.0)

命令: (setq normal (xdrx_vector_normalize normal)) ;;向量单位化
(0.845154 0.507093 0.169031)

可见，我们得到了法线，结果和交互画出的圆的210组码值相同。

下面我们探索如何获得关键的圆心的ECS座标值，原理是先得到圆实体的ECS座标系，然后把世界座标系LINE
的起点（圆的圆心）座标转换到圆实体的ECS下面，过程如下：

命令: (setq ecs (xdrx_matrix_getecs normal))  ;;通过法线向量，获得圆实体的ECS的X,Y,Z轴向量
((-0.514496 0.857493 0.0) (-0.144943 -0.0869657 0.985611) (0.845154 0.507093
0.169031))

命令: (setq wcs (list (1.0 0.0 0.0 0.0) (0.0 1.0 0.0 0.0) (0.0 0.0 1.0 0.0)))
((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0)) ;;WCS下的X,Y,Z轴向量

命令:(setq src (cons '(0 0 0) wcs)) ;;构建WCS座标系原点和轴数据
((0 0 0) (1.0 0.0 0.0 0.0) (0.0 1.0 0.0 0.0) (0.0 0.0 1.0 0.0) (0.0 0.0 0.0
1.0))

命令: (setq dest (cons '(0 0 0) ecs));;构建圆实体ECS座标系原点和轴数据
((0 0 0) (-0.514496 0.857493 0.0) (-0.144943 -0.0869657 0.985611) (0.845154
0.507093 0.169031))

命令: (setq tt (xdrx_matrix_aligncoordsystem dest src));;构建ECS座标系到WCS座标系的转换矩阵
((-0.514496 0.857493 0.0 0.0) (-0.144943 -0.0869657 0.985611 0.0) (0.845154
0.507093 0.169031 0.0) (0.0 0.0 0.0 1.0))

命令: (setq pp1 (xdrx_point_transform p1 tt)) ;;把转换矩阵作用到直线起点P1上
(1.20049 2.63796 2.36643)

(1.20049 2.63796 2.36643)可以看到这个结果和我们开始交互画的圆的组码10是一致的。


上面我们获得了要画"空间圆"的关键数据圆心在ECS下的座标，和拉伸向量组码210的值，我们就可以利用LISP的ENTMAKE函数
轻松的建立实体了（这样的方法很快，不用使用UCS命令来来回切换座标系，对于复杂的三维空间的操作提高了速度）

上面是通过图形学的原理，利用XDRX_API关于矩阵操作的函数进行的探索，矩阵在ACAD数据库中起的作用是非常巨大的，图形学
离不开矩阵变换，如果我们能把一种应用（比如移动、旋转、镜像、COPY或者这些操作的组合）的转换矩阵构建出来，问题也就
解决了。把矩阵作用到点上，就可以把点在不同坐标系下变换，作用到实体上，就会对实体变换，在ACAD内部，不知道什么是移动、拷贝
旋转、镜像、投影变换等等，知道的只是一个对象和一个要对对象操作的变换矩阵。大家掌握了矩阵的方法，很多应用都可以得心应手。

XDRX_API提供了ObjectARX几何库关于向量和矩阵操作的所有方法，也提供了对几何对象（点等）和数据库对象进行变换的方法，
比如：得到矩阵后，用xdrx_point_transform可以变换点，xdrx_entity_transfrom可以对实体变换，xdrx_entity_transfromedcopy对实体
进行COPY变换（原实体不变），这些都是最底层的ARX方法，无论是效率和方便性上，使用XDRX_API都可以让你使用ARX的方法和
思维去写LISP程序。

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

漏网の鱼
 楼主| 发表于 2002-8-7 09:32:52 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
总算领略了XDRX_API的厉害，更对XD的广告本领佩服的五体投地:)
其实在点的变换当中，利用TRANS还是比自己写函数要方便一些。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

XDSoft

已领礼包: 145个

财富等级: 日进斗金
发表于 2002-8-7 10:17:05 | 显示全部楼层
最初由 漏网之鱼 发布
[B]总算领略了XDRX_API的厉害，更对XD的广告本领佩服的五体投地:)
其实在点的变换当中，利用TRANS还是比自己写函数要方便一些。 [/B]


上面仅仅是利用这个应用，简单的介绍了矩阵的应用，上面可以说是深入到了TRANS的内部，但是很多时候不是TRANS能解决问题的。ACAD的图形，每个地方都能体现到矩阵的作用。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

aeo

已领礼包: 488个

财富等级: 日进斗金
发表于 2002-8-24 23:27:36 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
再举例好吗
直线为任意空间的多义线
圆改为任意空间的多义线
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

madbull
发表于 2003-5-26 12:48:09 | 显示全部楼层

[求助]：[求助]：如何沿着PL线、圆，弧，空间曲线、折线等创建条块、圆管？

我经常用ＣＡＤ建模，遇到建网架的时候就感到非常麻烦。请各位大侠帮我编一个程序，用来沿着PL线、圆，弧，空间曲线、折线等创建条块、圆管。这里说指的“条块”，实际上就是矩形截面（也可以是正方形）。我希望只要输入圆的半径、矩形的边长，然后点击（或框选）事先准备好的PL线、圆，弧，空间曲线、折线，就直接生成圆管和“条块”。
另外，要是能编一个程序，在线与线的交点处直接生成球体（网架焦点处的球体），就更好了。
谢谢，拜托！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

ww90
发表于 2003-5-27 11:00:28 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
这里，3dpipe,从书上超来的，用空间路径建立3d弯管。你问题解的超集。

websamba.com/cadex
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

LUCAS
发表于 2003-5-29 10:28:26 | 显示全部楼层

  3. ;;最近很忙先给你挤出圆管程序<FOR 2D ONLY>
  4. ;;by LUCAS(龙龙仔)
  5. (vl-load-com)
  6. (arxload "geom3d.arx" NIL)
  7. (defun C:VV (/ ENAME VL-OBJ X RAD SPT EPT ENT)
  8.   (setq        ENAME  (car (entsel "\n选取挤出路径: "))
  9.         VL-OBJ (vlax-ename->vla-object ENAME)
  10.   )
  11.   (setq        X (vlax-curve-getparamatpoint
  12.             VL-OBJ
  13.             (vlax-curve-getpointatparam
  14.               VL-OBJ
  15.               (vlax-curve-getparamatdist
  16.                 VL-OBJ
  17.                 0
  18.               )
  19.             )
  20.           )
  21.   )
  22.   (setq        RAD (getdist (setq SPT (vlax-curve-getstartpoint VL-OBJ))
  23.                      "\n半径: "
  24.             )
  25.   )
  26.   (command "_.circle" SPT RAD)
  27.   (setq ENT (entlast))
  28.   (setq
  29.     EPT        (polar SPT
  30.                (+ (/ pi 2)
  31.                   (angle '(0 0 0) (vlax-curve-getfirstderiv VL-OBJ X))
  32.                )
  33.                0.001
  34.         )
  35.   )
  36.   (rotate3d ENT SPT EPT 90)
  37.   (command "_.extrude" ENT "" "p" ENAME)
  38.   (princ)
  39. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

madbull
发表于 2003-5-29 15:28:06 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
to   LUCAS:
谢谢，您的程序是好使的。
只是－－只能点选，不能框选（一次选择多个，然后确定直径）。能否改进一下？
期待着您的“条块”和“球节点”程序。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
对不起，在使用过程中，发现您的程序有两个小小的问题：
１、受UCS的限制。当UCS变化时，圆管不能生成，或者生成的圆管不再路径直线上；
２、用“样条曲线”为路径生成圆管时，半径不一致，圆钢管中段有“鼓肚”的现象（中见段比两端粗）。
望予以解决，谢谢！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

下一页 »
12下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2025-9-27 21:15 , Processed in 0.219535 second(s), 61 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

快速回复 返回顶部 返回列表