Visual LISP在工程测量中的应用
合集下载
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
ＬＳ ＩＰ则可 以很好 的解 决这 一 问 题 ， ｉ ａ ＬＳ Ｖｓ ｌ ＩＰ内含 于 ｕ
Ａ ｔＣ Ｄ软件 内 ， 以直 接 调用 执 行 Ａ ｔ Ａ ｕｏ Ａ 可 ｕ Ｃ Ｄ所 有 命 ｏ
令， 是强化 Ａ ｔＣ Ｄ最好 最直接 的程序语 言。 ｕ Ａ ｏ
下面 是笔 者 根 据 工 作 模 式 用 Ｖｓａ ＬＳ ｉ ｌ ＩＰ编 写 的 ｕ 符和 导线 简易平 差程 序 。
距 离１ 距 离２ 距 离３ 距 离 距 离５ 距 离６
蕊
［ 二 二］ ［ 二 二］ ［ ］ ［ ］ ［ ］ ［］ 二
： 一 Ｈ ｒ ・ ¨ Ｉ姐 Ｌ － 强
＾
／
’
ｔ２ ３ ４ ∞ ０ ０ ２ ７ ，∞ Ｔ ０ ７ ０ ００
捕 册 变 摄 ｌ量捕 对象 踪 姥 ．戛 捉 格正 轴射 捉 追 宽Ｉ型 ｝
软件 。面世 以来 ， 丰 富 的绘 图功 能 ， 大 的编 辑 功 能 其 强 和 良好 用户界 面受 到广 大 工程设 计 制 图人员 的普 遍欢
迎 。然 而大量 的重复 性 工作 又 使得 工 程设 计 制 图人 员 为之头疼 。Ｃ Ｄ系统提 供软件 的界面 、 境 、 心算法 、 Ａ 环 核 数据库及设计 需 要 相关 的 、 专业 的支 持软 件 ， 在工 较 而 程测量 中 Ｃ Ｄ无 法方便 的计算 导线 ， 不能 达 到导线 、 Ａ 而 展点 、 图形一 次性完成 ， 多用其 他软件 来 辅助 完成 ， 这样 不仅费 时费力 ， 而且 也 增加 了出错 的可 能性 。用 Ｖｓａ ｉ ｌ ｕ
一一 ； ；” ～ … 一 ～ …
１ 附 合 导 线 平 差 程 序 界 面
为了方便直观 ， 首先用 Ｄ Ｌ编写输入 界面 （ 图 １ 。 Ｃ 见 ）
糕
塑圈
诸＾ 始位 蝓起 方 请＾ 台１ 输 方 立
观测值
［二 二 ］请 ＾ 知 ｘ ０ 输 己 点 （） ［ 二 涪 ＾ 台 ｘ＋ 二 ］ 毓 箭 点 哪］ １ ］ 观 角ｉ 浏 叵二 ＇ 二 ］观 角２ 捌 臣 ］ 观 角３ 删 ＇ 叵 ］ 观 角４ 删 避二 蜘 ５ 堕 ］现 巨 口 观 角６
嚣 ，
图 Ｉ 附合 导 线 平 差 程 序 界 面
收稿 日期 ：Ｏ ６ ９ ９ ２ Ｏ —Ｏ —Ｏ
作者简介 ： 刘前 （ ９ １ ） 男 ， １７ 一 ， 中级工人 ， 从事工程测量技术工作。
维普资讯
城
市
勘
测
２０ ０ ７笠
（ｅ ｔ ｐ１ ｓｔ ｌ３ ｔ） ｑｐ （ｅ １ ｓｔ 一ｓ（＋ ｊ一ｓ ｖ ） ） ｑｊ １ ｊ１ ） ） ３ （ｆ ｉ （＞ ＝ ｃｈｈ５ ｚｓ ） （ ｍｇ ｐ ｎ （ｅ ｔ ｐ ｌ ｔ ｓｔ ｐｌ（ ｏ ｒ ｌ（＋ ｆｊ ４ｊｂ ｃｆ ）ｊ１） ｑ ａｐ ｗｊ ４（ ｈｐ） ｖ ） ｄ ４ （ｅ ｔ ｔ） ｓｔ ｌ４ｐ１ ｑｐ （ｅｑｊ一 ｓｔ １ ｓ（＋ ｊ一ｓｖ ） ） １ ｊ１ ） ） ４ （ｆ ｉ （＞ ＝ ｃｈｈ６ ｚｓ ）
… …
、
）
（ ） 差计算 子 程序 ４平
（ｅｕ ｃ （ ｄｆｎｐｊ ｓ ） （ｅｑｆ ｈ ｙ（ａ ｔ） ｓｔ —ｂ ｄ ｃ ｐ１ ） ｒ （ｅｑｆ ｈ ｘ（ａｒ ｔ） ｓｔ —ｂ ｄ ｃｄ １ ） ｐ （ｅ ｗ ｃ 一 ｆ ｈ ｘｂ ｄ ） ｓｔ ｄ ｗ ｘ（ ｑ —ｂ ｄ ｈ ｘ ） （ｅ ｗ ｃ ｓｔ ｄ ｗ ｙ（一 ｆ ｈ ｙｂ ｄ ） ｑ —ｂ ｄ ｈ ｙ ） （ｅｑｄ ｗ （ ｑｔ（＋ （ ｄ ｗ ｘ ｄ ｗ ｘ （ ｄ ｗ ｙ ｄ ｗ ｓｔ ｗ ｃ ｓｒ ｗ ｃ ｗ ｃ ） ｗ ｃ ｗ — ｃ） ） ｙ ）） （ｅ ｄｈ ／ｊ一ｓ ｗ ｃ ） ｓｔ ｘｄ ｃ（ １ ｗ ） ｑ ｄ （ｅ ｗ ｃｌ（ｗ ｏｄ ｗ ｘ ） ｓｔ ｄ ｗ ｘ ｆｂ ｗ ｃ ） ｑ （ｅ ｗ ｃｌ（ｗ ｏｄ ｗ ｙ ） ｓｔ ｄ ｗ ｙ ｆｂ ｗ ｃ ） ｑ （ｅ ｗ ｃ ｒ ｓ ｗ ｃ２２ ） ｓｔ ｄ ｗ １（ｔ ｗ ） ｑ ｏｄ （ｅ 一 ｒ ｓ（ １ ００ ） ｓｔ ｊ ｓ（ｔ ／ｊ一ｓ１０ ）２３ ） ｑ１ ｏ （ｅ ｄ ｈ ｌ（ｔｓ ｄ ｈ １ ） ｓｔ ｘ ｄｃ ｒ ｄ ｃ２１ ） ｑ ｏｘ （ｅ ｔ （ ｏ ｔ （＋ ｐ （ ｉ ） ． ） ｓｔ ｂ ｐｌ ｂ ｑ ４ ｒ ａ ４ ｉ ／ｐ ）４ ２ ） ２ （ｏ ｍａｄ”ｅｔ ｂ”ｂ ． ｓｃｔ”ｘ ｄ ｗ ｘ ） ｃｍ ｎ ｔ ”” ｌ ｔ ２ ６０（ｔ ａ ｆ ＝ ｘ ４ ｒ ｗ ｃ１ ） （ｅｑｂ５（ ｏａ ｔ ０３ ． ） ｓｔ ｔ ｐｌ ｂ ８５ ） ｒ ４ （ｏ ｍ ｎ ｔｘ”” ｌ ｔ ２ ６０ （ｔ ａ ”ｙ＝ ｄ ｗ ｙ ） ｃｍ ａ ｄ”ｅｔ ｂ”ｂ５ ． ｓｃｔ ｆ ｗ ｃ１ ） ｒ （ｅｑｂ４（ ｏａ ｔ （＋ ｐ （ ｉ ） ４ ２ ） ｓｔ ｔ ｐｌ ｂ ｒ ４ ｉ ／ｐ ２ ） ． ） （ｏ ｍ ｎ ｔｘ”” ｌ ｔ ２ ６０ （ｔ ａ ”ｓ ”ｄ ｗ １ ） ｃｍ ａ ｄ”ｅｔ ｂ”ｂ４ ． ｓｃｔ ｆ＝ ｒ ｗ ｃ ） （ｅ ｔ （ ｏ ｔ （ ｐ （ ｉ ） ４ ２ ） ｓｔ ｂ ｐｌ ｂ４ ＋ ｉ ／ｐ ２ ） ． ） ｑ ４ ｒ ａ （ ｏ ｍ ｎ ” ｘ”” ｌ ｔ ． （ｔ ａ ” ＝ ｃｍ ａｄ ｔ ｔ ｂ”ｂ ２ ６０ ｓｃｔ ｓ ｅ ４ ｒ ）
Ｖｓａ ＬＳ 工 程 测 量 中 的应 用 ｉ ｌ ＩＰ在 ｕ
刘 前
（ 安市勘察测绘 院， 西 陕西 西安
摘
７０４ ） １０ ８
பைடு நூலகம்
要： 阐述 了在 工 程 测 量 中使 用 Ａ ｔ Ｃ Ｄ软 件 遇 到 的 问题 ， 出利 用 Ａ ｔ Ｃ Ｄ 内嵌 的 Ｖｓａ ＬＳ ｕ Ａ ｏ 提 ｕｏ Ａ ｉ ｌ ＩＰ语 言 快 速 解 决 ｕ
厂丽
［ 二 ］ 请 ＾ 知 Ｙ０ 二二 输 已 点（ ） ［ 二 ］ 请 ＾ｊ 点 ｔｌ 二二 输 ｌ ｔ＋ ］ ￣ 台 Ｊ ［二 二］ ［ 二］ 二二 ［二 二］ ［二 二］ ［ 二］ 二二 ［二 二］
嘲
［二 二］ ［二 二］
点 号 ． 占 号 ． 占 号 点 号 点 号 点 碍
ｒ磊 ＿
导 线计 算、 展点 、 图形一次性完成的方案 ， 并介 绍 了用 Ｖ ｓａ ＬＳ ｉ ｌ ＩＰ编 写附和导线 简易平 差程序 的步骤 。 ｕ
关 键 词 ： 程 测 量 ； ｉ ａ ＬＳ ； 工 Ｖ ｓ ｌ ＩＰ 自动 化 处理 ； 高 工 效 ； 合 导 线 ｕ 提 符
Ａｔ Ａ ｕｏ Ｄ是 使用非 常广 泛 的计 算 机 辅 助设 计 绘 图 Ｃ
维普资讯
第３ 期
刘前 ． ｉ ａ ＬＳ Ｖｓ ｌ ＩＰ在 工程测 量 中的应用 ｕ
中 图 分 类 号 ：２ ９ Ｐ ０ 文 献 标 识 码 ： Ｂ
９ １
文章 编 号 ：６ ２— ２ ２ ２ ０ ） ３— １ ２ １７ ８ ６ （０ ７ ０ ９ —０
Ａ ｔＣ Ｄ软件 内 ， 以直 接 调用 执 行 Ａ ｔ Ａ ｕｏ Ａ 可 ｕ Ｃ Ｄ所 有 命 ｏ
令， 是强化 Ａ ｔＣ Ｄ最好 最直接 的程序语 言。 ｕ Ａ ｏ
下面 是笔 者 根 据 工 作 模 式 用 Ｖｓａ ＬＳ ｉ ｌ ＩＰ编 写 的 ｕ 符和 导线 简易平 差程 序 。
距 离１ 距 离２ 距 离３ 距 离 距 离５ 距 离６
蕊
［ 二 二］ ［ 二 二］ ［ ］ ［ ］ ［ ］ ［］ 二
： 一 Ｈ ｒ ・ ¨ Ｉ姐 Ｌ － 强
＾
／
’
ｔ２ ３ ４ ∞ ０ ０ ２ ７ ，∞ Ｔ ０ ７ ０ ００
捕 册 变 摄 ｌ量捕 对象 踪 姥 ．戛 捉 格正 轴射 捉 追 宽Ｉ型 ｝
软件 。面世 以来 ， 丰 富 的绘 图功 能 ， 大 的编 辑 功 能 其 强 和 良好 用户界 面受 到广 大 工程设 计 制 图人员 的普 遍欢
迎 。然 而大量 的重复 性 工作 又 使得 工 程设 计 制 图人 员 为之头疼 。Ｃ Ｄ系统提 供软件 的界面 、 境 、 心算法 、 Ａ 环 核 数据库及设计 需 要 相关 的 、 专业 的支 持软 件 ， 在工 较 而 程测量 中 Ｃ Ｄ无 法方便 的计算 导线 ， 不能 达 到导线 、 Ａ 而 展点 、 图形一 次性完成 ， 多用其 他软件 来 辅助 完成 ， 这样 不仅费 时费力 ， 而且 也 增加 了出错 的可 能性 。用 Ｖｓａ ｉ ｌ ｕ
一一 ； ；” ～ … 一 ～ …
１ 附 合 导 线 平 差 程 序 界 面
为了方便直观 ， 首先用 Ｄ Ｌ编写输入 界面 （ 图 １ 。 Ｃ 见 ）
糕
塑圈
诸＾ 始位 蝓起 方 请＾ 台１ 输 方 立
观测值
［二 二 ］请 ＾ 知 ｘ ０ 输 己 点 （） ［ 二 涪 ＾ 台 ｘ＋ 二 ］ 毓 箭 点 哪］ １ ］ 观 角ｉ 浏 叵二 ＇ 二 ］观 角２ 捌 臣 ］ 观 角３ 删 ＇ 叵 ］ 观 角４ 删 避二 蜘 ５ 堕 ］现 巨 口 观 角６
嚣 ，
图 Ｉ 附合 导 线 平 差 程 序 界 面
收稿 日期 ：Ｏ ６ ９ ９ ２ Ｏ —Ｏ —Ｏ
作者简介 ： 刘前 （ ９ １ ） 男 ， １７ 一 ， 中级工人 ， 从事工程测量技术工作。
维普资讯
城
市
勘
测
２０ ０ ７笠
（ｅ ｔ ｐ１ ｓｔ ｌ３ ｔ） ｑｐ （ｅ １ ｓｔ 一ｓ（＋ ｊ一ｓ ｖ ） ） ｑｊ １ ｊ１ ） ） ３ （ｆ ｉ （＞ ＝ ｃｈｈ５ ｚｓ ） （ ｍｇ ｐ ｎ （ｅ ｔ ｐ ｌ ｔ ｓｔ ｐｌ（ ｏ ｒ ｌ（＋ ｆｊ ４ｊｂ ｃｆ ）ｊ１） ｑ ａｐ ｗｊ ４（ ｈｐ） ｖ ） ｄ ４ （ｅ ｔ ｔ） ｓｔ ｌ４ｐ１ ｑｐ （ｅｑｊ一 ｓｔ １ ｓ（＋ ｊ一ｓｖ ） ） １ ｊ１ ） ） ４ （ｆ ｉ （＞ ＝ ｃｈｈ６ ｚｓ ）
… …
、
）
（ ） 差计算 子 程序 ４平
（ｅｕ ｃ （ ｄｆｎｐｊ ｓ ） （ｅｑｆ ｈ ｙ（ａ ｔ） ｓｔ —ｂ ｄ ｃ ｐ１ ） ｒ （ｅｑｆ ｈ ｘ（ａｒ ｔ） ｓｔ —ｂ ｄ ｃｄ １ ） ｐ （ｅ ｗ ｃ 一 ｆ ｈ ｘｂ ｄ ） ｓｔ ｄ ｗ ｘ（ ｑ —ｂ ｄ ｈ ｘ ） （ｅ ｗ ｃ ｓｔ ｄ ｗ ｙ（一 ｆ ｈ ｙｂ ｄ ） ｑ —ｂ ｄ ｈ ｙ ） （ｅｑｄ ｗ （ ｑｔ（＋ （ ｄ ｗ ｘ ｄ ｗ ｘ （ ｄ ｗ ｙ ｄ ｗ ｓｔ ｗ ｃ ｓｒ ｗ ｃ ｗ ｃ ） ｗ ｃ ｗ — ｃ） ） ｙ ）） （ｅ ｄｈ ／ｊ一ｓ ｗ ｃ ） ｓｔ ｘｄ ｃ（ １ ｗ ） ｑ ｄ （ｅ ｗ ｃｌ（ｗ ｏｄ ｗ ｘ ） ｓｔ ｄ ｗ ｘ ｆｂ ｗ ｃ ） ｑ （ｅ ｗ ｃｌ（ｗ ｏｄ ｗ ｙ ） ｓｔ ｄ ｗ ｙ ｆｂ ｗ ｃ ） ｑ （ｅ ｗ ｃ ｒ ｓ ｗ ｃ２２ ） ｓｔ ｄ ｗ １（ｔ ｗ ） ｑ ｏｄ （ｅ 一 ｒ ｓ（ １ ００ ） ｓｔ ｊ ｓ（ｔ ／ｊ一ｓ１０ ）２３ ） ｑ１ ｏ （ｅ ｄ ｈ ｌ（ｔｓ ｄ ｈ １ ） ｓｔ ｘ ｄｃ ｒ ｄ ｃ２１ ） ｑ ｏｘ （ｅ ｔ （ ｏ ｔ （＋ ｐ （ ｉ ） ． ） ｓｔ ｂ ｐｌ ｂ ｑ ４ ｒ ａ ４ ｉ ／ｐ ）４ ２ ） ２ （ｏ ｍａｄ”ｅｔ ｂ”ｂ ． ｓｃｔ”ｘ ｄ ｗ ｘ ） ｃｍ ｎ ｔ ”” ｌ ｔ ２ ６０（ｔ ａ ｆ ＝ ｘ ４ ｒ ｗ ｃ１ ） （ｅｑｂ５（ ｏａ ｔ ０３ ． ） ｓｔ ｔ ｐｌ ｂ ８５ ） ｒ ４ （ｏ ｍ ｎ ｔｘ”” ｌ ｔ ２ ６０ （ｔ ａ ”ｙ＝ ｄ ｗ ｙ ） ｃｍ ａ ｄ”ｅｔ ｂ”ｂ５ ． ｓｃｔ ｆ ｗ ｃ１ ） ｒ （ｅｑｂ４（ ｏａ ｔ （＋ ｐ （ ｉ ） ４ ２ ） ｓｔ ｔ ｐｌ ｂ ｒ ４ ｉ ／ｐ ２ ） ． ） （ｏ ｍ ｎ ｔｘ”” ｌ ｔ ２ ６０ （ｔ ａ ”ｓ ”ｄ ｗ １ ） ｃｍ ａ ｄ”ｅｔ ｂ”ｂ４ ． ｓｃｔ ｆ＝ ｒ ｗ ｃ ） （ｅ ｔ （ ｏ ｔ （ ｐ （ ｉ ） ４ ２ ） ｓｔ ｂ ｐｌ ｂ４ ＋ ｉ ／ｐ ２ ） ． ） ｑ ４ ｒ ａ （ ｏ ｍ ｎ ” ｘ”” ｌ ｔ ． （ｔ ａ ” ＝ ｃｍ ａｄ ｔ ｔ ｂ”ｂ ２ ６０ ｓｃｔ ｓ ｅ ４ ｒ ）
Ｖｓａ ＬＳ 工 程 测 量 中 的应 用 ｉ ｌ ＩＰ在 ｕ
刘 前
（ 安市勘察测绘 院， 西 陕西 西安
摘
７０４ ） １０ ８
பைடு நூலகம்
要： 阐述 了在 工 程 测 量 中使 用 Ａ ｔ Ｃ Ｄ软 件 遇 到 的 问题 ， 出利 用 Ａ ｔ Ｃ Ｄ 内嵌 的 Ｖｓａ ＬＳ ｕ Ａ ｏ 提 ｕｏ Ａ ｉ ｌ ＩＰ语 言 快 速 解 决 ｕ
厂丽
［ 二 ］ 请 ＾ 知 Ｙ０ 二二 输 已 点（ ） ［ 二 ］ 请 ＾ｊ 点 ｔｌ 二二 输 ｌ ｔ＋ ］ ￣ 台 Ｊ ［二 二］ ［ 二］ 二二 ［二 二］ ［二 二］ ［ 二］ 二二 ［二 二］
嘲
［二 二］ ［二 二］
点 号 ． 占 号 ． 占 号 点 号 点 号 点 碍
ｒ磊 ＿
导 线计 算、 展点 、 图形一次性完成的方案 ， 并介 绍 了用 Ｖ ｓａ ＬＳ ｉ ｌ ＩＰ编 写附和导线 简易平 差程序 的步骤 。 ｕ
关 键 词 ： 程 测 量 ； ｉ ａ ＬＳ ； 工 Ｖ ｓ ｌ ＩＰ 自动 化 处理 ； 高 工 效 ； 合 导 线 ｕ 提 符
Ａｔ Ａ ｕｏ Ｄ是 使用非 常广 泛 的计 算 机 辅 助设 计 绘 图 Ｃ
维普资讯
第３ 期
刘前 ． ｉ ａ ＬＳ Ｖｓ ｌ ＩＰ在 工程测 量 中的应用 ｕ
中 图 分 类 号 ：２ ９ Ｐ ０ 文 献 标 识 码 ： Ｂ
９ １
文章 编 号 ：６ ２— ２ ２ ２ ０ ） ３— １ ２ １７ ８ ６ （０ ７ ０ ９ —０