|
|
发表于 2010-6-11 11:29:16
|
显示全部楼层
来自: 中国台湾
;; 同心的矩形 for test only( V i6 E; v8 v% N4 v- _. M
(defun c:rectc (/ bp dx dy po p1 p2 p3)! e+ N0 ^+ C% L' A7 E3 X) V- }
(setq bp (getpoint "\n>> 同心矩形的中心点 : "))" h( @, ^& M% ]/ C" X7 ]1 q4 U' g
(while (setq dx (getDist "矩形边的长度 X= "))2 j0 O* q9 e* V' E$ u+ w/ a
(setq dy (getDist "矩形边的长度 Y= ")
; p5 L% a5 n1 Z% l. i dx (/ dx 2)
( U( Y, r7 J! c6 M$ N' t dy (/ dy 2)/ |5 u1 M. ^& W8 } L5 t
po (list (- (car bp) dx) (- (cadr bp) dy))
) x* n% n: L& R" m5 M p1 (list (+ (car bp) dx) (cadr po)) n, t( D5 Z. a3 L, w' c* ~/ b
p2 (list (+ (car bp) dx) (+ (cadr bp) dy))
8 [- ?, O# }0 |- b5 j p3 (list (car po) (cadr p2))2 `' |/ A2 b) D: h, M% }; x" g
)! h3 p' f) B( u- R
(SetVar "osmode" 0)
; P+ P/ B5 E6 C, J (command "pline" po p1 p2 p3 "C")
# y# e6 Y' T' h) `% E; g. W# W9 K# N$ E (SetVar "osmode" 39)2 J; O# R3 {( d9 \. M! r. x' `
(princ "\n More ....\t"), ~: f$ q; U5 c5 c/ W0 q
)9 w, C& G" y- b0 I) r
(princ)
0 {- }. r! s0 V7 P5 B9 B ) |
评分
-
查看全部评分
|