[求助]：CAD中坐标画反了怎么办？！！

hedaiyong

斑竹大哥，我找到解决办法了!
八楼那位兄弟说的完全正确!
不过还可以简化一下：选中整个图，以45度角的方向线“/”为镜像轴线，镜像后以图中一点为基点移动到正确位置即可。

如果说得复杂一点，也可以这样：


  就是以图中任一条线为参照线，把X和Y反过来画（就是把画错的数学坐标画为地理坐标），然后连接参照线和画好的线，连接两线相应端点，以两连接线中点为镜像轴线(如果没错的话，这条线与3点钟线夹角是45度），镜像原来画好的图，搞掂，只不过原标注是反的（反正也是错的），就解决了！

xyp1964

画图n多年，居然没看懂，能否给个实例？最好就是你画错的那张，太“不可思议”了……

simancora

从坐标0，0点画＋45度的斜线，然后以此线为对称轴镜像所输错的坐标点，不用再移动什么的，即符合目的！

blackspot

同意楼上，简洁。

xyp1964

最初由 simancora 发布
[B]从坐标0，0点画＋45度的斜线，然后以此线为对称轴镜像所输错的坐标点，不用再移动什么的，即符合目的！ [/B]

自己应该实际试试，镜像过去会在什么位置，不会跑到路旁的稻田里吧？或者说，该需要标注的地方却什么都没有！
真以“坐标0，0点画＋45度的斜线再镜像”，标注会差得十万八千里！
给你个实例来试试：

xyp1964

坐标问题实例：

blackspot

与斑竹商榷：本问题的始发人应该是因为图画反了需要改正，而不是坐标标注错了的原因。故我在8楼时先问一句“是图纸画反了吗？”。
图纸中如果标注得再详尽、美观，但是图纸反了，说不过去，对总图来说这是原则问题。我个人认为应先校正图纸到正位，其它的问题均应放在第二位，即使标注、文字错位了也不应成为不改图的理由。
当然如果将指北针放倒向右，就可解决这个原则问题，不用修改图纸标注、文字，也不需再重新标注坐标（因为该图纸本身坐标标注没问题，作图人是以笛卡尔坐标系的X、Y当大地坐标系的X、Y，标注也应该是按这个值标的，无论他是用手工标还是程序标的）。这是否可行可讨论，我的观点如下：
我以前见过铁路部门的图纸是指南的，可那也保持了上北下南的格局。另，《总图制图标准》(GB/T50103-2001)第2.4.1条“总图应按上北下南方向绘制。根据场地形状或布局，可向左或右偏转，但不宜超过45°”。其条文说明中说明了本条为新增条文及过去有些总图绘制的随意性造成混乱或错误判断。
顺便说一句，我在R12时代也编过一个坐标标注的程序，是拿它入门学autolisp的，后来也陆陆续续编了些道路方面的程序为自己和同事用，不过不如斑竹签名栏的成果累累。

xyp1964

最初由 blackspot 发布
[B]与斑竹商榷：本问题的始发人应该是因为图画反了需要改正，而不是坐标标注错了的原因。故我在8楼时先问一句“是图纸画反了吗？”。
图纸中如果标注得再详尽、美观，但是图纸反了，说不过去，对总图来说这是原则问题?.. [/B]

说得不错，有错就得改，不能蒙事。
因为1楼的主题是“CAD中坐标画反了怎么办？”，所以对后面诸多人的解决办法一直“不懂”，不管方向错了、还是坐标系统错了，依我之见只有一条路－－重新标注。

在此，再将“坐标”程序贴出来：

blackspot

再发表些得寸进尺的话啊:)
1、建议作图人将图纸校正到位后，用斑竹的程序重新标注所有坐标（大地坐标系下的坐标）。
2、试了斑竹的zb.vlx程序，勾起我一件多年未深究的“往事”：我当初编制坐标标注程序时，考虑也是在WCS下的标注，上北下南，所以也同斑竹的程序一样，先强行将UCS转成WCS，再用(getpoint)函数取用户输入的第一点坐标，标出即可。可后来同事提意见，有时需要在UCS下绘图并出图的，例如道路斜向或用地斜向时想依道路中心线或用地一条边界为正向，出图时将指北针斜向（当然，不超过45度的情况下），这时候标出的坐标就相对变“斜”了，嫌难看。老总也发表意见说图中文字应与图边平行，后来记不得是在测量或是地籍规范方面确实看到了有“与图边平行”的条文，测量是要求上北下南的，可同事们要求强烈，只好改程序，不再直接(getpoint)作程序输出值了，而是在用户输入第一点时真正地绘一个实体点（辅助点），再取该点DXF的第10组码即坐标值，该值不因UCS改变而变，程序末尾再删除辅助点，这样修改后的程序可以在任何UCS下保证与图边平行。想请教作过总图的斑竹，图中文字或坐标是否要与图边平行，有行业标准可循或是只是美观要求？或是根本就不要求与图边平行、而应与坐标网格平行？

xyp1964

程序中强制设为ucs坐标系统，以避免系统的不同造成标注的错误：(command "ucs" "")
23楼的程序可以标成倾斜的，美观上一般，在提示倾斜角度时，输入图框的旋转角就可以了。

狂刀

这图不错，能否发上来参考一下？嘻嘻

将各位讨论的结果写成程序：
[php]
(defun c:x2y (/ ss)
  (princ "\n对调xy----by 狂刀.2005.5\n选实体:")
  (if (setq ss (ssget))
      (command "_.mirror" ss "" (trans '(0 0 0) 0 1) (trans '(1 1 0) 0 1) "y")
  )(princ)
)
[/php]