我写的lisp程序，请教

[复制链接]

tossi

1 主题	1 帖子	1 银币

初来乍到

Rank: 1

铜币: 5

发消息

发表于 2002-7-17 20:24:00 | 显示全部楼层 |阅读模式

我写的lisp程序，目的是删除间距固定的多个图形，老是删几个就停了，
请教，作用环境：R14,程序如下
(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 右上点)

)

使用道具举报