CAL命令之 ‘ROT’ 函数运行不正常

zhxatsx · 发表于 2014-10-24 08:51:16

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

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

×

在CAL 命令中绕坐标轴旋转点中，rot(p,origin,ang)函数运行不正常，返回错误信息，请用过此函数的高手试解。

zhxatsx · 发表于 2014-10-24 08:53:22

运行过程：（arxload "geomcal"）

zhxatsx · 发表于 2014-10-24 08:58:55

:$ 首次使用，发贴不熟练。rot(p,origin,ang) 中P点、原点po、角度ang赋值后，运行(cal "rot(p,po,ang)")时，返回错误。？？

eachy · 发表于 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
_$
这个函数对坐标大小可能有限制,太大的坐标不会计算，需要多计算两部

(defun pnt:rotate (p p0 an / v vv)
(setq v (cal "vec1(p0,p)")
vv (cal "rot(v,[0,0,0],an)")
)
(cal "p0+vv*dist(p,p0)")
)

Free-Lancer · 发表于 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)")

Free-Lancer · 发表于 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)
_$

zhxatsx · 发表于 2014-10-24 15:28:55

谢谢指点。

zhxatsx · 发表于 2014-10-24 19:50:02

此函数对坐标值大小有限制，也可以用另一种方法计算：(cal"po+[abs(p-po)<ang]")

st788796 · 发表于 2014-10-24 20:42:37

在autocad向量一种是[x,y,z]，一种是dist<ang，殊途同归

st788796 · 发表于 2014-10-25 05:47:52

zhxatsx 发表于 2014-10-24 19:50
此函数对坐标值大小有限制，也可以用另一种方法计算：(cal"po+[abs(p-po)

需要再加上ang(p,po)角度

zhxatsx · 发表于 2014-10-25 09:09:40

:) 对，应该是 (cal"po+[abs(p-po)<(ang+ang(po,p))]")

账号		自动登录	找回密码
密码			立即注册

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

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

点评

点评