|
|
发表于 2010-6-11 11:29:16
|
显示全部楼层
来自： 中国台湾
;; 同心的矩形 for test only% b' D+ J( B% c, }8 |3 C, l- j
(defun c:rectc (/ bp dx dy po p1 p2 p3)
8 l' s3 y, [1 O7 } d" A' f8 B (setq bp (getpoint "\n>> 同心矩形的中心点 : "))
. c2 e+ Q7 R: r, s( d3 D$ ~ (while (setq dx (getDist "矩形边的长度 X= "))
! c' W- c6 H) R- A* s, a (setq dy (getDist "矩形边的长度 Y= ")' }: L3 [% s/ G w
dx (/ dx 2)
0 E. E4 O5 |/ r, f+ d# m0 p dy (/ dy 2)
# B& C6 o/ u7 g& x% g po (list (- (car bp) dx) (- (cadr bp) dy))
0 A+ p& s- u) r3 s9 E p1 (list (+ (car bp) dx) (cadr po))
4 v1 S1 g) g* ?, r p2 (list (+ (car bp) dx) (+ (cadr bp) dy))
, X' F/ L/ D) d5 |1 C p3 (list (car po) (cadr p2))
& v1 s' W- x* y5 F )
, C' i' f0 A0 v& d& J8 k (SetVar "osmode" 0)
: O9 U V. Z' ~: _* C) q9 I (command "pline" po p1 p2 p3 "C")6 R: z- m! z+ S
(SetVar "osmode" 39)
7 r( G$ ]9 R* g/ y+ V4 n (princ "\n More ....\t")
) p, z7 P8 R# `( u; C2 C0 y. y x )
2 c* c4 Q9 I# W2 D* @9 ~6 f) s (princ)
y* g2 A& c" H. ?* {1 A ) |
评分
-
查看全部评分
|
楼主
在CAD软件用偏移命令本人觉得够简单了。
发表于 2010-6-10 22:51:04