zhgcr旋转复制实体

zhd81617

;;;旋转复制实体(以角度）
' n+ o# n) T* r, b0 W4 F, p0 P
(defun c:copyrt(/ ss r p1 osm jd s)
8 T3 k) G9 d8 V* g1 m4 T! x(setvar "cmdecho" 0)
! ?7 \% s6 `1 A# |2 c. D(setq jd (getvar "auprec"))
(setvar "auprec" 5)
7 E2 z" Q2 p, Z0 y- T) `, o4 F+ q(setq osm (getvar "osmode"))
9 K6 a/ x% K% _4 r! k# v: C(princ "\n ***** 旋转复制实体程序 ***** ")
$ @+ y% `6 o( E7 ^0 N& G: m: e( P(princ "\n 请选择旋转复制的实体:")
(setq ss (ssget))
(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))
) Z( @& L' @* a8 q0 u+ N/ D+ r(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))
4 \8 M/ _; I% d+ ~2 s(setq p1 (getpoint "\n 请选择圆心点:"))
! g7 C- c. F% w(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))
# W; a0 L' k: @9 }0 Z) e( B. Y0 W(command ".copy" ss "" p1 p1)
(command ".rotate" ss "" p1 "r" "0" pause)
(princ "\n 旋转复制完成!")
0 [3 G& U" {4 `(command ".redraw")
% [2 Q) D; |$ Z; m! L(setvar "osmode" osm)
(setvar "auprec" jd)
3 ?* D5 e* ?2 s" l1 b(princ)
$ A) l4 n. t  u5 c! f" V4 t)