2013-09-20 明经 AutoLISP 编程②(177027547) 群聊记录：(setq ang_pb (atan (/ hh ww))) (se

明经快报

蝴蝶效应 22:14:46

(setq ang_pb (atan (/ hh ww)))
   (setq ang_pb (* ang_pb (/ 180 pi)))
   (setq ang_pc (- 90 ang_pb))
   (princ " PB的夹角=")(princ ang_pb)(princ "度")
   (princ " PC的夹角=")(princ ang_pc)(princ "度")
各位大哥这几句怎么理解呀

[ZZXXQQ] 22:17:16

1计算角度（弧度）
2转换角度（度）
3计算补角
4显示计算角度
5显示计算补角

蝴蝶效应 22:18:45

谢谢

明经快报

蝴蝶效应 22:31:41

(prompt "  rect1 command drows a rectangle") 
  (setq p1 (getpoint "  enter first corner")) 
  (setq p3 (getpoint "  enter opposite corner")) 
  (setq p2 (list (car p3) (cadr p1)))
  (setq p4 (list (car p1) (cadr p3)))
再请问一下这些怎么理解

[ZZXXQQ] 22:33:52

1提示
2提示输入点p1
3提示输入点p3
4计算点p2
5计算点p4

蝴蝶效应 22:36:16

那它为什么不直接输入四个点，而要只输入两个点，再去计算呢？

[ZZXXQQ] 22:37:00

输的少好呀

蝴蝶效应 22:37:34

是由程序自动去完成是吧