请教PLINE 点循环

cafa · 发表于 3 天前

本帖最后由 cafa 于 2024-9-25 15:22 编辑

需要一段代码可以做到如下效果，能够输入任意数量的点来绘制多段线。怎么写可以做到？望大佬不吝赐教
(setq pt1 (getpoint))
(setq pt2 (getpoint pt1))
(setq pt3 (getpoint pt2))
(setq pt4 (getpoint pt3))
(setq pt5 (getpoint pt4))
(setq pt6 (getpoint pt5))
...
(command "_.pline" pt1 pt2 pt3 pt4 pt5 pt6 ... "c" "")
...
生成图形

飞雪神光 · 发表于 3 天前

(setq pt(getpoint"\n指定起点:"))
(command "pline" pt)
(while (not (zerop (getvar "cmdactive")))
(command PAUSE)
)

ashan · 发表于 3 天前

;;;循环画pline线
(defun plw (/ pt end_f)
  (setq end_f T)
  (setq pt (getpoint))
  (command "._pline" pt "_w" 0 "")
  (while end_f
(setq pt (getpoint pt))
(if pt
   (command pt)
   ;;else
   (setq end_f nil)
)
  )
  (command "")
  (princ)
)

cafa · 发表于 3 天前

本帖最后由 cafa 于 2024-9-25 15:29 编辑

ashan 发表于 2024-9-25 15:01
;;;循环画pline线
(defun plw (/ pt end_f)
(setq end_f T)

感谢大佬回复。效果不错，感谢感谢

ashan · 发表于 3 天前

cafa 发表于 2024-9-25 15:09
感谢大佬回复。效果不错，感谢感谢

熟悉pline命令就可以举一反三，把(command "")改为(command "c")就可以闭合了

cafa · 发表于 3 天前

ashan 发表于 2024-9-25 15:31
熟悉pline命令就可以举一反三，把(command "")改为(command "c")就可以闭合了

嗯嗯，微调了一下。

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