（20230831更）库存高端-cad2kml/ kml2cad/ 标注经纬度.lsp .....
本帖最后由 wzg356 于 2023-8-31 17:22 编辑20230831更，部分重新整理，通用参数输入框微调参数，故之前下载过的也需要全部重新下载
本次主要是对kml2cad做了补充，对有些特殊格式识别做了修正,如有出错，请用记事本打开另存以ANSI编码保存看看
各功能均需要通用函数支持，通用函数有些可能是多余的，我没有识别剔除，不影响
========================
20230210更，补充台湾投影TWD97
代码都重新整理过了，以前下载过的需要重新下载通用函数及相应程序，因为涉及对话框的所有程序均用1个通用DCL程序，整合在"通用函数-坐标处理.lsp"里面
增加fas（命令ZZ，里面另加打包几个小功能）,没币的下载使用，也欢迎分发
=====================================
2个互逆程序 cad2kml.lsp kml2cad.lsp及标注经纬度.lsp剪贴板取经纬度画线.lsp等等
均需要加载随附的通用函数
老库存了，过往我工作中频繁使用，大大提高室内外工作效率
实现cad与globalmapper/ArcGIS/谷歌地球/奥维互动地球/earth地球/gps工具箱等可识别kml/kmz文件的软件/手机导航数据互传
=============================
慎重下载
有一定测量知识及大地坐标原理的朋友才能用
南半球西半球的工作区一定无法用
中国（大陆及港澳台）的工作区能完整使用
印度及大部分东南亚工作区也能完整使用
真的不是搞神秘！！！
适用但不限于
公路/铁路/开发区规划/踏勘
国土资源规划/开发/执法检查
地形测量辅助/地籍确权调查测量/地质测量调查
户外徒步/探险/深度旅游/导航等等
具体自己体会
扩展：放牛，放羊，无人机飞航撒农药等线路规划等:lol
kml2cad.lsp--实现kml导入cad成图，此贴已包含http://bbs.mjtd.com/thread-182526-1-1.html?_dsign=aefa6127
命令：kml2cad
kml文件最好为制式生成的
点标记-写点名文字
其他的标记划线
WGS84/国家2000椭球--两个椭球体参数相当，可实质互用
cad2kml.lsp---实现cad图面线/文字输出kml文件
命令：cad2kml
cad图面坐标系需为大地直角坐标，坐标无投影带号则需指定中央经线(有提示)
识别"TEXT,LINE,*OLYLINE,TEXT,SPLINE,CIRCLE,ARC,ELLIPSE"及其颜色
标注经纬度bne.lsp 命令bne
cad图面坐标系需为大地直角坐标，坐标无投影带号则需指定中央经线(有提示)
剪贴板取经纬度画线.lsp-直接复制经纬度展线
;坐标数据放在excel/word/notebook文件里面都没关系
;表格、文本格式均可
;逗号、空格等分隔数据均可---主要为兼容南方rtk设备数据/kml经纬度等
;有无坐标点名、点号没关系，每行坐标数据格式统一就行
这是我最初无法解决展点及kml数据互换的土办法---代码我就不清理了，反正能用
主要解决朋友提出的----前述3个程序中坐标系图面手工转换问题----把公共点经纬度坐标复制进剪贴板即可cad展线，然后移动/旋转（可能还需要缩放微调）整图使公共点重合---完成图面坐标转换为WGS84/国家2000坐标---四参数原理
方法/要求在程序内及dcl交互有提示
姊妹程序http://bbs.mjtd.com/thread-170505-1-1.html
http://bbs.mjtd.com/thread-182593-1-1.html
方便专家审报告/抽查数据---真事，我以往工作有些数据要进入主管部门数据库的，老专家文字报告查数据即可快速展点入图，看看图文是否一直
图片实例：工地踏勘/地籍调查/采矿权执法
某城区路桥工程，不动用测量班组：一部手机即可查看或现场调查场地的市政设施、高压线、拆迁、林木移栽等是否具备施工条件，比如桩基施工
复制excel数据
3861421.217 420845.3217
3861467.121 421426.6019
3861513.025 422007.882
3861558.928 422589.1622
3861604.832 423170.4423
3861650.736 423751.7225
3861696.643 424333.0027
3861742.543 424914.2828
3861991.682 428074.233
3862034.95 428622.5284
3862078.219 429170.8238
3862121.487 429719.1192
3862164.755 430267.4146
cad加载坐标剪切板画线，然后选择格式，提示无法识别数据C:\Users\24926\Desktop\1.jpg
本帖最后由 2007real 于 2023-8-31 13:31 编辑
加载通用函数与经纬度标注，点击标注位置总是自动取消？
令: BNE
_undo 当前设置: 自动 = 开，控制 = 全部，合并 = 是，图层 = 是
输入要放弃的操作数目或 [自动(A)/控制(C)/开始(BE)/结束(E)/标记(M)/后退(B)] <1>: be
命令:
当前:GAUSS投影,WGS84椭球,中央经线120度，X北偏:0.0m,Y东偏:0.0m,字高:2.5
点取标注点位置【或设置参数(S)】:_undo 当前设置: 自动 = 开，控制 = 全部，合并 = 是，图层 = 是
输入要放弃的操作数目或 [自动(A)/控制(C)/开始(BE)/结束(E)/标记(M)/后退(B)] <1>: _e
命令:
命令:BNE _undo 当前设置: 自动 = 开，控制 = 全部，合并 = 是，图层 = 是
输入要放弃的操作数目或 [自动(A)/控制(C)/开始(BE)/结束(E)/标记(M)/后退(B)] <1>: be
_undo当前位置不是我输入的，点击标注位置，自己就转到这个。
本帖最后由 wzg356 于 2024-1-16 23:00 编辑
moshouhot 发表于 2024-1-16 22:26
最近我研究了下GIS的地图转换，国家现在强制推广的是WGS84（国家2000坐标），好处是GPS坐标（经纬度）可以 ...
6/3度投影带号规范化了的 即标准图幅中央经线可以算的 -如坐标有带号就可自动确认(中国范围内3/6度带号无重叠问题)，我程序里面就有
如果经纬度投点，也提供了自动计算默认的中央经线，也可指定。
就测量处理来讲--也可以自定义，也是涉及投影处理的计算，即只要坐标与相应的投影计算时用的中央经线对应，就互相转换。
实质测量：如果不涉及提交标准大地坐标成果，自定义中央经线可与标准图幅定义的不同。任何投影处理，距中央经线越远---变形误差越大。
这个听起来很棒！！！
一定要下载来试试看！！
谢谢您的分享～
另外，请教一下，有办法可以利用LISP，然后将图的坐标系统做转换吗？
WGS84 TWD97 Exchange
简单说就是，今天我拿到一张图是WGS84
然后想要转成是TWD97 本帖最后由 wzg356 于 2022-3-17 14:52 编辑
p-3-ianlcc 发表于 2022-3-17 14:37
这个听起来很棒！！！
一定要下载来试试看！！
谢谢您的分享～
可以，但专业知识需要有
不同坐标系椭球体之间必须有公共点或相应参数（这个不能随便发，涉及保密问题）
小面积的相识平移法用最多，精度也够用，会画图就没问题，不编程
一般四参数法，足够用，我发过四参数变换
七参数法主要是公式复杂，没写，毕竟使用频率不高 wzg356 发表于 2022-3-17 14:46
可以，但专业知识需要有
不同坐标系椭球体之间必须有公共点或相应参数（这个不能随便发，涉及保密问题 ...
嗯！！
不知道方不方便释出分享一下呢？
最近为了这个坐标系统转换很头疼 p-3-ianlcc 发表于 2022-3-17 14:37
这个听起来很棒！！！
一定要下载来试试看！！
谢谢您的分享～
平平淡淡的问：你是台湾的？行业？ wzg356 发表于 2022-3-17 15:01
平平淡淡的问：你是台湾的？行业？
嗯，台湾！
行业：土木工程工程师！
不是绘图员、也不是测量员，但是需要做套绘图、修改图的工作！
请多多指教！ 运行CAD2KML出现错误的消息
指令: CAD2KML
; 错误: no function definition: Y2GSFEL0
p-3-ianlcc 发表于 2022-3-17 15:12
运行CAD2KML出现错误的消息
指令: CAD2KML
; 错误: no function definition: Y2GSFEL0
通用函数一起加载 wzg356 发表于 2022-3-17 15:14
通用函数一起加载
OK了！！！谢谢～
补充经纬度标注