CAD设计论坛

 找回密码
 立即注册
论坛新手常用操作帮助系统等待验证的用户请看获取社区币方法的说明新注册会员必读(必修)
查看: 1917|回复: 0

[开发] zhgcr旋转复制实体

[复制链接]
发表于 2007-12-30 15:08 | 显示全部楼层 |阅读模式
;;;旋转复制实体(以角度)
# d5 t; S- n8 R- w) |
% V: Y7 Y& |0 m( T, t& U0 Z. P: C3 e(defun c:copyrt(/ ss r p1 osm jd s)
4 z6 O' t, I7 P# N( D$ Z(setvar "cmdecho" 0)( u. }2 n+ L% V' Y
(setq jd (getvar "auprec"))/ ]: `% w; m$ d5 l3 c$ s! _
(setvar "auprec" 5)
' S' m7 A( {1 I. k, F5 n: p+ Z" @2 w(setq osm (getvar "osmode"))
# q: W: E/ x8 ^8 w9 X(princ "\n ***** 旋转复制实体程序 ***** ")
2 @5 p4 C# k$ G9 _9 r  Y0 p" @# g(princ "\n 请选择旋转复制的实体:")
. d+ r5 a# b2 G/ Z% E(setq ss (ssget))9 b  D$ }$ S3 S7 C, A0 j8 o
(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))* K$ a+ f9 n9 |
(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))
- D4 W7 Y( \7 q" p) \0 N8 m3 @# ](setq p1 (getpoint "\n 请选择圆心点:"))
: T% k( a' {% T) A$ l" C0 s(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:"))). P/ u+ g# `7 x  e3 J
(command ".copy" ss "" p1 p1)
, F' O5 |( Z4 |0 r(command ".rotate" ss "" p1 "r" "0" pause)
5 ~; _4 r& e9 @$ W) B1 ?/ h6 G(princ "\n 旋转复制完成!")( I) e. {1 c% Z! L
(command ".redraw")
9 l9 I' j& |' z( O! `/ \/ m, d) x(setvar "osmode" osm)
% r$ v* s2 Q. Y* Z6 R, r! k(setvar "auprec" jd)! k$ [# i5 A7 `  N6 I
(princ)
4 Z; |" G# D# u& E) h) R% Y)
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关于|免责|隐私|版权|广告|联系|手机版|CAD设计论坛

GMT+8, 2026-9-23 07:40

CAD设计论坛,为工程师增加动力。

© 2005-2026 askcad.com. All rights reserved.

快速回复 返回顶部 返回列表