求助：如何在编程中调用pline时，由用户从绘图空间自由输入点位和点数。

野狼谷/〈M〉

在用lisp进行二次开发时，就是让用户从cad模型空间中自由选择点，不管用户输入几个点，都能用pline来实现画一条线。然后我们某个特定参数结束输入，再用setq 获取该多线段，进行下一步工作。这是明经群圣诞节大家的讨论，不太成功，请高手出招！
（setq pt "getpoint"）
(command "pline")
(while (\= pt NIL)
  (command pt)
  (setq pt NIL)
  (setq pt (getpoint))
)
(command "")
(setq e1(entlast))

野狼谷/〈M〉

在明经编程群里大虾们的帮助下，问题解决了，利用先生成多个line，然后转成pline的方式。虽然有点绕，毕竟实现了这个功能，特别要感谢 [mmh1]漫步地球 的帮助！

(defun c:e2 ()
  (setq p1 (getpoint "\n请输入起点："))
  (setq p2 (getpoint "\n请输入下一点："))
  (command "line" p1 p2 "")
  (setq p1 p2)
  (setq p3 (ssadd))
  (setq p3 (ssadd (entlast) p3))


  (while (/= p2 nil)
    (setq p2 (getpoint "\n请输入下一点："))
    (if        (/= p2 nil)
      (progn (command "line" p1 p2 "")
             (setq p3 (ssadd (entlast) p3))
             (setq p1 p2)
      )
    )
  )
  (command "pedit" "m" p3 "" "y" "j" 0 "")

  (prinC "\N 线条绘制成功！")
)

logitechlike

1.也可以循环生成pline再取刚才生成的pline所有点再重新绘制
(vla-get-Coordinates Object index)
(vla-put-Coordinates Object index Value)
2.反应器

logitechlike

反应器 commandend 处理pline命令获取结束

Andyhon

未能掌握楼主意向,且试

(command "pline")
(while
  (and
    (= (logand (getvar "CmdActive") 1) 1)
    (验证 特定参数结束输入吗?)
  )
  (command pause)
)