(defun c:mini_zo ( / old_cmd ang )
	(mai_start nil)
	(mai_last_com "mini_zo")
	(cond
		(	(setq ang (getangle "\n输入沿Z轴旋转角度:<回车选择正看实体>"))
			(setq ang (/ ang pi))
			(command "_.ucs" "z" ang)
		)
		
		(	(setq ang (mai_Entsel T "选择正看实体:<回车恢复原始视图>" "没有找到实体." nil nil))
			(command "_.ucs" "ob" ang)
		)
		
		(	T (command "_.ucs" ""))
	)
	(command "_.plan" "")
	(mai_end)
)

(defun c:mini_z1( / old_cmd)
	(mai_start nil)
	(mai_last_com "mini_z1")
	(command "_.ucs" "" "_.plan" "")
	(mai_end)
)

(defun c:mini_z2( / old_cmd)
	(mai_start nil)
	(mai_last_com "mini_z2")
	(command "_.ucs" "" "_.ucs" "n" "z" 90 "_.plan" "")
	(mai_end)
)

(defun c:mini_z3( / old_cmd)
	(mai_start nil)
	(mai_last_com "mini_z3")
	(command "_.ucs" "" "_.ucs" "n" "z" 180 "_.plan" "")
	(mai_end)
)
(defun c:mini_z4( / old_cmd)
	(mai_start nil)
	(mai_last_com "mini_z4")
	(command "_.ucs" "" "_.ucs" "n" "z" 270 "_.plan" "")
	(mai_end)
)