设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 218|回复: 14

[几何] (XD::Mat:AlignCoordSys)从一个坐标系到另一个坐标系的变换矩阵

[复制链接]

签到天数: 527 天

连续签到: 5 天

[LV.9]以坛为家II

已领礼包: 20个

财富等级: 恭喜发财

发表于 2018-4-1 18:56:53 | 显示全部楼层 |阅读模式
函数发布
函数名称: XD::Mat:AlignCoordSys
调用格式: (XD::Mat:AlignCoordSys src dest)
参数说明: src ----- 表 (原点 X轴向量 Y轴向量),0表示WCS,1表示UCS
dest ----- 表 (原点 X轴向量 Y轴向量),0表示WCS,1表示UCS
返回值: 4阶矩阵
函数简介: 从一个坐标系到另一个坐标系的变换矩阵
函数来源: 原创
函数作者: marting
适用版本: 不限 
最后更新时间: 2018-04-01
备注: 用 原点 X轴 Y轴 表示一个坐标系
演示图片: -

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

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
本帖最后由 newer 于 2018-4-2 14:37 编辑

游客,如果您要查看本帖隐藏内容请回复

具体应用:


202505qs7rqsglawq00w07.gif

  1. (defun c:tt ()
  2.   (princ "\n拾取文字<退出>:")
  3.   (if (setq ss (ssget '((0 . "TEXT"))))
  4.     (progn (setq i -1)
  5.            (while (setq e (ssname ss (setq i (1+ i))))
  6.              (setq box (textbox (entget e))
  7.                    p1  (car box)
  8.                    p3  (cadr box)
  9.                    p2  (list (car p3) 0.0 0.0)
  10.                    p4  (list (car p1) (cadr p3) 0.0)
  11.                    box (list p1 p2 p3 p4)
  12.                    obj (vlax-ename->vla-object e)
  13.                    ori (vla-get-insertionpoint obj)
  14.                    ori (xd::vla:variant->value ori)
  15.                    ang (vla-get-rotation obj)
  16.                    vx  (mapcar '- (polar ori ang 1.0) ori)
  17.                    vx  (xd::vec:normalize vx)
  18.                    vy  (xd::vec:perp vx)
  19.                    mat (xd::mat:aligncoordsys (list ori vx vy) 0)
  20.                    box (xd::object:transform box mat)
  21.              )
  22.              (entmake (list '(0 . "LWPOLYLINE")
  23.                             '(100 . "AcDbEntity")
  24.                             '(410 . "Model")
  25.                             '(100 . "AcDbPolyline")
  26.                             '(62 . 2)
  27.                             '(90 . 4)
  28.                             '(70 . 1)
  29.                             (cons 10 (car box))
  30.                             (cons 10 (cadr box))
  31.                             (cons 10 (caddr box))
  32.                             (cons 10 (last box))
  33.                       )
  34.              )
  35.            )
  36.     )
  37.   )
  38.   (princ)
  39. )

关于文字框坐标变换的理解见:

http://bbs.xdcad.net/forum.php?mod=redirect&goto=findpost&ptid=715211&pid=3660800&fromuid=5280

221423txq9o6wx9v9sqp95.gif.thumb.jpg

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

签到天数: 1469 天

连续签到: 1 天

[LV.10]以坛为家III

已领礼包: 2476个

财富等级: 金玉满堂

发表于 2018-4-1 19:01:25 | 显示全部楼层
看收集一下能不解决我的问题..真是不懂矩阵呢..
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 527 天

连续签到: 5 天

[LV.9]以坛为家II

已领礼包: 20个

财富等级: 恭喜发财

 楼主| 发表于 2018-4-1 19:07:05 | 显示全部楼层
q3_2006 发表于 2018-4-1 19:01
看收集一下能不解决我的问题..真是不懂矩阵呢..

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

使用道具 举报

签到天数: 1469 天

连续签到: 1 天

[LV.10]以坛为家III

已领礼包: 2476个

财富等级: 金玉满堂

发表于 2018-4-1 19:27:19 | 显示全部楼层
marting 发表于 2018-4-1 19:07
这个就是解决你那个文本框的。

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

使用道具 举报

签到天数: 1329 天

连续签到: 13 天

[LV.10]以坛为家III

已领礼包: 1325个

财富等级: 财源广进

发表于 2018-4-1 19:38:11 | 显示全部楼层
矩阵门外汉,进来学习下.
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 1591 天

连续签到: 48 天

[LV.Master]伴坛终老I

点击这里给我发消息

已领礼包: 4443个

财富等级: 富可敌国

发表于 2018-4-1 20:00:04 | 显示全部楼层
不懂矩阵呢
没学习啊
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 1960 天

连续签到: 139 天

[LV.Master]伴坛终老I

已领礼包: 5428个

财富等级: 富甲天下

发表于 2018-4-1 20:00:11 | 显示全部楼层
XDAPI里有不少矩阵的函数
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 527 天

连续签到: 5 天

[LV.9]以坛为家II

已领礼包: 20个

财富等级: 恭喜发财

 楼主| 发表于 2018-4-1 20:35:05 | 显示全部楼层
ynhh 发表于 2018-4-1 20:00
不懂矩阵呢
没学习啊

不用懂矩阵的数学原理,知道用怎么构建,怎么变换的函数就够了。不清楚的可以单独到LISP论坛发帖。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 1933 天

连续签到: 68 天

[LV.Master]伴坛终老I

已领礼包: 5662个

财富等级: 富甲天下

发表于 2018-4-2 07:26:07 | 显示全部楼层
感谢高手分享程序!!!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 1387 天

连续签到: 12 天

[LV.10]以坛为家III

已领礼包: 604个

财富等级: 财运亨通

发表于 2018-4-2 07:46:21 | 显示全部楼层
感谢高手分享程序!!!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 300 天

连续签到: 86 天

[LV.8]以坛为家I

已领礼包: 698个

财富等级: 财运亨通

发表于 2018-4-2 14:25:54 | 显示全部楼层
多谢分享!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

签到天数: 239 天

连续签到: 1 天

[LV.7]常住居民III

已领礼包: 134个

财富等级: 日进斗金

发表于 2018-4-3 12:47:10 | 显示全部楼层
支持一下顶你哦
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 1917 天

连续签到: 12 天

[LV.Master]伴坛终老I

已领礼包: 5267个

财富等级: 富甲天下

发表于 2018-4-12 08:07:56 | 显示全部楼层
非常感谢大师!!!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 206 天

连续签到: 27 天

[LV.7]常住居民III

发表于 2018-9-26 23:22:03 | 显示全部楼层
r矩阵  不太会
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 473 天

连续签到: 1 天

[LV.9]以坛为家II

已领礼包: 1086个

财富等级: 财源广进

发表于 昨天 17:37 | 显示全部楼层
看看再说,也许以后能用上
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2018-10-20 07:35 , Processed in 0.182067 second(s), 61 queries , Gzip On, WinCache On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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