求助快速实现获取路网的中心线

yangchao2005090

下面是本论坛道路中心线采集的程序，想问一下有没有程序可以快速实现获取路网的中心线，路网详见附件

2. (defun c:CLZX()
   
3.   (prompt "欢迎您用此程序")
   
4.   (setvar "cmdecho" 0)
   
5.   (command "-layer" "m" "aa" "c" 1 ""  "L" "continuous" "" "");创建新层
   
6.   (setq oldvar (getvar "OSMODE"))
   
7.   (setvar "OSMODE" 512)
   
8.   (command "pline")
   
9.   (while (= 1 1)
   
10.     (setq p1 (getpoint "\n请选择第一个点："))
    
11.     (setq firstX (car p1))
    
12.     (setq firstY (cadr p1))
    
13.     (setq p2 (getpoint "\n请选择第二个点："))
    
14.     (if p2
    
15.       (progn
    
16.         (setq secondX (car p2))
    
17.         (setq secondY (cadr p2))
    
18.         (setq mX (/ (+ firstX secondX) 2))
    
19.         (setq mY (/ (+ firstY secondY) 2))
    
20.         (setq mX (rtos mX))
    
21.         (setq mY (rtos mY))
    
22.         (command (strcat mX "," mY))
    
23.       )
    
24.       (progn
    
25.         (command "")
    
26.       )
    
27.     )
    
28.   )
    
29.   (setvar "OSMODE" oldvar)
    
30.   (princ)
    
31. )

(defun c:CLZX()<br />   (prompt "欢迎您用此程序")<br />   (setvar "cmdecho" 0)<br />   (command "-layer" "m" "aa" "c" 1 ""  "L" "continuous" "" "");创建新层<br />   (setq oldvar (getvar "OSMODE"))<br />   (setvar "OSMODE" 512)<br />   (command "pline")<br />   (while (= 1 1)<br />     (setq p1 (getpoint "\n请选择第一个点："))<br />     (setq firstX (car p1))<br />     (setq firstY (cadr p1))<br />     (setq p2 (getpoint "\n请选择第二个点："))<br />     (if p2<br />       (progn<br />         (setq secondX (car p2))<br />         (setq secondY (cadr p2))<br />         (setq mX (/ (+ firstX secondX) 2))<br />         (setq mY (/ (+ firstY secondY) 2))<br />         (setq mX (rtos mX))<br />         (setq mY (rtos mY))<br />         (command (strcat mX "," mY))<br />       )<br />       (progn<br />         (command "") <br />       )<br />     )<br />   )<br />   (setvar "OSMODE" oldvar)<br />   (princ)<br /> )

love1030312

同求

yangchao2005090

love1030312 发表于 2020-6-2 15:57
同求

求到没，求到没，求到没，

ice1

我试试看应该可以

下文没句号。

楼主代码可以用吗？没有测试