[LISP程序]：教小孩子算算术的小程序，请“大家”完善

urljit

[PHP];;;列出算式要求答案，判断对错
(defun c:ss (/ answer entnum num1 num2 xian1 xian2 ccdate high midpt
             elist ptg)
  (defun sserr (s)
    (cond ((= s "quit / exit abort")
           (princ)
          )
    )
    (setq *error* olderr)
    (command "undo" "end")
    (princ)
  )
  (setq        olderr        *error*
        *error*        sserr
  )
  (setq        xian1 8
        xian2 5
        num1 9
  )
  (while (or (<= num1 xian1) (<= num2 xian2))
    (setq ccdate (getvar "cdate"))
    (setq ccdate (- ccdate (fix ccdate)))
    (setq ccdate (- (* ccdate 1000000) (fix (* ccdate 1000000))))
    (setq num1 (fix (* ccdate 100)))
    (setq ccdate (- (* ccdate 1000000) (fix (* ccdate 1000000))))
    (setq num2 (fix (* ccdate 10)))
  )
  (setq high (/ (getvar "viewsize") 8))
  (setq midpt (polar (getvar "viewctr") (* 1.5 pi) (* 4 high)))
  (command "-pan" (list 0 high) "")
  (setq high (/ high 1.5))
  (entmake
    (list (cons 0 "TEXT")
          (cons 1 (strcat (itoa num1) "+" (itoa num2) "="))
          (cons 7 "STANDARD")
          (cons 8 "算式")
          (cons 10 (polar midpt pi (* 2.8 high)))
          (cons 40 high)
          (cons 50 0)
          (cons 41 0.7)
          (cons 71 0)
          (cons 72 0)
          (cons 73 0)
    )
  )
  (setq elist (entget (entlast)))
  (terpri)
  (setq answer nil)
  (while (/= answer (+ num1 num2))
    (while (null answer)
      (setq answer (getint "\r等于?"))
    )
    (if        (and (= entnum 2) (/= answer nil))
      (progn
        (entdel (entlast))
        (entdel (entlast))
        (setq entnum nil)
      )
    )

    (setq
      elist (subst
              (cons
                1
                (strcat        (itoa num1)
                        "+"
                        (itoa num2)
                        "="
                        (itoa answer)
                )
              )
              (assoc 1 elist)
              elist
            )
    )
    (entmod elist)
    (if        (= answer (+ num1 num2))
      (progn
        (setq ptg (polar midpt 0.15 (* 2.45 high)))
        (entmake (list (cons 0 "LWPOLYLINE")
                       (cons 8 "判断")
                       (cons 100 "AcDbEntity")
                       (cons 100 "AcDbPolyline")
                       (cons 90 3)
                       (cons 70 0)
                       (cons 62 205)
                       (cons 40 (* 0.15 high))
                       (cons 41 (* 0.15 high))
                       (cons 42 0)
                       (cons 10 ptg)
                       (cons 40 (* 0.15 high))
                       (cons 41 (* 0.15 high))
                       (cons 42 0)
                       (cons 10 (polar ptg 5.59 (* 1.0 high)))
                       (cons 40 (* 0.15 high))
                       (cons 41 (* 0.15 high))
                       (cons 42 0)
                       (cons 10 (polar ptg 0.7 (* 3.5 high)))
                 )
        )
        (setq *error* sserr)
        (exit)
      )
      (progn
        (setq ptg (polar midpt 0.15 (* 1.8 high)))
        (entmake (list (cons 0 "LWPOLYLINE")
                       (cons 8 "判断")
                       (cons 100 "AcDbEntity")
                       (cons 100 "AcDbPolyline")
                       (cons 90 3)
                       (cons 70 0)
                       (cons 62 2)
                       (cons 40 (* 0.15 high))
                       (cons 41 (* 0.15 high))
                       (cons 42 0)
                       (cons 10 (polar ptg 2.3 high))
                       (cons 40 (* 0.15 high))
                       (cons 41 (* 0.15 high))
                       (cons 42 0)
                       (cons 10 (polar ptg 5.4 high))
                 )
        )
        (entmake (list (cons 0 "LWPOLYLINE")
                       (cons 8 "判断")
                       (cons 100 "AcDbEntity")
                       (cons 100 "AcDbPolyline")
                       (cons 90 3)
                       (cons 70 0)
                       (cons 62 2)
                       (cons 40 (* 0.15 high))
                       (cons 41 (* 0.15 high))
                       (cons 42 0)
                       (cons 10 (polar ptg 0.8 high))
                       (cons 40 (* 0.15 high))
                       (cons 41 (* 0.15 high))
                       (cons 42 0)
                       (cons 10 (polar ptg 3.9 high))
                 )
        )
        (setq entnum 2)
      )
    )
    (setq answer nil)
  )
  (princ)
)
;;;----------------------------------------------------------------------------
(princ "\n  SS V1.0已加载。以SS启动命令。")
(princ)
[/php]

hyx_lyn

有一个小问题群码100是什么含义

在论坛上看到过几次。不过在资料中没有查到

请指教

urljit

我也不知道，照葫芦画瓢就可以了，呵呵。

雪山飞狐(lzh)

做选择集会用到它，在Vl里表示一个VLAObj的ObjectName属性值

hyx_lyn

多谢4楼的指点

我在CAD的帮助文件当中也查到了这个组码，那上边写的是“子类标记”只是在些看不懂

urljit

记得从前我作程序的时候试验过了，缺少是不不可以的，只能增加上。

hyx_lyn

URLJIT你好

只能在这给你回复了，我的爱心币不够

多谢你的关心我会努力的

其实在这里我们都是互相学习、互相促进的

希望我们可以成为好朋友

另提个建议看看可不可以让程序产生加、减、乘、除各种计算

urljit

hyx_lyn 你好：
你可以将存款取出就可以发送悄悄话了
让我们互相学习吧
你可以QQ联系我，我愿意和你称为好朋友
关于程序，以后有时间再改进吧