[求助]通过等高线绘制地面线LISP程序的编写
<p><strong><font size="5">请问有几根标高不同的等高线，我想画一条多段线穿过它们</font></strong></p><p><strong><font size="5">求得这个多段线与每个等高线的交点</font></strong></p>
<p><strong><font size="5">（包含等高线的高程坐标Z的信息）</font></strong></p>
<p><strong><font size="5">通过这些交点绘制地面线，LISP程序该怎么写？</font></strong></p> <p>网页和博客上有的，你艘下多义线与直线交点, 或艘坐标标注程序，这种程序很多，你用它来点几个点，直线一连接就OK了</p> 我自己已经摸索出来了，笨办法，但是很有效 ************************************************************
*** LSD 图形处理程序 V1.0 ***
*** All Rights Reserved By LSD Studio (C) 2009-2010 ***
************************************************************
【标注类】：
b1 — 标注全局比例归一
bd — 标注文字置中
bzjt — 修改标注样式箭头
bzys — 更改标注颜色
cbz — 清除标注文字替代及前后缀
da — 标注对齐
db — 标注样式颜色随层
dss — 更改标注样式
md — 标注样式修正
z1 — 标注主单位归一
【查询类】：
ae — 封闭区域面积
ol — 判断点线位置
tym — 查询图元名
【绘图类】：
pll — 输出多段线长度
plt — 输出多段线顶点
【钢筋类】：
dgj — 替换点钢筋
gb — 钢筋编号修改
gbc — 钢筋编号归层
gj — 钢筋转为多段线
gjjt — 钢筋标注箭头修正
gjwz — 替换带钢筋符号文字
【工程类】：
dkj — 弹性地基框架计算
kwht — 开挖回填
pd — 坡度标注
qj — 清基
【绘图类】：
ba — 交叉切断
bk — 交点切断
bu — 设置常用捕捉
c2p — 圆转换为多段线
df — 等分复制
dgs — 删除光栅图像
e1 — 批量删除图元
gcgc — 高程归层
gcxg — 高程修改
qm — 删除图象
rb — 重命名匿名块
xgsx — 替换图元属性
【图层类】：
gc — 图元归层
l1 — 图层开关
sl — 删除辅助图层
tc — 建立常用图层
tc3 — 建立三维图层
tkys — 图框颜色
【图形处理类】：
a20 — 所有图元转到0层
a2d — 所有图元转到地形图层
abl — 图元随层
bl — 图形整体改变比例
dcd — 高程点采点
dx — 处理地形图
dxpm — 地形剖面
dz — 处理地质图
et — 删除临时图层元素
getz — 地形图采点
gl — 删除填充及标注关联
ktd — 块替代
kys — 更改块颜色
kzk — 块炸开
lkx — 线条加粗
lsd — 图形处理
lsd1 — 炸开块、标注并处理地质图
lsd2 — 炸开全部并处理地质图
lsd3 — 炸开块
lsd4 — 炸开块、标注
lsd5 — 炸开块、标注、填充
lsd6 — 处理地质图并处理块颜色
lsd7 — 处理钢筋图
lsd8 — 保留奇偶图框
lsd9 — 保留轮廓线
lsdo — 炸开全部，出图
oldm — 恢复自己处理过的图
old — 处理旧图
tk — 图框炸开
tq — 图框前置
xcd — 等高线采点
xx — 标准线型比例
xxbl — 更改线型比例
xxgc — 线型归层
z0 — Z坐标归零
【文字类】：
chs — 批量更改文字样式
cht — 文字处理
ot — 输出文字
jj — 数字加减
rep — 替换文字
s2f — 更改Standard字体为仿宋体
zg — 修改文字高度
zk — 修改文字宽度
zt — 批量修改字体
【其他】：
bz — 说明
dy — 批量打印图纸
jyb — 去除教育版打印戳记
other — 其他
rel — 重新加载程序
以上是我自己编写的LISP小程序（只能算是入门级的）的目录
有兴趣的交流一下
— 判断点线位置
程序可以判断 点 是在线的左侧还是右侧么？ dxpm — 地形剖面
是在等高线中剖断面线，还是三角网，或者别的呢？请楼主贴源码让我学习下 http://www.znch.net/showcourse.asp?id=61在地形图上截断面lisp
页:
[1]