我这程序有问题,哪位高手帮调一下

wxl1981807

(defun c:cb()
(setq s1 (getpoint "n/输入第一点"))
(setq s2 (list(+(car s1)2440)(cadr s1)))
(setq s3 (list(+(car s1)2440)(+(cadr s1)1220)))
(setq s4 (list(car s1)(+(cadr s1)1220)))
(command "line" s1 s2 s3 s4 "c")
(setq v1 (getpoint "n/输入1长宽"))
(setq s5 (list(+(car s1) 5) (+(cadr s1) 5)))
(setq s6 (list(+(car s1) 5 (car v1)) (+(cadr s1) 5)))
(setq s7 (list(+(car s1) 5 (car v1)) (+(cadr s1) 5 (cadr v1))))
(setq s8 (list(+(car s1) 5) (+(cadr s1) 5 (cadr b1))))
(setq z1 (distance s1 s2))
(setq z2 (distance s1 s4))
(setq l1(distance s5 s6))
(setq l2(distance s5 s8))
(while (>= z1 l1)
(setq z1 (- z1 (+ l1 5)))
(command "line" s5 s6 s7 s8 "c")
(setq s9 s5)
(setq s10 s6)
(setq s11 s7)
(setq s12 s8)
(while (>= z2 l2)
(setq z2 (- z2 (+ l2 5)))
(setq s9 (list(car s9) (+(cadr s9) l2 5))
(setq s10 (list(car s10) (+(cadr s10) l2 5))
(setq s11 (list(car s11) (+(cadr s11) l2 5))
(setq s12 (list(car s12) (+(cadr s12) l2 5))
(command "line" s9 s10 s11 s12 "c")
(setq s5 (list(+(car s5) 5 l1)(cadr s5)))
(setq s6 (list(+(car s6) 5 l1)(cadr s6)))
(setq s7 (list(+(car s7) 5 l1)(cadr s7)))
(setq s8 (list(+(car s8) 5 l1)(cadr s8)))
)
)
)

谢谢了

ZZXXQQ

http://p4.xdcad.net/forum/showthread.php?s=&threadid=447927

yshf

;你的程序主要错误在于没有变量b1赋值及漏掉右括号")"
(defun c:cb()
  (setq s1 (getpoint "n/输入第一点"))
  (setq s2 (list(+(car s1)2440)(cadr s1)))
  (setq s3 (list(+(car s1)2440)(+(cadr s1)1220)))
  (setq s4 (list(car s1)(+(cadr s1)1220)))
  (command "line" s1 s2 s3 s4 "c")
  (setq v1 (getpoint "n/输入1长宽"))
  (setq s5 (list(+(car s1) 5) (+(cadr s1) 5)))
  (setq s7 (list(+(car s1) 5 (car v1)) (+(cadr s1) 5 (cadr v1))))
  ;没有对下行中的变量b1赋值
  (setq s8 (list(+(car s1) 5) (+(cadr s1) 5 (cadr b1))))
  (setq z1 (distance s1 s2))
  (setq z2 (distance s1 s4))
  (setq l1(distance s5 s6))
  (setq l2(distance s5 s8))
  (while (>= z1 l1)
    (setq z1 (- z1 (+ l1 5)))
    (command "line" s5 s6 s7 s8 "c")
    (setq s9 s5)
    (setq s10 s6)
    (setq s11 s7)
    (setq s12 s8)
    (while (>= z2 l2)
       (setq z2 (- z2 (+ l2 5)))
       ;以下四行漏掉右括号")"
       ;(setq s9 (list(car s9) (+(cadr s9) l2 5))
       ;(setq s10 (list(car s10) (+(cadr s10) l2 5))
       ;(setq s11 (list(car s11) (+(cadr s11) l2 5))
       ;(setq s12 (list(car s12) (+(cadr s12) l2 5))
       ;改正后的如下
       (setq s9 (list(car s9) (+(cadr s9) l2 5)))
       (setq s10 (list(car s10) (+(cadr s10) l2 5)))
       (setq s11 (list(car s11) (+(cadr s11) l2 5)))
       (setq s12 (list(car s12) (+(cadr s12) l2 5)))
       (command "line" s9 s10 s11 s12 "c")
       (setq s5 (list(+(car s5) 5 l1)(cadr s5)))
       (setq s6 (list(+(car s6) 5 l1)(cadr s6)))
       (setq s7 (list(+(car s7) 5 l1)(cadr s7)))
       (setq s8 (list(+(car s8) 5 l1)(cadr s8)))
   )
 )
)

shl1980912

有意思

zsh8012

对3楼的说明补充几个问题:

defun c:cb()
(setq s1 (getpoint "n/输入第一点"));;-----------------n/应改为\n  以下同
(setq s2 (list(+(car s1)2440)(cadr s1)))
(setq s3 (list(+(car s1)2440)(+(cadr s1)1220)))
(setq s4 (list(car s1)(+(cadr s1)1220)))
(command "line" s1 s2 s3 s4 "c")  ;;;画矩形为什么不用(command "_rectang)
(setq v1 (getpoint "n/输入1长宽"))   ;;;---------------n/应改为\n  以下同
(setq s5 (list(+(car s1) 5) (+(cadr s1) 5)))
(setq s6 (list(+(car s1) 5 (car v1)) (+(cadr s1) 5)))
(setq s7 (list(+(car s1) 5 (car v1)) (+(cadr s1) 5 (cadr v1))))
(setq s8 (list(+(car s1) 5) (+(cadr s1) 5 (cadr b1))))
(setq z1 (distance s1 s2))
(setq z2 (distance s1 s4))
(setq l1(distance s5 s6))
(setq l2(distance s5 s8))
(while (>= z1 l1)
(setq z1 (- z1 (+ l1 5)))
(command "line" s5 s6 s7 s8 "c")
(setq s9 s5)
(setq s10 s6)
(setq s11 s7)
(setq s12 s8)
(while (>= z2 l2)
(setq z2 (- z2 (+ l2 5)))
(setq s9 (list(car s9) (+(cadr s9) l2 5))
(setq s10 (list(car s10) (+(cadr s10) l2 5))
(setq s11 (list(car s11) (+(cadr s11) l2 5))
(setq s12 (list(car s12) (+(cadr s12) l2 5))
(command "line" s9 s10 s11 s12 "c")
(setq s5 (list(+(car s5) 5 l1)(cadr s5)))
(setq s6 (list(+(car s6) 5 l1)(cadr s6)))
(setq s7 (list(+(car s7) 5 l1)(cadr s7)))
(setq s8 (list(+(car s8) 5 l1)(cadr s8)))
)
)
)