[求助]求高手写个特殊坐标标注程序，在线等！

liujiedarren

各位高人，本人现在需要标注一种网格坐标，无奈不懂编程，标注数量巨大，时间又紧迫，所以请高手帮忙

例：

(x,y)------(H,V)

（0，0）-------（v0+000.000,H0+000.000)

(41.356,45.574)-----(V1+1.356,H1+5.574)

(97.345,118.916)----(V2+17.345,H2+38.916)

即40进制

请各位高手相助为谢

如有高人，请联系93401980

yxp

这就叫 40 进制??不对吧。

找个坐标标注的程序修改一下就行了。

有加班费没？

x_s_s_1

原程序网址http://hi.baidu.com/xshrimp/blog/item/f7124116814a404a21a4e936.html

在我的机器上不知为何OSMODE不可设置，由于工作较忙，没时间修改了，我就把OSMODE的设置删除了，你使用的时候打开F3就可以了。由于我今天不能上传附件了，将源代码复制在下面，你拷贝到文本文件中，将文件改名为.LSP就行。命令行输入zbbz执行命令。xy都是正数没问题，不过负数就显示为“V-1+-32.792,H-2+-6.757”这样了，不知合不合用，呵呵，我十一才开始学，水平实在有限。

(defun C:zbbz( / zb gd cld osm HT)
  (setq gd (getreal "指定标注文字高度:>"))
  (if (= gd nil) (setq gd 0.5))

  (while (setq zb (getpoint "指定坐标点："))
 
  (setq cld(getpoint  zb  "指定文字插入点："))
  (SETQ HT(STRCAT "V"
    (rtos (fix(/ (car zb) 40)) 2 3)
    "+"
    (rtos (- (car zb) (* 40 (fix(/ (car zb) 40)))) 2 3)
    ",H"
    (rtos (fix(/ (cadr zb) 40)) 2 3)
    "+"
    (rtos (- (cadr zb) (* 40 (fix(/ (cadr zb) 40)))) 2 3)
 ))
  (entmake (list
       '(0 . "LINE")
       '(67 . 0)
      '(8 . "0")
      (list  10  (car zb)  (cadr zb) 0)
      (list 11 (car cld) (cadr cld)  0)
      '(210 0.0 0.0 1.0)
      )
)
  (entmake (list
      '(0 . "text")
       (list 10  (+ (car cld) gd)  (car(cdr cld)) )
       (cons 40 gd)
       (cons 1 HT)
      '(50 . 0)
      )
    )
    )
  (princ)
  )

NetBee

1.使用普通坐标标注程序进行批量标注后倒入EXCEL进行转换

2.直接在你需要的坐标处画圆，然后使用提取坐标程序提取出后在EXCEL中编辑

zctao1966

NetBee发表于2008-10-5 22:16:001.使用普通坐标标注程序进行批量标注后倒入EXCEL进行转换2.直接在你需要的坐标处画圆，然后使用提取坐标程序提取出后在EXCEL中编辑

你的这个方法很好哟！！！

我也在用。。。