|
|
发表于 2014-4-9 20:43:01
|
显示全部楼层
来自: 中国江苏无锡
(command "cal" ^C)
; r5 h2 Y( J4 W& M2 L(defun c:tt1 ( / a)
( c( R$ U) k& U5 ?3 }/ m$ b+ T(setq a "1")0 Z1 d$ m( [. D& J" o2 F% Y
(command "._rectang" (getpoint "左下角点") "non"
- g% i/ ^' ^$ s8 f (progn (while (= nil (listp a)) (setq a (cal(getstring "输入右上角坐标计算式"))))# |5 n- u+ o/ p" X/ [! S; O+ v7 y
(reverse (cdr(reverse a)))0 D5 q' n2 B, K1 h: p, p F
)2 h+ \* v3 ?- P& P
)
) u0 F) K: X/ c/ @/ ])
! `, x( u6 C7 S3 p! B; g, b)
8 [, _# N( p3 P9 u5 H" y |
评分
-
查看全部评分
|