写一个小程序
, L& Q! i/ y( C$ R# W1 J(defun c:a()
) c+ P! M" t" F" ](setq p1 (getpoint "输入中心点"))
& L- O4 x% l( Z+ w(setq b (getdist "输入边长:"))
7 X+ p s& |: X; \7 x$ W(command "box" "ce" pt "c" b)
2 i$ ~7 c6 t( [- V$ x)
" k9 A) |" M( M D* s4 m# R5 L, i& [) z2 x! K! n% S
然后用阵列命令阵列6 v! K$ v( E% C0 X1 _
也可以把阵列命令加入到 程序中 |