[求助]在autolisp怎么用＂旋转＂命令

hnzkcqy

下面是我编的一段画轴的倒角的程序，怎么旋转这个倒角呢？请赐教！ (defun c:daojiao()
(setq p0(list 45 45))
(setq alf 0 )
(setq d 25 )
(setq c 5 )
(setq p2 (polar p0(+(* 0.5 pi)alf)(-(* 0.5 d)c)))
(setq p1 (polar p2(+(* 0.25 pi)alf)(* 1.414 c)))
(setq p3 (polar p2(+(* 1.5 pi)alf)(- d(* 2 c))))
(setq p4 (polar p1(+(* 1.5 pi)alf)d))
(command "line" p1 p2 p3 p4"")
)

ZZXXQQ

用


(SETQ ALF (GETANGLE "\nRotate Angle 图形旋转角 :"))


代替


(setq alf 0)


就可以了。