请教大佬，repeat函数里的(command p1 p2)看不懂什么意思

xiehea

(defun c:8demo2()
  (setvar "cmdecho" 0)
  (setq osm (getvar "osmode"))
  (setvar "osmode" 0)
  (setq pa (getpoint "\n选择基点:"))
  (setq w (getdist pa "\n输入楼梯的长度:"))
  (setq pb (polar pa 0 w))
  (setq h (getdist pb "\n输入楼梯的高度:"))
  (setq pc (polar pb (/ pi 2) h))
  (setq n (getint "\n输入楼梯的阶数:"))
  (setq dw (/ w n))
  (setq dh (/ h n))
  (command "PLINE" pc pb pa)
  (setq p1 (polar pa (* pi 0.5) dh))
  (setq p2 (polar p1 0 dw))
  (repeat n
    (command p1 p2)
    (setq p1 (polar p2 (* pi 0.5) dh))
    (setq p2 (polar p1 0 dw))
    )
  (command "")
  (princ)
  (setvar "osmode" osm)
  )

renxianjing

前面一个command的命令需要一个""，表示cad绘图里面的空格或者回车键表示的确定的意思，此时command的pline命令完成了，但是现在没有这个""，所以command的pline命令没有完成
repeat里面用command表示继续这个命令，直到repeat外面的那个command里面的""，这里表示command的pline命令完成

gzcsun

就是输入p1 p2两点

xiehea

renxianjing 发表于 2024-9-10 16:10
前面一个command的命令需要一个""，表示cad绘图里面的空格或者回车键表示的确定的意思，此时command的pline ...

谢谢大佬指教