[文章]：初来此地送上一个表格绘制程序，完全免费，开放源代码。

whulcx

多谢

xjjy

改成这样九可以了：

   (setq wnn (getint "\n栏数 ||| <5>: "))
    (if (= wnn nil)
       (setq wnn 5)
    )
   (setq hnn (getint "\n行数 --- <5>: "))
     (if (= hnn nil)
         (setq hnn 5)
     )

hyx_lyn

在取默认值的时候只要把程序中的NULL改为NOT就可以了

freeme

可以作为学习用,呵呵!

silen618

把以下相应内容修改一下，便有默认值了。
一般情况下null用于表判断，not用于其它类型。建议用not。

(setq wnn (getint "\n栏数 ||| <5>: "))
  (if (not wnn)
    (setq wnn 5)
    (setq wnn (1+ wnn))
    )
  (setq hnn (getint "\n行数 --- <5>: "))
  (if (not hnn)
    (setq hnn 5)
    (setq hnn (1+ hnn))
    )

shongdragon3

强烈支持免费！——爱心逼也不例外

xiaoyanyan

(defun c:bg()
   (setvar "cmdecho" 0)
   (setq os (getvar "osmode"))
   (setvar "osmode" 0)
   (setq pt1 (getpoint "\n第一角点: "))
   (setq pt3 (getcorner pt1 "\n另一角点: "))
   (command "rectang" "w" 0 pt1 pt3)
   (setq wnn (1+ (getint "\n栏数 |||<列> : ")))
   (setq hnn (1+ (getint "\n行数 --- <行>: ")))
   (setq pt2 (list (car pt3) (cadr pt1)))
   (setq pt4 (list (car pt1) (cadr pt3)))
   (setq ang (angle pt1 pt3))
   (cond ((and (> ang 0) (< ang (/ pi 2)))  (setq pp1 pt1 pp2 pt2 pp3 pt3 pp4 pt4))
         ((and (> ang (/ pi 2)) (< ang pi)) (setq pp1 pt2 pp2 pt1 pp3 pt4 pp4 pt3))
         ((and (> ang pi) (< ang (* pi 1.5))) (setq pp1 pt3 pp2 pt4 pp3 pt1 pp4 pt2))
         ((and (> ang (* pi 1.5)) (< ang (* pi 2))) (setq pp1 pt4 pp2 pt3 pp3 pt2 pp4 pt1))
   )
   (setq num 1 txt 65)
   (setq ww (distance pp1 pp2))
   (setq hh (distance pp1 pp4))
   (setq pt1 pp4 ppbas pp4 key 1)
   (repeat hnn
      (setq pt1 (polar pt1 (* pi 1.5) (/ hh hnn)))
      (setq pt2 (polar pt1 0 ww))
      (command "line" pt1 pt2 "")
      (if (> key 1)
         (progn
           (setq txtins (inters ppbas (polar pt1 0 (/ ww wnn)) pt1 (polar ppbas 0 (/ ww wnn))))
           (command "text" "m" txtins (/ hh hnn 2) 0 (itoa num))
           (setq num (1+ num))
         )
      )
      (setq ppbas pt1 key (1+ key))
  )
  (setq pt1 pp4 ppbas pp4 key 1)
  (repeat wnn
      (setq pt1 (polar pt1 0 (/ ww wnn)))
      (setq pt2 (polar pt1 (* pi 1.5) hh))
      (command "line" pt1 pt2 "")
      (if (> key 1)
         (progn
           (setq txtins (inters ppbas (polar pt1 (* pi 1.5) (/ hh hnn)) pt1 (polar ppbas (* pi 1.5) (/ hh hnn))))
           (command "text" "m" txtins (/ hh hnn 2) 0 (chr txt))
           (setq txt (1+ txt))
         )
      )
      (setq ppbas pt1 key (1+ key))
  )      

  (prin1)
)