[建议]：理正建筑的坐标标注参数不可逆？

foxnose

三位小数可以转成M制的0位，但再想换成3位毫米就不行啦！

Qun

我这里可以呀，把你有毛病的图传上来。

foxnose

:1 很奇怪，下午刚安装好的时候测试了一下，发现是不行，但文件没有保存。晚上再用就没有出现了。以后发现了再说吧。
不过，还有一点，对于坐标标注，是否可以在用户坐标下使用，但是标的坐标值仍然是世界坐标系的，我想这样的会好一些，因为有不少时候我们出图并不就是正北方向的啊~~！

Qun

最初由 foxnose 发布
[B]:1 很奇怪，下午刚安装好的时候测试了一下，发现是不行，但文件没有保存。晚上再用就没有出现了。以后发现了再说吧。
不过，还有一点，对于坐标标注，是否可以在用户坐标下使用，但是标的坐标值仍然是世界坐标系的?.. [/B]

你的建议很好，谢谢！不知是否有例外的情况？如果有就还得加选择开关。另外，当用户坐标旋转时，坐标标注是否还应该按世界坐标系的方向？

foxnose

当然不会有例外的情况，因为是轴的方向相同，一般画图总是可以把世界坐标和大地坐标对应起来的（宁愿移动图形到某一坐标点，也不会有人宁愿去推敲ucs原点的位置吧？所以我觉得没必要加选择开关），但我说的ucs一般是与世界坐标有一定的角度，主要是想画面好看一些，所以标注方向应该和当前坐标一致。
另外，我很喜欢尺寸标注和插门窗时候的实时拖动功能，如果坐标标注也加个实时拖动写坐标的位置（引出线的长度和角度可变）的快捷键就更好了，这样就可以不终止命令的情况下修改好刚刚标注的坐标的位置。但好象当前的命令在开始的时候就要选择引出线的位置，发现不适合还是要退出命令来修改，不是很方便哦。
另外，理正在图形中定义了很多群组，是否会增大图形文件的大小呢？

Qun

难道你没有注意到在【注坐标点】时可以按热键【S】或【D】进行翻转吗？使用时请注意提示行和帮助。定义组可能会使图形文件增大，但有所得就会有所失，AutoCAD每个新版本都会使图形增大。

foxnose

:9 这热键是有，我也知道的。但和“实时拖动”不同吧？
毕竟热键只可以实现四个固定方向而已……
例如引出线和坐标分格线垂直就做不到啦，，现在就只是45度的夹角嘛。

Qun

最初由 foxnose 发布
[B]当然不会有例外的情况，因为是轴的方向相同，一般画图总是可以把世界坐标和大地坐标对应起来的（宁愿移动图形到某一坐标点，也不会有人宁愿去推敲ucs原点的位置吧？所以我觉得没必要加选择开关），但我说的ucs一般是... [/B]

对于转换UCS之后的标注角度还是吃不准，请foxnose帮助试一下，谢谢！
解压后拷贝到理正建筑\LISP\目录下。

foxnose

哦。。。这个就很好了：）
其实是加个允许ucs功能，对原来的坐标标注形式不受影响的（world坐标系也是ucs其中一而已啦）。
还有以前一点，是否在标注当中可以拖动鼠标决定标注的位置啊？

Qun

我想暂时不考虑拖动的修改。因为这种标注形式已经得到许多人的认可，而拖动对于没有特殊要求的人来说，反而增加了麻烦。我想至少需要再有一些人有类似需求才可以考虑修改。

aqaz

我写的坐标标注:

;;;zbbz

;;; 标注时是按当前的UCS的，但是数值还是 WCS 的，

;;; 不用转换到 WCS。


;============================== 开始 ==============================

(defun c:zbbz ()

;============================== 设置 ==============================

  (prompt "\n输入字高：<") (princ (getvar "textsize")) (princ ">")
  (setq 输入字高 (getreal))
  (if (not 输入字高)
      (setq 字高 (getvar "textsize"))
      (setq 字高 输入字高)
  )
  (setq old_dimzin (getvar "dimzin"))
  (setvar "dimzin" 1)
  (setq 精度 3)                     
  (setvar "cmdecho" 0)
  (标注)
)


;====================== 取起点的位置及数值 ======================

  (defun 标注()
    (setq 标注点 (getpoint "\n点取标注点:"))
    (if 标注点 (继续) (退出))
  )

  (defun 继续()
    (setq 绝对标注点 (trans 标注点 1 0))
    (setq x_坐标值 (rtos (car   绝对标注点) 2 精度))
    (setq y_坐标值 (rtos (nth 1 绝对标注点) 2 精度))


;=================== 取标注引线位置及长度和角度 ===================

    (setq 临时起点 (getpoint 标注点 "\n点取标注位置:"))
    (setq 引线长度 (distance 标注点 临时起点))
    (setq 临时角度 (atof (angtos (angle 标注点 临时起点 ) 0 3)))
  

;================= 检查标注引线的角度并设为标准值 =================

    (setq 标准角度 (cond ((<= 临时角度    15)   0)
                         ((<= 临时角度  37.5)  30)
                         ((<= 临时角度  52.5)  45)
                         ((<= 临时角度  67.5)  60)
                         ((<= 临时角度   105)  90)
                         ((<= 临时角度 127.5) 120)
                         ((<= 临时角度   141) 135)
                         ((<= 临时角度   165) 150)
                         ((<= 临时角度   195) 180)
                         ((<= 临时角度 217.5) 210)
                         ((<= 临时角度 232.5) 225)
                         ((<= 临时角度   255) 240)
                         ((<= 临时角度   285) 270)
                         ((<= 临时角度 307.5) 300)
                         ((<= 临时角度 322.5) 315)
                         ((<= 临时角度   345) 330)
                         (0)
                   )
    )





;======================= 设标注引线终点的位置 =======================

    (setq 起点 (polar 标注点 (angtof (itoa 标准角度) 0) 引线长度))
  

;===================== 设标注线终点的位置及方向 ===================

    (setq x_字符数 (strlen  x_坐标值))
    (setq y_字符数 (strlen  y_坐标值))
    (if (> x_字符数 y_字符数)
        (setq 坐标字符数 x_字符数)
        (setq 坐标字符数 y_字符数)
    )
  
    (setq 坐标字符长 (* 坐标字符数 字高))  
    (if (and (< 标准角度 270) (> 标准角度 90))
        (setq 标注方向 180)
        (setq 标注方向 0)
    )
  
    (if (= 标注方向 180)
        (setq 终点 (list (- (car 起点) 坐标字符长)  (nth 1 起点)))
        (setq 终点 (list (+ (car 起点) 坐标字符长)  (nth 1 起点)))
    )


;======================== 设标注数字的起点 ========================

    (if (= 标注方向 0) (setq 文字开始点 起点) (setq 文字开始点 终点))  
    (setq 起点_x (list (car 文字开始点)
                       (+ (nth 1 文字开始点) (/ 字高 3.5))))
    (setq 起点_y (list (car 文字开始点)
                       (- (nth 1 文字开始点) 字高 (/ 字高 3.5))))
  

;======================= 使两个坐标字符等长 =======================

    (setq 相差字符数 (abs(- x_字符数 y_字符数)))
    (setq 补充空格数 "")
    (repeat 相差字符数 (setq 补充空格数 (strcat 补充空格数 " ")))
    (if (= 相差字符数 0)
        (setq x_c (strcat "Y=" x_坐标值) y_c (strcat "X=" y_坐标值)))
  
    (if (and (/= l 0) (> x_字符数 y_字符数))  
        (setq x_c (strcat "Y=" x_坐标值)
              y_c (strcat "X="  补充空格数 y_坐标值)))
  
    (if (and (/= l 0) (< x_字符数 y_字符数))  
        (setq x_c (strcat "Y="  补充空格数 x_坐标值)
              y_c (strcat "X=" y_坐标值)))

  
;============================= 标注 ===============================

    (setq old_osmode (getvar "osmode"))
    (setvar "osmode" 0)
    (command "line" 标注点 起点 终点)
    (command "")
    (command "text" 起点_x 字高 "0" y_c)
    (command "text" 起点_y 字高 "0" x_c)
    (setvar "osmode" old_osmode)
    (标注)
  )

;============================== 还原 ==============================

  (defun 退出()
    (setvar "dimzin" old_dimzin)
    (setvar "cmdecho" 1)
    (princ)
  )


;============================== 结束 ==============================

foxnose

楼上的程序也很好，，，谢谢。
缺点：没有生成自己标注的层，容易一时大意标到其他层上，换层可就复杂了些……

aqaz

最初由 foxnose 发布
[B]楼上的程序也很好，，，谢谢。
缺点：没有生成自己标注的层，容易一时大意标到其他层上，换层可就复杂了些…… [/B]

不知道别人喜欢用什么图层,这个lisp是那时候看到一本lisp13函数解释的书,边翻边学写的,发现个函数就用上,当时还想再加上个对话框设字体,图层什么的,但书上又讲的不太清楚,苦恼了好些时候,后来突然想明白,弄那么复杂干什么?只是个标坐标的小程序.在理正里面,在什么环境下干什么事都规定好了吧.

无忧

aqaz:我一直在用这个坐标，很好用！天正3.x里坐标单位是mm，其实画总图大多用m为单位的，导致字大小、坐标值混乱等问题，我的一些同事用天正3.x标坐标出问题，常由我来用这个程序来搞定。谢谢！

Qun

该命令已修改，请下载补丁：http://www.xdcad.net/forum/showthread.php?s=&threadid=7981