niqiu8 发表于 2020-5-10 11:48:13

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

本帖最后由 niqiu8 于 2020-5-14 22:02 编辑

如题， 自动判断是否带带号，不带带号需要手动输入中央经线，这里用的是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 发表于 2020-5-11 10:29:45

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


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

wzg356 发表于 2023-4-25 15:32:44

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"高斯-克吕格投影

注册 发表于 2020-5-11 07:44:40

hao3ren 发表于 2020-5-11 09:46:11

缺少SET-CLIP-STRING

yanshengjiang 发表于 2020-5-11 10:41:48

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

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

kugoo999 发表于 2020-5-11 19:31:33

比CASS10自带的难用！

kugoo999 发表于 2020-5-11 19:31:41

比CASS10自带的难用！

niqiu8 发表于 2020-5-14 22:03:48

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

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

kugoo999 发表于 2020-5-15 07:26:20

CASS10搭配CAD2016-cad2020

kyky1002 发表于 2020-9-8 12:16:35

我这里的平面坐标有带号的话转出来的经纬度不准，无带号的话是正确的
页: [1] 2 3
查看完整版本: CGCS2000国家大地坐标系，图上点取坐标点，自动标注坐标和经纬度