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

yunkai8 · 发表于 2004-4-12 10:14:35

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

讨厌那该死的爱心币！初学的朋友来看看吧。
;自动表格绘制程序[php]
(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)
)[/php]

lhdlgmz · 发表于 2004-4-12 21:28:37

不输入栏数、行数直接使用默认值时出错。其实现在很多与EXCEL配合使用的小工具已经很多了，而且比这好用。这显得功能太小了。

yunkai8 · 发表于 2004-4-12 21:39:13

多谢lhdlgmz 提点我回去研究研究

lsy6699 · 发表于 2004-4-12 22:02:42

不知道怎么用！可以详细说明吗？？谢谢！

fetalpig · 发表于 2004-4-14 00:31:50

如何入手学lisp。

xcajcj · 发表于 2004-4-14 00:43:56

作为学习AutoLISP编程时参考还是很不错的。

dlldll · 发表于 2004-4-14 01:37:26

这个正适合我学习用.

yunkai8 · 发表于 2004-4-14 21:35:10

推荐初学者一本好书
autolisp&dcl基础铁道出版社 2003，1，1出版

david96007 · 发表于 2004-4-14 23:15:29

学会了两个函数：itoa chr!
谢谢！

andyhua5240 · 发表于 2004-4-15 09:17:02

程序有错，在栏数5那个位置！

ywx0576 · 发表于 2004-4-15 12:00:40

在提示“栏数 ||| <5>:”和“行数 --- <5>:”时按回车退出。

monkeyzx · 发表于 2004-4-15 12:21:15

最初由 yunkai8 发布
[B]讨厌那该死的爱心币！初学的朋友来看看吧。
;自动表格绘制程序[php]
(defun c:hzbg()
(setvar "cmdecho" 0)
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(setq pt1 (getpoint "\n第一角点: ... [/B]

谢谢
我回去试一下

myrooms · 发表于 2004-4-16 15:08:34

不错，我试了一下，没有设置默认值，必须自己输入，否则出错，估计在lisp中实现有的困难，不能自定义多个竖线间距，下次有空我改造一下。谢谢了

ansanmao · 发表于 2004-4-17 13:55:55

不错,对我初学lisp大有帮助

zjqtc · 发表于 2004-5-7 09:13:37

我是个新手，这对我很有用。
谢谢！！！！

账号		自动登录	找回密码
密码			立即注册

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

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

浏览过的版块