|
|
发表于 2010-6-11 11:29:16
|
显示全部楼层
来自: 中国台湾
;; 同心的矩形 for test only/ B( \/ a% m9 m2 L! b, l6 A
(defun c:rectc (/ bp dx dy po p1 p2 p3)2 R+ Q p1 w3 e) h" D
(setq bp (getpoint "\n>> 同心矩形的中心点 : "))
; T, N: H+ u! h$ [7 q' ^' d (while (setq dx (getDist "矩形边的长度 X= "))
, c: u, X- g6 j8 Y3 r6 W; v (setq dy (getDist "矩形边的长度 Y= ")
" \/ M& @0 q Y, v* `; E dx (/ dx 2)
9 f! a. F) h6 t. r% p2 q ^ dy (/ dy 2)) y& _2 f" D6 F: z* f% D/ y
po (list (- (car bp) dx) (- (cadr bp) dy)); l( R% F" J M( m5 U2 H+ g; f
p1 (list (+ (car bp) dx) (cadr po))- `- n8 e* N3 Q, P
p2 (list (+ (car bp) dx) (+ (cadr bp) dy))
! L% d! \6 i% F# B# ] p3 (list (car po) (cadr p2))
# N8 x' W- ]: c- c )
+ ?+ r2 @; ~1 |; g$ r" f( p+ I (SetVar "osmode" 0) j7 j" Q6 E, M' K1 c/ s9 ]9 w
(command "pline" po p1 p2 p3 "C")( ~! {& `; Q" Q3 E' J
(SetVar "osmode" 39)0 Y( w! `) c3 y, t/ H- o& r
(princ "\n More ....\t")
2 M. H/ _8 z1 o9 B, N )$ w# e1 z' P: W* G' K
(princ)3 U6 l% r" a8 k$ Y& @5 L, q5 Y& c& W
) |
评分
-
查看全部评分
|