设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 63|回复: 12

[编程申请] 任一点ucs

[复制链接]

签到天数: 36 天

连续签到: 1 天

[LV.5]常住居民I

已领礼包: 42个

财富等级: 招财进宝

发表于 2017-12-7 09:52:46 | 显示全部楼层 |阅读模式

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

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

x
在晓东工具箱看到原点ucs,麻烦大神能不能编个任一点ucs呢,就是在屏幕上指定任意一点,然后在命令栏录入坐标如(3,4,5),该坐标为新坐标系中的对应坐标!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

签到天数: 1047 天

连续签到: 8 天

[LV.10]以坛为家III

已领礼包: 40个

财富等级: 招财进宝

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

使用道具 举报

签到天数: 696 天

连续签到: 2 天

[LV.9]以坛为家II

已领礼包: 19个

财富等级: 恭喜发财

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

使用道具 举报

签到天数: 36 天

连续签到: 1 天

[LV.5]常住居民I

已领礼包: 42个

财富等级: 招财进宝

 楼主| 发表于 2017-12-7 17:18:11 | 显示全部楼层
本帖最后由 hongliang224 于 2017-12-7 17:44 编辑

原坐标系为xy坐标系,新坐标系为AB坐标系,圆圈处点坐标相对于AB坐标系为(3,4,-5),用什么途径能实现在xy坐标系下只通过一个点(该点为AB坐标系下的点(3,4,-5),非AB坐标系的原点)转换到AB坐标系!
1.jpg
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 36 天

连续签到: 1 天

[LV.5]常住居民I

已领礼包: 42个

财富等级: 招财进宝

 楼主| 发表于 2017-12-7 17:25:30 | 显示全部楼层

不知道说清楚没有,原坐标系XY,转换到新坐标系AB,坐标轴只存在平移不存在旋转!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 36 天

连续签到: 1 天

[LV.5]常住居民I

已领礼包: 42个

财富等级: 招财进宝

 楼主| 发表于 2017-12-7 17:32:54 | 显示全部楼层
本帖最后由 hongliang224 于 2017-12-7 17:46 编辑

简单点来说就是我在xy坐标系屏幕上点击一下圆圈处圆心,然后在命令栏输入(3,4,-5),然后自动给我构建成了AB坐标系,大神有办法实现没!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 696 天

连续签到: 2 天

[LV.9]以坛为家II

已领礼包: 19个

财富等级: 恭喜发财

发表于 2017-12-7 17:34:49 | 显示全部楼层

从你上面的图来说,圆圈的坐标(AB下), 都应该是正值啊,你怎么都是负值了?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 36 天

连续签到: 1 天

[LV.5]常住居民I

已领礼包: 42个

财富等级: 招财进宝

 楼主| 发表于 2017-12-7 17:35:39 | 显示全部楼层

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

使用道具 举报

签到天数: 36 天

连续签到: 1 天

[LV.5]常住居民I

已领礼包: 42个

财富等级: 招财进宝

 楼主| 发表于 2017-12-7 17:42:38 | 显示全部楼层

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

使用道具 举报

签到天数: 1047 天

连续签到: 8 天

[LV.10]以坛为家III

已领礼包: 40个

财富等级: 招财进宝

发表于 2017-12-7 17:59:02 | 显示全部楼层

试试

  1. (defun c:tt ( / coord pt pt1 pt2 x)
  2.   (if (and
  3.         (setq pt (getpoint "\n拾取目标坐标系内的一点<退出>:"))
  4.         (/= "" (setq pt2 (getstring "\n输入该点在目标坐标系的坐标(x,y,z)<退出>:")))
  5.         (setq pt2 (xdrx_string_regexps "^(-?[0-9.]+),(-?[0-9.]+),(-?[0-9.]+)$"
  6.                                        pt2
  7.                   )
  8.         )
  9.       )
  10.     (progn
  11.       (setq coord (mapcar
  12.                     '(lambda (x)
  13.                        (- (atof x))
  14.                      )
  15.                     (xdrx_string_split (car pt2) ",")
  16.                   )
  17.       )
  18.       (setq pt (trans pt 1 0))
  19.       (setq pt1 (mapcar
  20.                   '+
  21.                   pt
  22.                   coord
  23.                 )
  24.       )
  25.       (xdrx_ucs_set pt1 (getvar "viewdir"))
  26.       (xdrx_prompt "\n已经设置当前坐标系.")
  27.     )
  28.   )
  29.   (princ)
  30. )


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

使用道具 举报

签到天数: 36 天

连续签到: 1 天

[LV.5]常住居民I

已领礼包: 42个

财富等级: 招财进宝

 楼主| 发表于 2017-12-8 22:40:26 | 显示全部楼层

谢谢版主,效果基本达到了!
要是稍微改进一下就更完美了,因为我一张cad图要多次变换ucs坐标系(上百次),而且每次点击屏幕都要输入相同的坐标,比如(3,4,-5)能不能把输入坐标这个过程给省了,坐标有变化就输入坐标,没有变化就默认上次ucs输入的坐标。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 1047 天

连续签到: 8 天

[LV.10]以坛为家III

已领礼包: 40个

财富等级: 招财进宝

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

使用道具 举报

签到天数: 36 天

连续签到: 1 天

[LV.5]常住居民I

已领礼包: 42个

财富等级: 招财进宝

 楼主| 发表于 2017-12-9 16:37:59 | 显示全部楼层

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2018-7-17 07:54 , Processed in 0.204570 second(s), 56 queries , Gzip On, WinCache On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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