如何在任意两条多义线中间绘出中线

tjztsh · 发表于 2004-1-9 10:46

如何在任意两条多义线中间绘出中线

meflying · 发表于 2004-1-9 11:21

如果是复杂的多义线，那中间的概念是什么呢？

lockmyeye · 发表于 2004-1-9 11:32

我也在做这个东东，用来生成道路中心线。
到目前为止还没有好的办法。

只好用OFFSET偏移。
幸运的是道路大都平行：）

程序代码内容;;;================================================================================================
;;;对所选择的对象进行1/2偏移，生成为道路中心线
(DEFUN c:offset_half (/ ent1 point1 point2)
(IF (TBLSEARCH "layer" "道路中心线")
(COMMAND "layer" "t" "道路中心线" "m" "error" "")
(COMMAND "layer" "m" "道路中心线" "")
)
(WHILE (PROGN
(SETVAR "OSMODE" 512)
(IF (SETQ point1 (GETPOINT "\n\t选择要偏移的对象或 <退出>:"))
(IF (SETQ ent1 (SSGET point1))
(IF (WCMATCH (CDR (ASSOC '0 (ENTGET (SSNAME ent1 0)))) "*LINE")
(SETQ ent1 (SSNAME ent1 0))
)
)
)
)
(REDRAW ent1 3)
(IF (SETQ point2 (GETPOINT "\n\t选择另一边的对象或 <退出>:"))
(PROGN (SETVAR "OSMODE" 0)
(COMMAND "offset" "t" ent1 (MAPCAR '* '(0.5 0.5) (MAPCAR '+ point1 point2)) "")
(COMMAND "CHANGE" (ENTLAST) "" "P" "la" "道路中心线" "C" "3" "")
(COMMAND "pedit" (ENTLAST) "w" "0.5" "")
)
)
(REDRAW ent1 4)
)
(SETVAR "OSMODE" 0)
(PRINC)
)
;;;================================================================================================
(PRINC)

复制代码

无痕 · 发表于 2004-1-10 03:54

本帖最后由作者于 2004-1-10 4:21:03 编辑

这样的么？能不能算任意的啊？

龙龙仔 · 发表于 2004-1-10 15:45

那只是用3DPOLY把兩線中點畫出,不太實用

无痕 · 发表于 2004-1-10 15:55

你觉得如何的才实用呢？请赐教

BDYCAD · 发表于 2004-1-10 16:05

6樓你的程序是如何寫的?

无痕 · 发表于 2004-1-10 16:30

方法是求两曲线分段（如30段）点，对应的两点求中点，各个中点连起来画3dpline，用pedit/ s 模拟

BDYCAD · 发表于 2004-1-10 16:36

To 8樓:
方法是求两曲线分段（如30段）点, 這應是你程序的難點哦. 想采訪你, 這步你是如果做的? 查以詳細說說嗎?　
1 因為我覺得難以保證在分段時這兩程序曲線點的排序方向相反而導致不合理．　
2 還有當這兩條曲線的長短差別很大時會不會出現異常呢？

lockmyeye · 发表于 2004-1-11 02:11

提出一个新的方向：是否可以三角网生成等高线的方法来处理，假定两条线高程不等，先建立三角网，来求出中间的等高线。
是不是有点高射炮打蚊子的感觉：）

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