|
|
发表于 2010-6-11 11:29:16
|
显示全部楼层
来自： 中国台湾
;; 同心的矩形 for test only
, i: n0 U7 u4 Z( d (defun c:rectc (/ bp dx dy po p1 p2 p3)
# L3 V: }- B+ J( h; h (setq bp (getpoint "\n>> 同心矩形的中心点 : "))+ u( \9 r" p- E/ ^/ I! l8 ]0 ?
(while (setq dx (getDist "矩形边的长度 X= "))- `2 a' I# S S5 t% u! l# B1 _
(setq dy (getDist "矩形边的长度 Y= ")5 e3 X$ j4 ^" O4 `( i
dx (/ dx 2)
) `' b* B% i, y+ G5 y+ }6 L9 f dy (/ dy 2)
) ~ L5 b v: t8 V, w- p" t4 C po (list (- (car bp) dx) (- (cadr bp) dy))* c# j1 d' p/ x A6 d
p1 (list (+ (car bp) dx) (cadr po))
) E+ ^% B5 ]' x0 D p2 (list (+ (car bp) dx) (+ (cadr bp) dy))
9 e6 s, |# l2 F2 @6 R- N* @ p3 (list (car po) (cadr p2))8 L% r# J/ p1 A$ A6 x$ Z
) R# ]; a/ v! Q% O9 O2 j
(SetVar "osmode" 0)
/ x0 z( G1 {0 w! `$ c" h (command "pline" po p1 p2 p3 "C")
4 a- r$ H1 U2 J. J (SetVar "osmode" 39)
, u3 X! d$ }1 I3 \2 d5 K4 H, t4 C (princ "\n More ....\t")$ l/ w& ]7 n6 V; w! x
) E# M# ^ z* |( |9 C$ w+ h
(princ)5 v9 m' N% }5 ^' ^6 o
) |
评分
-
查看全部评分
|
楼主
在CAD软件用偏移命令本人觉得够简单了。
发表于 2010-6-10 22:51:04