如何在CAD中预显示lisp程序的图形

LSJ309

如何在CAD中预显示lisp程序的图形，请高手给个程序

SunVei

Try Doslib

LSJ309

感谢 sunvei 的解答。我的意思是，比如我写一个画矩形的lisp程序，我执行程序后在屏幕上出现一个矩形框，可以随着我的十字指针移动，在我单击鼠标左键或者确定后这个方框才固定在屏幕上。

SunVei

...屏幕上出现一个矩形框...
2 v0 ~( h  e6 g3 Oi.e. (setq p1 '(0 0) p2 (getcorner p1))
9 `; R; h. ^) `- xam I right?

www1974

% H, u  B% S" _
4# SunVei
# h( l8 \7 k. }& M# ~6 s: N: b' R6 f
: z8 H% y6 B+ O$ @1 l

1.         (if (setq a (getpoint "点取斜线长度和方向 <回车确定>"))
   
2.              (while (= (car (setq gr (grread nil 5 0))) 5)
   - ?/ M5 |4 ]& b* b- e* }% J, d
3.                   (redraw)
   
4.                   (setq b (cadr gr))
   
5.                   (grdraw b a 1 1)
   + X; T7 X% G7 G; }9 {: T
6.                   (setq ax (car a) ay (cadr a))
   ( s3 {3 A/ k4 @) J& T0 _& I
7.                   (setq bx (car b) by (cadr b))
   
8.                   (setq pnx (- bx ax) pny (- by ay))
   3 l; Q' z) C5 y, [
9.                   ;;(if (< (abs pnx) 5) (setq pnx 25 pny 25))
   6 L8 t9 M5 J- I
10.                   (posmove2 ss (/ pnx 3) (/ pny 3))
    
11.               );;while
    
12.           );;if

复制代码

LSJ309

意思差不多，我是初学还不能理解a