求剖切线与等高线的交点写高程

st788796 · 发表于 2013-7-8 11:39:22

本帖最后由 st788796 于 2013-7-8 11:40 编辑

xdrx_entsel 就是增加了过滤器的 entsel
xdrx_entity_getstretchpoint 返回点表，这个点表和点击实体出现的夹点一样
xdrx_entity_movestretchpoint 就是移动夹点，和手动拉伸夹点效果一样的，调用方法
(xdrx_entity_movestretchpoint ent vec index1 index2 ....)
参数：ent - 当然是拉伸的实体了
vec - 向量，相对于拉伸点的拉伸向量
index1, index2 ... --- 夹点索引，这个索引顺序要自己体会总结了

aeo · 发表于 2013-10-14 22:43:28

本帖最后由 aeo 于 2013-10-14 22:47 编辑

(entmake (list (cons 0 "TEXT") (cons 1 (vl-princ-to-string)) .....

这句真的可以执行吗？

图上的z坐标是怎么得到的?
是不是等高线都有不同的而且真实的Z坐标？

清风明月10 · 发表于 2013-10-15 06:42:16

这句真的可以执行
等高线必须有真实的Z坐标

Free-Lancer · 发表于 2013-10-16 06:20:28

aeo 发表于 2013-10-16 01:09
纯lisp
在没有函数库的情况下写真麻烦
试试行不行

高！高度一次消0，再UNDO！版主总是能带来惊喜，原来可以这样！

jalzq793083 · 发表于 2013-10-16 08:18:21

我也想知道,呵呵

Free-Lancer · 发表于 2013-10-16 08:34:21

没有库就用XDAPI，反正这些程序都是过往云烟，有兴致了或者不顺手时写上一段，不会留存的。

清风明月10 · 发表于 2013-10-16 09:26:27

留存是有价值的，可以站在原已达到的高度看问题

Free-Lancer · 发表于 2013-10-16 09:35:51

清风明月10 发表于 2013-10-16 09:26
留存是有价值的，可以站在原已达到的高度看问题

都是业余爱好，要是达到 aeo 版主水平随用随写了:)

aeo · 发表于 2013-10-16 17:41:52

"如果直线一端Z=0,一端Z=100，则Z值为0，不是中间数，也就是说，它有三维空间的线没有交点 "?????

所谓等高线，难道一条线还有不同标高，那还叫等高线吗？

运行几次出错：是不是用了老式多义线，我只写了LWPOLYLINE的，其他原因应该不会呀，发个图?

还有是谁编辑过了，这样反而看不出我的编程逻辑了。我基本一行完成一个步骤。

xyp1964 · 发表于 2013-11-24 17:47:26

伪源码就不发了

st788796 · 发表于 2013-11-24 17:52:34

这个程序是不是功能一样
http://bbs.xdcad.net/forum.php?mod=viewthread&tid=671789&mobile=yes

神秘将军 · 发表于 2017-4-13 10:36:52

正需要，支持楼主大人了！

yangjian001 · 发表于 2017-4-15 08:04:21

路过看看，好像真的好难呀

账号		自动登录	找回密码
密码			立即注册

[已解决] 求剖切线与等高线的交点写高程

点评

点评