|
|
发表于 2010-6-11 11:29:16
|
显示全部楼层
来自: 中国台湾
;; 同心的矩形 for test only, i5 X9 \3 R+ W% P/ [
(defun c:rectc (/ bp dx dy po p1 p2 p3), `; b, _) P$ T+ a- ?# W
(setq bp (getpoint "\n>> 同心矩形的中心点 : "))
0 |( \% S9 h5 I4 l1 }" c (while (setq dx (getDist "矩形边的长度 X= "))
4 p X& S$ a8 X" N (setq dy (getDist "矩形边的长度 Y= ")
% u J e% w9 R5 n dx (/ dx 2)
( A% i7 T @; l7 W$ V+ G/ n dy (/ dy 2)
/ t) Y- {$ I9 j- q, C9 F0 F" T po (list (- (car bp) dx) (- (cadr bp) dy))# G7 n' M# Q' z5 l/ m5 [ L
p1 (list (+ (car bp) dx) (cadr po))
( O4 r8 x4 D$ S n2 q$ D, r( ^1 g( ? p2 (list (+ (car bp) dx) (+ (cadr bp) dy))
$ M" s! H* z$ j5 l- y p3 (list (car po) (cadr p2))
, i: Z4 F) V' ^ )
5 q. }# [- G" n; v8 E (SetVar "osmode" 0)
0 S; |6 A1 a2 T& z# D' q* q0 V7 J (command "pline" po p1 p2 p3 "C")
5 }4 \ q5 j3 H/ O (SetVar "osmode" 39)$ s, {( g4 x1 B( R- L; a+ V i
(princ "\n More ....\t")7 z% C2 o1 a9 |, z! _) J+ H
)( g T- u9 N( o& C
(princ)
7 E2 B& D% `0 I( ?* w9 k( | ) |
评分
-
查看全部评分
|