不用Command如何旋转图元或选择集？【已解决】

a117034423

目前已知是xdrx_entity_rotate
还有其他办法吗？
用command 关闭对象捕捉 布置为何，有时会出错

Lisphk

用矩阵 搜索 论坛， 去看看 矩阵变换

Lisphk

【越飞越高讲堂2】用LISP论矩阵

27 个回复 - 10031 次查看

用LISP论矩阵矩阵的LISP程序，国内讨论的比较少， 而国外的研究比较深入。 经过长时间的收藏和探索，我综合成了这篇帖子。 这个帖子里面的函数主要是跟CAD 相关。附件包含了本帖完整的lisp代码，还有测试样例。 ...

2013-4-17 10:08 - Highflybird - 算法与数据结构

用矩阵旋转图元的方法，这样么写对么

20 个回复 - 422 次查看

刚接触矩阵，试着写了一个动态拖动旋转的联系，总是感觉写的太繁琐求指导一下，有什么其他好方法。我知道有封装的函数xdrx_drag_rotate 只是针对这个练习

2017-9-2 11:26 - brainstorm - XDRX_API技术支持

• 和晓东一起学矩阵（2）--不同坐标系之间的矩阵变换
  10 个回复 - 4172 次查看
  本次教学讲解如何将一个文本，按照文本包围盒的”中心点“贴到另外一个坐标系的指定点。（从平面文字帖到一个楼房的立面上） 1、得到文本实体的实体坐标系（坐标原点是文本的左下点，X轴是文本的输入方向，Y轴是 ...
  2013-5-10 23:14 - XDSoft - XDRX_API应用
• 和晓东一起学矩阵（4）比例变换（重写SCALE命令）
  3 个回复 - 2378 次查看
  本次教学给大家讲下几何图形矩阵变换中的“比例变换”（SCALE Matrix） 写了两个命令， 等比例变换 mScale 和 不等比例变换 mScale1 数学背景知识： 图形几何变换的详细文章见论文中心： http ...
  2013-5-11 15:07 - XDSoft - XDRX_API应
• 和晓东一起学矩阵（3）-- 平移矩阵（重写ACAD命令）
  0 个回复 - 22 次查看
  
  
  2013-5-11 00:04 - XDSoft - A/VLISP
  
  

矩阵、向量在计算机图形学中的应用

25 个回复 - 7831 次查看

矩阵、向量在计算机图形学中的应用

2013-4-8 11:34 - XDSoft - A/VLISP

• ACAD二次开发中矩阵运算的应用（一）--基本变换和组合变换
  9 个回复 - 2741 次查看
  这个演示讲解几种初级的基本几何变换，平移、缩放、旋转、镜像，及矩阵组合运算的初步知识。 可以使用XDRX_API，练习下矩阵的运算操作。
  2013-4-25 13:55 - XDSoft - A/VLISP
• 和晓东一起学矩阵（3）-- 平移矩阵（重写ACAD命令）
  5 个回复 - 2742 次查看
  本次教学我们讲矩阵变换最基本的-平移变换（Translation Matrix） 数学背景 平移变换是矩阵变换最基本的应用，ACAD立面的MOVE、COPY命令就是最典型的平移矩阵变换的应用。 下面我们重写ACAD的COPY命 ...
  2013-5-11 00:04 - XDSoft - XDRX_API应用
  
  

[测试]：XDAPI矩阵应用示例之自由缩放旋转。

5 个回复 - 1193 次查看

2003-2-21 23:48 - eachy - A/VLISP

Lisphk

[API应用]：[学习心得]XDAPI中几个矩阵类函数测试

4 个回复 - 1050 次查看

XDAPI中几个矩阵类函数测试 用两个单位矩阵测试：2D和3D矩阵 _$ (setq mat2 (xdrx_matrix_identity 2)) ((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0)) _$ (setq mat3 (xdrx_matrix_identity 3)) ((1.0 0.0 ...

2003-3-5 11:33 - eachy - XDRX_API技术支持

Lisphk

• 【Gu_xl】动态复制、移动（可缩放、旋转、镜像、对齐等）
  35 个回复 - 8116 次查看
  功能：选择对象进行复制或移动。复制或移动过程中可以对源对象进行缩放、旋转、镜像、对齐等动作。 源码中大量使用了矩阵运算（使用了高飞鸟的矩阵运算函数库）和动态GRREAD（自定义的带捕捉的GRREAD函数）。 程序 ...
  2013-9-24 15:33 - 牢固 - A/VLISP
• 动态拖动旋转图块（属性文字角度保持不变）
  40 个回复 - 1520 次查看
  **** 本内容被作者隐藏 ****
  2019-1-17 20:57 - newer - 每日插件
• 旋转复制
  35 个回复 - 1169 次查看
  矩阵应用 **** 本内容被作者隐藏 ****
  2018-9-10 18:38 - Lispboy - 每日插件
• 【工具】批量原地旋转对象（以自身的几何中心）
  2 个回复 - 73 次查看
  
  
  2020-6-28 00:23 - marting - 每日插件
  
  

marting

构建旋转变换矩阵，然后作用到实体上

下面是实体绕自身中心点旋转的示例代码

1. (defun c:tt1 ()
   
2.   (if (and (setq rot (getreal "\n旋转角度<退出>:"))
   
3.            (setq rot (xdrx-math-dtr rot))
   
4.            (setq ss (xdrx-ssget "\n旋转原地旋转的对象<退出>:"))
   
5.       )
   
6.     (progn
   
7.       (mapcar '(lambda (x)
   
8.                  (setq cen (xd::geom:get9pt x 5)
   
9.                        mat (xdrx-matrix-setrotation rot '(0 0 1) cen)
   
10.                  )
    
11.                  (xdrx-entity-transform x mat)
    
12.                )
    
13.               (xdrx-pickset->ents ss)
    
14.       )
    
15.     )
    
16.   )
    
17.   (princ)
    
18. )
    
19. 
    

(defun c:tt1 ()<br />   (if (and (setq rot (getreal "\n旋转角度<退出>:"))<br />            (setq rot (xdrx-math-dtr rot))<br />            (setq ss (xdrx-ssget "\n旋转原地旋转的对象<退出>:"))<br />       )<br />     (progn<br />       (mapcar '(lambda (x)<br />                  (setq cen (xd::geom:get9pt x 5)<br />                        mat (xdrx-matrix-setrotation rot '(0 0 1) cen)<br />                  )<br />                  (xdrx-entity-transform x mat)<br />                )<br />               (xdrx-pickset->ents ss)<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

a117034423

marting 发表于 2020-12-31 16:49
构建旋转变换矩阵，然后作用到实体上

下面是实体绕自身中心点旋转的示例代码

谢谢老大的代码 道理我是懂了，可是是什么原因导致 rotate和vla-rotate有时旋转会出错呢？

marting

a117034423 发表于 2020-12-31 21:42
谢谢老大的代码 道理我是懂了，可是是什么原因导致 rotate和vla-rotate有时旋转会出错呢？

你的代码？
出错是什么现象尼？
你的本意是什么，详细的说清楚下，最好截图

a117034423

marting 发表于 2020-12-31 21:56
你的代码？
出错是什么现象尼？
你的本意是什么，详细的说清楚下，最好截图

我在做等分凸凹直角多边形
如果 多边形 与X轴夹角不是0 90 180 的话
我想先把矩形转到水平
然后等分完 再旋转回去

1. (if (not (or (equal (abs (- (setq ang1 (angle (car mod0) (cadr mod0))) pi)) 0 1e-5)
   
2.                (equal (abs (- ang1 pi)) (/ pi 2) 1e-5)
   
3.           ))
   
4.       (progn
   
5.       (setq strpt (car mod0)) ;旋转点坐标
   
6.       (vla-Rotate (vlax-ename->vla-object yy) (vlax-3d-point strpt) (- (* pi 2) ang1))
   
7.       (setq mod0 (vl-remove nil (mapcar '(lambda (x) (if (= (car x) 10) (cdr x))) (entget yy))))
   
8.       );旋转判断函数，若不为正交则旋转
   
9.       )
   
10. ;等分完之后旋转
    
11. (repeat (setq xznn (sslength bty))
    
12.             (vla-Rotate (vlax-ename->vla-object (ssname bty (setq xznn (1- xznn)))) (vlax-3d-point strpt) ang1))
    

(if (not (or (equal (abs (- (setq ang1 (angle (car mod0) (cadr mod0))) pi)) 0 1e-5)<br />                (equal (abs (- ang1 pi)) (/ pi 2) 1e-5)<br />           ))<br />       (progn<br />       (setq strpt (car mod0)) ;旋转点坐标<br />       (vla-Rotate (vlax-ename->vla-object yy) (vlax-3d-point strpt) (- (* pi 2) ang1))<br />       (setq mod0 (vl-remove nil (mapcar '(lambda (x) (if (= (car x) 10) (cdr x))) (entget yy))))<br />       );旋转判断函数，若不为正交则旋转<br />       )<br /> ;等分完之后旋转<br /> (repeat (setq xznn (sslength bty))<br />             (vla-Rotate (vlax-ename->vla-object (ssname bty (setq xznn (1- xznn)))) (vlax-3d-point strpt) ang1))<br />

问题就出在 有时 旋转就出毛病 找不出原因 转没了 捕捉关了，而且也确认了是WCS
偶尔就出错

a117034423

marting 发表于 2020-12-31 21:56
你的代码？
出错是什么现象尼？
你的本意是什么，详细的说清楚下，最好截图

老大 你不反问 我还真没看出来 生成后旋转没加判定条件

a117034423

marting 发表于 2020-12-31 21:56
你的代码？
出错是什么现象尼？
你的本意是什么，详细的说清楚下，最好截图

新年快乐了老大，bug我都找到了，谢了

a117034423

谢谢了老大，矩阵 真是个好东西