从艺而终 18:08:39
(defun c:hq(( / pt1 pt2 pt3 pt4 pt5 pt6))
(setvar "cmdecho" 0)
(setvar "blipmode" 0)
(initget "S F")
(setg sf (getkword "
请选择左红旗(S)或右红旗(F):"))
(if (=sf "s")
(progn
(setq pt1 (getpoint "
点击起始点:"))
(setq n (getint "
请输入出图比例:"))
(setq pt2 (polar pt1 (* pi 0.5) (* 1 n)))
(setq pt3 (polar pt2 (* pi 0.5) (* 4.5 n)))
(setq pt4 (polar pt3 (* pi 0.5) (* 2.1 n)))
(setq pt5 (polar pt4 (* pi 0.5) (* 2.1 n)))
(setq pt6 (polar pt4 pi (* 2.1 n)))
(command "pline" pt2 pt5 pt6 pt3 "")
)
(progn
(setq pt1 (getpoint "
点击起始点:"))
(setq n (getint "
请输入出图比例:"))
(setq pt2 (polar pt1 (* pi 0.5) (* 1 n)))
(setq pt3 (polar pt2 (* pi 0.5) (* 4.5 n)))
(setq pt4 (polar pt3 (* pi 0.5) (* 2.1 n)))
(setq pt5 (polar pt4 (* pi 0.5) (* 2.1 n)))
(setq pt6 (polar pt4 0 (* 2.1 n)))
(command "pline" pt2 pt5 pt6 pt3 "")
)
)
(prin1)
)
哪位看看这个有啥子问题:
从艺而终 18:12:28
我想输入s 或f来分别执行后面的一段代码,不知哪里弄错了,加载不了 |