[推荐]：lisp制表程序无需爱心币

monkeyzx

(defun c:hzbg()
   (setvar "cmdecho" 0)
   (setq os (getvar "osmode"))
   (setvar "osmode" 0)
   (setq pt1 (getpoint "\n第一角点: "))
   (setq pt3 (getcorner pt1 "\n另一角点: "))
   (command "rectang" "w" 1 pt1 pt3)
   (setq wnn (1+ (getint "\n栏数 ||| <5>: ")))
   (if (null wnn) (setq wnn 5))
   (setq hnn (1+ (getint "\n行数 --- <5>: ")))
   (if (null hnn) (setq hnn 5))
   (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)
)

心湖

试过了，很好用，谢谢！！！！
太厉害了。

yunkai8

大哥，我发过了，不过这个程序还可以改进一下
http://www.xdcad.net/forum/showthread.php?s=&threadid=166907

myrooms

谢谢了，我试试

yfywk

厉害
确实不错，要是不加粗边框就更好了！

rungang2002

确实不错,省时了不少

ywp7103

试过了，用处嘛！大家试试，对于我来说，用处不大，但我还得谢谢你！

xyp1964

先定义行数、行宽、列数、列高再生成表格可能更符合画图习惯，最好利用dcl对话框！

saltxf

虽然有些人已经发过了，但在这里在发一次也无妨，每个人编的习惯都不一样。

fylinwater

(setq wnn (1+ (getint "\n栏数 ||| <5>: ")))
(if (null wnn) (setq wnn 5))
这两行写错了，

2. 
   
3. (setq wnn  (getint "\n栏数 ||| <5>: "))
   
4. (if (null wnn) (setq wnn 5))
   
5. (SETQ WNN (1+ WNN))
   
6. 
   
7. 
   

<br /> (setq wnn  (getint "\n栏数 ||| <5>: "))<br /> (if (null wnn) (setq wnn 5)) <br /> (SETQ WNN (1+ WNN))<br /> <br /> <br />

realizezb

不错