|
|
发表于 2010-6-11 11:29:16
|
显示全部楼层
来自: 中国台湾
;; 同心的矩形 for test only) _, z& C' M' z$ a0 \
(defun c:rectc (/ bp dx dy po p1 p2 p3)
$ G3 s- _' s4 O" ?7 }+ { (setq bp (getpoint "\n>> 同心矩形的中心点 : "))
9 }! O6 O+ R9 F" R! a& L3 P (while (setq dx (getDist "矩形边的长度 X= "))
, w# V4 u4 z. @) a (setq dy (getDist "矩形边的长度 Y= ")
& D) J! d- n. A2 g# E; l) [2 v( A dx (/ dx 2)
- j1 G4 f9 v9 r/ Y& K; Q dy (/ dy 2)
4 `! \" w. c$ c3 e7 L( y# Z$ k& ` po (list (- (car bp) dx) (- (cadr bp) dy))
4 H$ C$ {: W8 L, p p1 (list (+ (car bp) dx) (cadr po))! S6 \3 t) | {5 ?: L. @8 i% b- \
p2 (list (+ (car bp) dx) (+ (cadr bp) dy))! u0 r& ~& o* L
p3 (list (car po) (cadr p2))! m" q- f( D: \- _( ?, L3 \
)% v3 k+ b( E6 v3 P2 R( F. @! G
(SetVar "osmode" 0)# e, P1 D5 C1 j
(command "pline" po p1 p2 p3 "C")7 X# `+ \8 Y( E4 b' N
(SetVar "osmode" 39)# N! Z e; t; e1 J* K5 Y3 n6 q. e" [
(princ "\n More ....\t")( N4 r; P7 V8 n4 c9 `2 x% O
)
1 i% i7 F( P& N' D+ T1 W. j" z5 M6 k (princ)
# f% N! U" F. ^; t ) |
评分
-
查看全部评分
|