yangchao2005090 发表于 2020-5-30 21:21:58

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

下面是本论坛道路中心线采集的程序，想问一下有没有程序可以快速实现获取路网的中心线，路网详见附件
(defun c:CLZX()
(prompt "欢迎您用此程序")
(setvar "cmdecho" 0)
(command "-layer" "m" "aa" "c" 1 """L" "continuous" "" "");创建新层
(setq oldvar (getvar "OSMODE"))
(setvar "OSMODE" 512)
(command "pline")
(while (= 1 1)
    (setq p1 (getpoint "\n请选择第一个点："))
    (setq firstX (car p1))
    (setq firstY (cadr p1))
    (setq p2 (getpoint "\n请选择第二个点："))
    (if p2
      (progn
      (setq secondX (car p2))
      (setq secondY (cadr p2))
      (setq mX (/ (+ firstX secondX) 2))
      (setq mY (/ (+ firstY secondY) 2))
      (setq mX (rtos mX))
      (setq mY (rtos mY))
      (command (strcat mX "," mY))
      )
      (progn
      (command "")
      )
    )
)
(setvar "OSMODE" oldvar)
(princ)
)

love1030312 发表于 2020-6-2 15:57:13

同求

yangchao2005090 发表于 2020-6-11 21:42:03

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

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

ice1 发表于 2023-7-15 03:28:14

我试试看应该可以

下文没句号。 发表于 2023-8-19 00:19:49

楼主代码可以用吗？没有测试
页: [1]
查看完整版本: 求助快速实现获取路网的中心线