刚开始学lisp，程序简单也不会，求指教

影带走流年

小弟，想画一个这样的图形：首先画出一个任意倾角的矩形，接着画出这个矩形包围的矩形，再然后扩大规定的长度。在计算矩形维护带的过程中，算出的点在使用pline或者line时不能画出矩形，求大神帮忙看看。小弟新学，再次谢过。



(defun c:jx()
  (setvar "cmdecho" 0)
  (setq p1 (getpoint "\n指定矩形的右下角点"))
  (setq w (getreal "\n指定矩形的宽度"))
  (setq h (getreal "\n指定矩形的高度"))
  (setq ang (getreal "\n指定矩形的倾斜角度"))
  (setq wh (getreal "\n围护带宽度<20>"))
  (if (= wh "") (= wh 20))
  (setq angh (* pi (/ ang 180)))
;;;  计算广场的各点
  (setq p2 (polar p1 angh h))
  (setq p3 (polar p2 (+ angh (/ pi 2)) w))
  (setq p4 (polar p1 (+ angh (/ pi 2)) w))
  (command  "pline" p1 p2 p3 p4 p1 "")
;;;  计算包围广场的矩形的各点
  (setq rp1 (list (car p4) (cadr p1)))
  (setq rp2 (list (car p2) (cadr p1)))
  (setq rp3 (list (car p2) (cadr p3)))
  (setq rp4 (list (car p4) (cadr p3)))
  (command  "line" rp1 rp2 rp3 rp4 rp1 "")
;;;  计算矩形围护带的各点
  (setq whp1 (list (- (car p4) wh) (- (cadr p1) wh)))
  (setq whp2 (list (+ (car p2) wh) (- (cadr p1) wh)))
  (setq whp3 (list (+ (car p2) wh) (+ (cadr p3) wh)))
  (setq whp4 (list (- (car p4) wh) (+ (cadr p3) wh)))
  (command  "pline" whp1 whp2 whp3 whp4 whp1 )
  (prin1)
)

lsjj

關了鎖點再說

ZZXXQQ

(setvar "OSMODE" 0)

影带走流年

ZZXXQQ 发表于 2013-10-23 07:57
(setvar "OSMODE" 0)

我按您的方式试了一下，还是不行在(setq whp1 (list (- (car p4) wh) (- (cadr p1) wh)))中的(car p4)出现错误: 参数类型错误: numberp: nil，这个怎么理解的啊，麻烦了

ZZXXQQ

2. (defun c:jx()
   
3.   (setvar "cmdecho" 0)
   
4. (setvar "OSMODE" 0)
   
5. (setq p1 (getpoint "\n指定矩形的右下角点: "))
   
6. (setq w (getreal "\n指定矩形的宽度: "))
   
7. (setq h (getreal "\n指定矩形的高度: "))
   
8. (setq ang (getreal "\n指定矩形的倾斜角度: "))
   
9. (setq wh (getreal "\n围护带宽度<20>: "))
   
10. (setq wh (if wh wh 20))
    
11. (setq angh (/ (* ang pi) 180))
    
12. ;;;  计算广场的各点
    
13. (setq p2 (polar p1 angh h))
    
14. (setq p3 (polar p2 (+ angh (/ pi 2)) w))
    
15. (setq p4 (polar p1 (+ angh (/ pi 2)) w))
    
16. (command  "pline" p1 p2 p3 p4 "c")
    
17. ;;;  计算包围广场的矩形的各点
    
18. (setq rp1 (list (car p4) (cadr p1)))
    
19. (setq rp2 (list (car p2) (cadr p1)))
    
20. (setq rp3 (list (car p2) (cadr p3)))
    
21. (setq rp4 (list (car p4) (cadr p3)))
    
22. (command  "line" rp1 rp2 rp3 rp4 "c")
    
23. ;;;  计算矩形围护带的各点
    
24. (setq whp1 (list (- (car p4) wh) (- (cadr p1) wh)))
    
25. (setq whp2 (list (+ (car p2) wh) (- (cadr p1) wh)))
    
26. (setq whp3 (list (+ (car p2) wh) (+ (cadr p3) wh)))
    
27. (setq whp4 (list (- (car p4) wh) (+ (cadr p3) wh)))
    
28. (command  "pline" whp1 whp2 whp3 whp4 "c")
    
29. (setvar "CMDECHO" 1)
    
30. (prin1)
    
31. )
    

(defun c:jx()<br />   (setvar "cmdecho" 0)<br /> (setvar "OSMODE" 0)<br /> (setq p1 (getpoint "\n指定矩形的右下角点: "))<br /> (setq w (getreal "\n指定矩形的宽度: "))<br /> (setq h (getreal "\n指定矩形的高度: "))<br /> (setq ang (getreal "\n指定矩形的倾斜角度: "))<br /> (setq wh (getreal "\n围护带宽度<20>: "))<br /> (setq wh (if wh wh 20))<br /> (setq angh (/ (* ang pi) 180))<br /> ;;;  计算广场的各点<br /> (setq p2 (polar p1 angh h))<br /> (setq p3 (polar p2 (+ angh (/ pi 2)) w))<br /> (setq p4 (polar p1 (+ angh (/ pi 2)) w))<br /> (command  "pline" p1 p2 p3 p4 "c")<br /> ;;;  计算包围广场的矩形的各点<br /> (setq rp1 (list (car p4) (cadr p1)))<br /> (setq rp2 (list (car p2) (cadr p1)))<br /> (setq rp3 (list (car p2) (cadr p3)))<br /> (setq rp4 (list (car p4) (cadr p3)))<br /> (command  "line" rp1 rp2 rp3 rp4 "c")<br /> ;;;  计算矩形围护带的各点<br /> (setq whp1 (list (- (car p4) wh) (- (cadr p1) wh)))<br /> (setq whp2 (list (+ (car p2) wh) (- (cadr p1) wh)))<br /> (setq whp3 (list (+ (car p2) wh) (+ (cadr p3) wh)))<br /> (setq whp4 (list (- (car p4) wh) (+ (cadr p3) wh)))<br /> (command  "pline" whp1 whp2 whp3 whp4 "c")<br /> (setvar "CMDECHO" 1)<br /> (prin1)<br /> )<br />

影带走流年

ZZXXQQ 发表于 2013-10-23 22:00

谢谢你啊，我知道自己哪里错了。wh赋值没有成功，但是我还是不明白为什么 (if (= wh “”l ) (setq wh 20))为什么没有给sh赋值，是因为空与nil不同是吧。谢谢你啊。

spiderman

(setq wh (if wh wh 20))
原来还可以这么写，学习了。

影带走流年

spiderman 发表于 2013-10-28 00:15
(setq wh (if wh wh 20))
原来还可以这么写，学习了。

这个确实厉害

spiderman

很多时候高手高手们随随便便一句代码，就够俺等新手们好好观摩一阵子了，呵呵。