CGCS2000国家大地坐标系，图上点取坐标点，自动标注坐标和经纬度

niqiu8

如题， 自动判断是否带带号，不带带号需要手动输入中央经线，这里用的是3度带。文字标注原码来自网上其它作者。XY转经纬度函数是按参考资料上的。 转换结果和ARCGIS等其它软件转换结果一致。WIN10可能会提示缺少simfang.ttf仿宋字体






===============================
不好意思。平时剪贴板函数一直习惯调用，便于粘贴到别处，没有注意调用了这个函数。
复制以下代码到LISP内，保存即可，源码来源网友

(defun SET-CLIP-STRING (STR / HTML RESULT)
    (vl-load-com)
    (and (= (type STR) 'STR)
         (setq HTML (vlax-create-object "htmlfile"))
         (setq RESULT (vlax-invoke
                          (vlax-get (vlax-get HTML 'PARENTWINDOW)
                                    'CLIPBOARDDATA
                          )
                          'SETDATA
                          "Text"
                          STR
                      )
         )
         (vlax-release-object HTML)
    )
)

yanshengjiang

入出图比例尺(1:1000输1;1:2000输2)<2>:
选定2000坐标点: >>
选定2000坐标点:
确定引出线长度:
确定标注方向: ; 错误: no function definition: SET-CLIP-STRING


既然是卖B  那至少要保证程序能运行吧

wzg356

2007real 发表于 2023-4-19 13:35
其他的默认参数2000坐标系，只是比例因子改为0.9996

http://bbs.mjtd.com/thread-184963-1-1.html
在通用函数DD_XY_BL里边把“;中央经线上长度比”
((= TY 0)(setq k0 1.0));"GS"高斯-克吕格投影
改为
((= TY 0)(setq k0 0.9996));"GS"高斯-克吕格投影

注册

hao3ren

缺少SET-CLIP-STRING

yanshengjiang

hao3ren 发表于 2020-5-11 09:46
缺少SET-CLIP-STRING

程序里面，复制到剪贴板那行删除就行了

kugoo999

比CASS10自带的难用！

kugoo999

比CASS10自带的难用！

niqiu8

kugoo999 发表于 2020-5-11 19:31
比CASS10自带的难用！

没用装CASS10。平时用不到。自己写的标注方便按自己的方式来。顺便请教一下，CASS10有更新什么新功能不。CASS10搭配哪个版的CAD

kugoo999

CASS10搭配CAD2016-cad2020

kyky1002

我这里的平面坐标有带号的话转出来的经纬度不准，无带号的话是正确的