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

[求助]求高手写个特殊坐标标注程序，在线等！
www.dimcax.com
[求助]求高手写个特殊坐标标注程序，在线等！
各位高人，本人现在需要标注一种网格坐标，无奈不懂编程，标注数量巨大，时间又紧迫，所以请高手帮忙
例：
(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
d
这就叫 40 进制??不对吧。
找个坐标标注的程序修改一下就行了。
有加班费没？
e不可设置，由于工作较忙，没时间修改了，我就把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)
)
d
1.使用普通坐标标注程序进行批量标注后倒入excel进行转换
2.直接在你需要的坐标处画圆，然后使用提取坐标程序提取出后在excel中编辑
d