[求助]求高手写个特殊坐标标注程序，在线等！
本帖最后由 作者 于 2008-10-4 14:40:54 编辑 <br /><br /> <p>各位高人，本人现在需要标注一种网格坐标，无奈不懂编程，标注数量巨大，时间又紧迫，所以请高手帮忙</p><p>例：</p><p>(x,y)------(H,V)</p><p>（0，0）-------（v0+000.000,H0+000.000)</p><p>(41.356,45.574)-----(V1+1.356,H1+5.574)</p><p>(97.345,118.916)----(V2+17.345,H2+38.916)</p><p>即40进制</p><p>请各位高手相助为谢<p></p>如有高人，请联系93401980</p> 本帖最后由 作者 于 2008-10-4 19:49:14 编辑 <br /><br /> <p>这就叫 40 进制??不对吧。</p><p>找个坐标标注的程序修改一下就行了。</p><p>有加班费没？</p>我拿别人的改的，我也是初学
本帖最后由 作者 于 2008-10-4 22:48:28 编辑 <br /><br /> <p>原程序网址<a href="http://hi.baidu.com/xshrimp/blog/item/f7124116814a404a21a4e936.html">http://hi.baidu.com/xshrimp/blog/item/f7124116814a404a21a4e936.html</a></p><p>在我的机器上不知为何OSMODE不可设置，由于工作较忙，没时间修改了，我就把OSMODE的设置删除了，你使用的时候打开F3就可以了。由于我今天不能上传附件了，将源代码复制在下面，你拷贝到文本文件中，将文件改名为.LSP就行。命令行输入zbbz执行命令。xy都是正数没问题，不过负数就显示为“V-1+-32.792,H-2+-6.757”这样了，不知合不合用，呵呵，我十一才开始学，水平实在有限。</p><p>(defun C:zbbz( / zb gd cld osm HT)<br/> (setq gd (getreal "指定标注文字高度:>"))<br/> (if (= gd nil) (setq gd 0.5))</p><p> (while (setq zb (getpoint "指定坐标点："))<br/> <br/> (setq cld(getpoint zb "指定文字插入点："))<br/> (SETQ HT(STRCAT "V"<br/> (rtos (fix(/ (car zb) 40)) 2 3)<br/> "+"<br/> (rtos (- (car zb) (* 40 (fix(/ (car zb) 40)))) 2 3)<br/> ",H"<br/> (rtos (fix(/ (cadr zb) 40)) 2 3)<br/> "+"<br/> (rtos (- (cadr zb) (* 40 (fix(/ (cadr zb) 40)))) 2 3)<br/> ))<br/> (entmake (list<br/> '(0 . "LINE")<br/> '(67 . 0)<br/> '(8 . "0") <br/> (list 10 (car zb) (cadr zb) 0)<br/> (list 11 (car cld) (cadr cld) 0)<br/> '(210 0.0 0.0 1.0)<br/> )<br/>)<br/> (entmake (list<br/> '(0 . "text")<br/> (list 10 (+ (car cld) gd) (car(cdr cld)) )<br/> (cons 40 gd)<br/> (cons 1 HT)<br/> '(50 . 0)<br/> )<br/> )<br/> )<br/> (princ)<br/> )<br/></p> <p>1.使用普通坐标标注程序进行批量标注后倒入EXCEL进行转换</p><p>2.直接在你需要的坐标处画圆，然后使用提取坐标程序提取出后在EXCEL中编辑</p><p></p> NetBee发表于2008-10-5 22:16:00static/image/common/back.gif1.使用普通坐标标注程序进行批量标注后倒入EXCEL进行转换2.直接在你需要的坐标处画圆，然后使用提取坐标程序提取出后在EXCEL中编辑<p>你的这个方法很好哟！！！</p><p>我也在用。。。</p>
页:
[1]