找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 1045|回复: 10

[研讨] CAL命令之 ‘ROT’ 函数运行不正常

[复制链接]
发表于 2014-10-24 08:51:16 | 显示全部楼层 |阅读模式

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

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

×
在CAL 命令中绕坐标轴旋转点中,rot(p,origin,ang)函数运行不正常,返回错误信息,请用过此函数的高手试解。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
 楼主| 发表于 2014-10-24 08:53:22 | 显示全部楼层
运行过程:(arxload "geomcal")
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2014-10-24 08:58:55 | 显示全部楼层
:$ 首次使用,发贴不熟练。rot(p,origin,ang) 中P点、原点po、角度ang赋值后,运行(cal "rot(p,po,ang)")时,返回错误。??

点评

_$ (cal "rot([33,221,0.0],[0,0,0],90)") (-221.0 33.0 0.0) _$ (cal "rot([34,221,0.0],[0,0,0],90)") (-221.0 34.0 0.0) _$ (cal "rot([35,221,0.0],[0,0,0],90)") nil _$ 这个函数对坐标大小可能有限制,  详情 回复 发表于 2014-10-24 11:08
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 593个

财富等级: 财运亨通

发表于 2014-10-24 11:08:52 | 显示全部楼层
zhxatsx 发表于 2014-10-24 08:58
首次使用,发贴不熟练。rot(p,origin,ang) 中P点、原点po、角度ang赋值后,运行(cal "rot(p,po,ang)")时 ...

_$ (cal "rot([33,221,0.0],[0,0,0],90)")
(-221.0 33.0 0.0)
_$ (cal "rot([34,221,0.0],[0,0,0],90)")
(-221.0 34.0 0.0)
_$ (cal "rot([35,221,0.0],[0,0,0],90)")
nil
_$
这个函数对坐标大小可能有限制,太大的坐标不会计算,需要多计算两部
  1. (defun pnt:rotate (p p0 an / v vv)
  2.   (setq        v  (cal "vec1(p0,p)")
  3.         vv (cal "rot(v,[0,0,0],an)")
  4.   )
  5.   (cal "p0+vv*dist(p,p0)")
  6. )



点评

合并到一句 (cal "p0+rot(vec1(p0,p),[0,0,0],an)*dist(p,p0)")  详情 回复 发表于 2014-10-24 11:24
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2014-10-24 11:24:24 | 显示全部楼层
eachy 发表于 2014-10-24 11:08
_$ (cal "rot([33,221,0.0],[0,0,0],90)")
(-221.0 33.0 0.0)
_$ (cal "rot([34,221,0.0],[0,0,0],90)" ...

合并到一句
(cal "p0+rot(vec1(p0,p),[0,0,0],an)*dist(p,p0)")



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

使用道具 举报

发表于 2014-10-24 11:30:02 | 显示全部楼层
本帖最后由 Free-Lancer 于 2014-10-24 11:31 编辑

另外一个用法示意

_$ (setq p '(1000.00 1232.321 100.00))
(1000.0 1232.32 100.0)
_$ (setq p1 '(13.0 12.0 1.0))
(13.0 12.0 1.0)
_$ (setq p2 '(15.0 23.0 3.0))
(15.0 23.0 3.0)
_$ (setq an 35)
35
_$ (c:cal "p1+rot(vec1(p,p1),[0,0,0],vec1(p2,p1),an)*dist(p,p1)")
(-907.489 -1138.44 -548.855)
_$

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

使用道具 举报

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

使用道具 举报

 楼主| 发表于 2014-10-24 19:50:02 | 显示全部楼层
此函数对坐标值大小有限制,也可以用另一种方法计算:(cal"po+[abs(p-po)<ang]")
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1268个

财富等级: 财源广进

发表于 2014-10-24 20:42:37 来自手机 | 显示全部楼层
在autocad向量一种是[x,y,z],一种是dist<ang,殊途同归
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1268个

财富等级: 财源广进

发表于 2014-10-25 05:47:52 来自手机 | 显示全部楼层
zhxatsx 发表于 2014-10-24 19:50
此函数对坐标值大小有限制,也可以用另一种方法计算:(cal"po+[abs(p-po)


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

使用道具 举报

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 20:54 , Processed in 0.293949 second(s), 49 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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