xiehea 发表于 2024-9-10 15:41:34

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

(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 发表于 2024-9-10 16:10:08

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

gzcsun 发表于 2024-9-10 16:13:10

就是输入p1 p2两点

xiehea 发表于 2024-9-10 16:32:23

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

谢谢大佬指教
页: [1]
查看完整版本: 请教大佬，repeat函数里的(command p1 p2)看不懂什么意思