[LISP函数]：转换坐标系的小工具

papayaa

大家经常需要画与一条斜线垂直的直线，这个小工具起到这个作用。
FA ，选择一条直线。如果是多段线的话，就需要在多段线上再选择两点。
AF，恢复直角坐标系。

非常有用的工具。今天刚完善好。

papayaa

演示文件

max_yu_2003

需要编程吗，CAD里不是自带这两个命令吗？

papayaa

你作设计就知道用还是不用了。

mikary

这个程序收币就有点太滥竽充数了，楼主的方法比CAD自带的命令还麻烦。

(defun c:cz()(command "._ucs" "z"))
(defun c:zf()(command "._ucs" "n" "ob"))
(defun c:zw()(command "._ucs" "w"))

蔡钰林

最初由 mikary 发布
[B]这个程序收币就有点太滥竽充数了，楼主的方法比CAD自带的命令还麻烦。

(defun c:cz()(command "._ucs" "z"))
(defun c:zf()(command "._ucs" "n" "ob"))
(defun c:zw()(command "._ucs" "w")) [/B]

用命令当然可以解决，编程的目的也是为了提高效率呀。
5楼的UCS命令与“SNAPANG ”系统变量产生的效果是完全不一样。
defun c:zf()(command "._ucs" "n" "ob"))这已经改变了用户坐标系（看UCS图标就知）。

而系统变量SNAPANG只是改变了“当前视口设置捕捉和栅格的旋转角”，没有改变坐标系。（UCS图标没有变化）

<font color="red">1楼的程序要是支持PLINE画的多段线就更完美了。</font>

附：CAD帮助文件中关于SNAPANG 系统变量的说明

SNAPANG 系统变量
类型：实数
保存位置：图形
初始值：0
为当前视口设置捕捉和栅格的旋转角。旋转角相对当前 UCS 指定。
对此系统变量所作的修改在显示刷新之前不会反映到栅格中。修改系统变量设置时，AutoCAD 不会进行自动重画。

papayaa

支持多段线，看我的那个多边形的演示。需要再继续在多段线上选择两个点。

xawhq

我今天才知道CAD自己也能用，谢谢。

mikary

最初由 蔡钰林 发布
[B]用命令当然可以解决，编程的目的也是为了提高效率呀。
5楼的UCS命令与“SNAPANG ”系统变量产生的效果是完全不一样。
defun c:zf()(command "._ucs" "n" "ob"))这已经改变了用户坐标系（看UCS图标就知）。

而系统变量SNAPANG只是改变了“当前视口设置捕捉和栅格的旋转角”，没有改变坐标系。（UCS图标没有变化）[/B]

看看楼主的标题：1楼楼主说：[LISP函数]：转换坐标系的小工具 这个程序我没看，为了节约币。

如果只是为了简单实现“画与一条斜线垂直的直线”这个功能的话，转换UCS和转换绘图角度实质上是没有任何区别的，但是使用CAD命令序列实现起来明显简单的多，而且ucs改变之后，对于不规则形的标注也简单了很多，dimlinear就够用了，不会用到那个一不小心就转向的dimaligned。

当然，如果不喜欢在世界坐标系下绘图的话，snapang还是有一定用途。

周可非

旋转坐标系，用UCS  打 E 选择一个物体，LINE PLINE 都行，PLINE 以你选择的那段方向为准，如果想取消旋转，UCS 空回车

xmchy

不是很完善，遇到块就不行了

蔡钰林

其实，用snapang与用UCS的区别，大家在屏幕上画一段直线，如：起点（100 100），终点（120，130），分别用snapang和UCS的方法后，查看一下它们的坐标值就能了解哪种方法最适合自己使用了。

用snapang时其坐标值未改变：
命令: '_id 指定点:  X = 100.0000     Y = 100.0000     Z = 0.0000
命令: '_id 指定点:  X = 120.0000     Y = 130.0000     Z = 0.0000

用UCS+ob或+e时，坐标值如下：
命令: '_id 指定点:  X = 0.0000     Y = 0.0000     Z = 0.0000
命令:  ID 指定点:  X = 36.0555     Y = 0.0000     Z = 0.0000

刘李篮子

楼主，做人要厚道啊，不能这样欺负新手啊！

westlake0

我要钱，我要下，感谢楼主，感谢斑竹

hao3ren

我需要，有用