我写的lisp程序，请教

tossi · 发表于 2002-7-17 20:24

我写的lisp程序，目的是删除间距固定的多个图形，老是删几个就停了，
请教，作用环境：AutoCADR14,程序如下
(defun c:are6 ()


      (setq pt (getpoint"\nEnter Base Point:"))


(setq 间距 440
左下x  (car pt)
左下y  (cadr pt))

(setq  右上x  (+ 左下x 420 ))
(setq  右上y  (+ 左下y 297 ))

      (setq  左下点  (list 左下x  左下y  ))
   (setq  右上点  (list 右上x  右上y  ))
   (setq s1 (ssget "w" 左下点右上点))
(while s1

(command "erase" s1 "")

(setq  左下x  (+ 左下x  间距 ))
(setq  右上x  (+ 右上x  间距 ))
               (setq  左下点  (list 左下x  左下y  ))
               (setq  右上点  (list 右上x  右上y  ))
            (setq s1 (ssget "w" 左下点右上点))
)

      (princ 左下点)
      (princ 右上点)

)

mccad · 发表于 2002-7-17 20:37

tossi · 发表于 2002-7-17 21:00

南子 · 发表于 2002-7-17 22:45

tossi · 发表于 2002-7-18 08:33

账号		自动登录	找回密码
密码			注册

我写的lisp程序，请教

选择集S1没有东西就会停下来

我的意思是老是删不完，一般删两个就停了，大家看看程序有什么毛病，

在(ssget "w" xx)之前，(command "_.zoom" "a")

一切ok,多谢南子兄