[求助]：lisp 新手的一个问题

sandylin2009

我想编个LISP
只要点一下文字，文字的数字就自动累加1的
新手，实在太菜了，请大家帮我改改


(defun c:add1()
(command "osnap" "cen"  "layer" "thaw" "bom" "set" "bom" "" )
(SETQ A (GETINT "NUMBER:"))
(WHILE (setq p (getpoint "\nSelect Entity:")
                       p1 (polar p 0.8 3))
  (command "pickbox" "0"  "ERASE" "c" p p1 "" "text" "J" "M" p 3 0 A "PICKBOX" "6")
  (SETQ A (+ 1 A))
)
(princ)
)

sjy2005

看了，不明白什么意思，应明确编程目的，采用方法及所用到的命令。

zhynt

其实这个程序已经基本满足要求了，只要将第二句去掉即可。
[php]
(defun c:add1 ()
  ;;(command "osnap" "cen" "layer" "thaw" "bom" "set" "bom" "")
  (SETQ A (GETINT "NUMBER:"))
  (WHILE (setq p (getpoint "\nSelect Entity:"))
    (setq p1 (polar p 0.8 3))

    (command "pickbox"             "0"     "ERASE" "c"     p             p1
             ""             "text"  "J"     "M"     p             3             0
             A             "PICKBOX"             "6"
            )
    (SETQ A (+ 1 A))
  )
  (princ)
)

(defun c:add2 ()
  (SETQ A (GETINT "NUMBER:"))
  (if (= a nil)
    (setq a 0)
    )
  (WHILE (setq ent (entsel "\nSelect Entity:"))
    (setq p (cadr ent))
    (command "pickbox"
             "0"
             "ERASE"
             (car ent)
             ""
             "text"
             "J"
             "M"
             p
             3
             0
             A
             "PICKBOX"
             "6"
    )
    (SETQ A (+ 1 A))
  )
  (princ)
)
[/php]