请教如何做有角度的阵列

YAOSHIWEI

(setq a (getpoint "取得左下角点"))
(setq b (getpoint  "请确定右下角点:"))
(setq ang1 (getint "请确定角度:"))
(setq ang (angle a b))
(setq c (polar a (+ (/ pi 3) ang) (distance a b)))
(command "line" a b "")
(setq en1 (entlast))
(command "line" b c "")
(setq en2 (entlast))
(command "line" a c "")
(setq en3 (entlast))
(command "snap" 60)
(command "array" en1 en2 en3 "" "r" 1 3 (distance a b) "")

该贴已经同步到 YAOSHIWEI的微博

YAOSHIWEI

贴子在这儿啊http://bbs.mjtd.com/forum.php?mod=viewthread&tid=54903

YAOSHIWEI

(command "snap" 60)
这个改一下啊(command "snap" ang1)