坐标系矢量怎样设置

nicp

LISP程序中, 在WCS坐标下构造的一个矢量, 怎样才能够将其指定为CAD系统的当前UCS坐标系统呢? UCSORG等坐标变量又不允许SETVAR, TRANS函数好像也做不了这样的事。请帮帮忙吧, 谢谢。

陈伯雄

nicp

陈老师打扰了。因工作需要我初学LISP编程，可能有些想法、问题比较菜，请陈老师以及坛上诸位高手、前辈谅解。我的想法是在系统当前UCS下有了一个实体，比如一条直线，现在需要将当前UCS坐标X轴旋转与之重合形成新的UCS坐标系统，这样就可以根据已知矢量夹角、模方便地画出下一根线。这样连续画线就很方便了，而不需费劲地去把夹角转换为相对前一个UCS坐标X轴的夹角了。之所以要如此作，是因为用UCS命令操作弄烦了。

陈伯雄

1〉原始条件
2〉最终目标

nicp

可能词不达意，惭愧。初始条件是在CAD系统当前UCS坐标下存在一个实体，其法矢是已知，要想达到的目的就是定义一个用户自己的坐标系，该坐标的X轴分量与前述法矢平行。然后想法把用户坐标定义为CAD承认的UCS，之后可以在这个坐标系下绘制图形。我所不清楚的是如何才能把用户自定义坐标设置为系统当前UCS。谢谢。

陈伯雄

命令: ucs
当前 UCS 名称: *世界*
输入选项
[新建(N)/移动(M)/正交(G)/上一个(P)/恢复(R)/保存(S)/删除(D)/应用(A)/?/世界(W)]
<世界>: n

指定新 UCS 的原点或 [Z 轴(ZA)/三点(3)/对象(OB)/面(F)/视图(V)/X/Y/Z] <0,0,0>: ob

选择对齐 UCS 的对象:

nicp

恰恰是我想要在程序中实现UCS命令的这个功能，免除用户不断指定原点、拾取对象来建立新的UCS坐标的麻烦。在一个已知线段的基础上，让程序仅需用户给出后续相应直线段长度及相互间的夹角，便能连续逐段绘制多转折的线段。不知我这个思路好不好？或有别的解决方法？谢谢。

陈伯雄

nicp

脑筋没转过弯来，正是茅塞顿开呀。谢谢。问题解决了。
不过，CAD中"UCS"定义当前用户坐标的实质是不是就是对含坐标原点的矢量矩阵求解？其过程大概又是怎样的呢？打破沙锅问到底了，烦不烦呀：）
另，什么时候挂在论坛上的人比较多？主要是想方便交谈。

陈伯雄