|
|
发表于 2010-6-11 11:29:16
|
显示全部楼层
来自: 中国台湾
;; 同心的矩形 for test only9 d% M `8 `' i2 U* K9 w. y7 E
(defun c:rectc (/ bp dx dy po p1 p2 p3)$ ~9 ~! C' E& H4 t0 K3 R
(setq bp (getpoint "\n>> 同心矩形的中心点 : "))
- j: t* }9 {3 g& W) s. S (while (setq dx (getDist "矩形边的长度 X= "))
& `! Z2 D1 H _2 V1 x9 w& O; l" T4 C (setq dy (getDist "矩形边的长度 Y= ")
3 Z( o$ Y$ e, ?! P7 @# K dx (/ dx 2)+ j& |9 @! {+ a
dy (/ dy 2)
6 L3 i3 Z5 d) o5 V$ \0 C po (list (- (car bp) dx) (- (cadr bp) dy))! Y' Z: S! x n; p7 f
p1 (list (+ (car bp) dx) (cadr po)), L0 S5 o8 Q2 U& O' h* |
p2 (list (+ (car bp) dx) (+ (cadr bp) dy))2 o+ Q8 ?3 D; k, c( D! C
p3 (list (car po) (cadr p2))
2 J$ S4 x8 y5 p& T6 s, x )% s( Y3 V6 Y a& r
(SetVar "osmode" 0)$ W3 e4 k8 B( B0 ~9 k5 K* Q U
(command "pline" po p1 p2 p3 "C")
* d, ^0 I+ [2 \ (SetVar "osmode" 39)+ u! Q; N! P: o) x4 u: c* ^
(princ "\n More ....\t")
) {& k8 ~4 ~9 e; E2 a# }' S )
& d1 s! z- d9 R9 _/ s2 e (princ)
- ^: D4 q6 h; ^$ Y- N ) |
评分
-
查看全部评分
|