【0621】【编程申请】坐标系转换暨图形坐标还原

heroaming

在这里看到很多坐标转换和坐标标注的程序,发现基本上还没有算法严密的。对图形计算机坐标系和地理坐标系转换中图形的平移，旋转。缩放等算法没有完全体现出来。故经过转换或的图形标注坐标实际误差还很大。希望大家能完善他。
要解决的问题是：
1、一张设计出的图纸并不是坐北朝南的，而是角度有点斜的，如何操作使它变正
2、原点什么的都不知道在哪里，如何将现有图纸的坐标系统与实际的坐标系统吻合
3、设置UCS。世界坐标系转测量坐标系操作。
4、容差。
5、精度。
功能要求
1、有对话框，能进行参数设置
2、自动转换程度高，只要选好已知的图幅范围的最远两点，并输入真实坐标，然后就能矫正成功。
3、基于ACAD的外挂程序或独立ACAD
其他暂时没想到，集思广义，大家共同来完善。
大家,怎么忍心让这么好的帖子沉下去啊

xcajcj

我一般是手工操作坐标系的问题，具体方法你可以去这里http://free.ys168.com/?xcajcj下载一个“CAD坐标系转换操作实例.rar”文件来看一下。

eachy

用 Align 命令对齐图形

heroaming

老大你终于看到这个帖子了.恐怕这个程序要用到你这些

最初由 eachy 发布
[B][CODE]
;;设置坐标系的合作转换矩阵
(defun xd-matrix_setcoordsystem        (pt vx vy vz)
  (if (= (length pt) 2)
    (setq pt (xd-point->3d pt 0.))
  )
  (if (= (length vx) 2)
    (setq vx (xd-point->3d...
;;
;;获取指定UCS的转换矩阵
(defun xd-getucsMatrix (ucsname / code10 code11 code12 _z)
  (if (= ucsname "")
    (progn
      (setq code10 (getvar "ucsorg")
            code11 (getvar "ucsxdir")
[/B]

等,主要图太大要不传上了大家试试
动了手才知道!

heroaming

这么"简单"的问题放到晓东论坛,能这么"简单"的完成至于么?!
我可没小看大家!
我可是诚心的求助!

xcajcj

最初由 heroaming 发布
[B]这么"简单"的问题放到晓东论坛,能这么"简单"的完成至于么?!
我可没小看大家!
我可是诚心的求助! [/B]

你图纸本身也有问题。不过还是有一个很简单的办法可以转为测量坐标系。

命令: *取消*

命令: ucs

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

指定绕 Y 轴的旋转角度 <90.00000>: 180

命令: _move
MOVE
选择对象: all
找到 69004 个

选择对象:
指定基点或位移: 指定位移的第二点或 <用第一点作位移>: 127207.273,568793.695

命令: z ZOOM
指定窗口角点，输入比例因子 (nX 或 nXP)，或
[全部(A)/中心点(C)/动态(D)/范围(E)/上一个(P)/比例(S)/窗口(W)] <实时>: e
正在重生成模型。

注意：用移动命令时基点捕捉不要错了（我捕捉的是下图中白色小圆处交点）。

heroaming

最初由 xcajcj 发布
[B]我一般是手工操作坐标系的问题，具体方法你可以去这里http://free.ys168.com/?xcajcj下载一个“CAD坐标系转换操作实例.rar”文件来看一下。 [/B]

记得xcajcj大侠说过知道AUTCAD的命令执行顺序和方式，编程很容易。是否能给LISP程序呢？有对话框，能进行参数设置，和矫正操做。两个已知坐标输入，真实值，和图上选点CAD值。谢谢！

                               
登录/注册后可看大图