|
|
发表于 2010-6-11 11:29:16
|
显示全部楼层
来自： 中国台湾
;; 同心的矩形 for test only
( m. N! j7 C8 l (defun c:rectc (/ bp dx dy po p1 p2 p3)
# O+ |: K U, E! J% S2 m5 n (setq bp (getpoint "\n>> 同心矩形的中心点 : "))
, h( d: {* N; Q8 D+ _ (while (setq dx (getDist "矩形边的长度 X= "))
7 }/ D% s/ Y2 z; G (setq dy (getDist "矩形边的长度 Y= ")
% x! I3 z' D' y$ T$ n2 @# p dx (/ dx 2)
3 }' o$ l7 S9 H3 ? dy (/ dy 2)0 Q: H6 b, D* t" m0 D
po (list (- (car bp) dx) (- (cadr bp) dy))1 k7 T2 d9 C1 U, l2 B0 M$ s9 H
p1 (list (+ (car bp) dx) (cadr po))
/ k& g. }% W. e3 O1 s: C p2 (list (+ (car bp) dx) (+ (cadr bp) dy))
E- D. p4 K( B: N4 d( T p3 (list (car po) (cadr p2))
/ x8 @9 E* J! \! [$ N )/ W: v" _: ^; q
(SetVar "osmode" 0): S3 y( n3 |5 s8 s) I* K1 j/ F2 j \" E
(command "pline" po p1 p2 p3 "C")
* X4 ?6 t/ M4 l, a8 } (SetVar "osmode" 39)5 C0 H! A3 d6 M: z- s
(princ "\n More ....\t")- W/ E* q/ ^: @. O
)0 v1 W9 M5 |# s+ I" U7 M! U
(princ)( i5 I9 ~: z. V% x" G7 l' s
) |
评分
-
查看全部评分
|
楼主
在CAD软件用偏移命令本人觉得够简单了。
发表于 2010-6-10 22:51:04