|
|
发表于 2010-6-11 11:29:16
|
显示全部楼层
来自： 中国台湾
;; 同心的矩形 for test only
; K7 b- B3 L4 I" K) D; K (defun c:rectc (/ bp dx dy po p1 p2 p3)
9 z2 `2 n" q* i. m. ? (setq bp (getpoint "\n>> 同心矩形的中心点 : ")). X ] }' R1 S
(while (setq dx (getDist "矩形边的长度 X= "))$ A& l# A" v0 m2 v0 H
(setq dy (getDist "矩形边的长度 Y= ")
4 }, T2 D3 n. E% r( G+ } dx (/ dx 2)
0 r# ?3 A( R3 M8 d u" ]9 W8 p dy (/ dy 2)
' [7 G0 n! h1 S, b3 c- }& G1 e po (list (- (car bp) dx) (- (cadr bp) dy))
/ v8 A& E2 o+ {! d z p1 (list (+ (car bp) dx) (cadr po))
- U) N. n0 {. }( N# k% W6 ^5 ~ p2 (list (+ (car bp) dx) (+ (cadr bp) dy))
0 h/ t! d7 [! L3 G p3 (list (car po) (cadr p2))! c4 a, n8 N$ `. s1 S
)% ]# v* L* K) {8 Z3 F3 R7 Z
(SetVar "osmode" 0)
- z$ @8 P$ V7 { (command "pline" po p1 p2 p3 "C")! X: z! b3 ^' r, b, f1 O
(SetVar "osmode" 39)# \4 Z! w, w9 R
(princ "\n More ....\t")
6 }; a# i1 `$ B8 M8 L8 N4 Z )2 o. q* P9 Y7 G- U( [+ h
(princ)
8 h0 a3 ?* _( b# N0 [. R3 \( Z7 X ) |
评分
-
查看全部评分
|
楼主
在CAD软件用偏移命令本人觉得够简单了。
发表于 2010-6-10 22:51:04