设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › 程序（函数）库 › LISP/VLISP函数库 › [LISP函数]：自动生成表格的lisp(好东西与大家共享) ...
123下一页
返回列表 发新帖
查看: 5513|回复: 36

[LISP函数]：自动生成表格的lisp(好东西与大家共享)

[复制链接]
xingbaoquan99
发表于 2004-7-12 20:39:07 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

×
  2. (defun C:bg(/ rows colu rows1 rows2 ly lx i ii propt colu1 co coo
  3.                 dx dy dxx dyy str with ptp1 ptp2 ptp3 ptp4 os)
  4.    (setvar "CMDECHO" 0)
  5.    (setq lay (getvar "clayer"))
  6.    (setq os (getvar "OSMODE"))
  7.    (setvar "OSMODE" 0)
  8.    (command "color" "bylayer")
  9.    (command "layer" "m" "bg" "c" "y" "bg" "")
  10.    (initget 7)
  11.    (setq rows (getint "\n表格总行数: "))
  12.    (initget 7)
  13.    (setq colu (getint "\n表格总列数: "))
  14.    (initget 7)
  15.    (setq rows1 (getreal "\n表格第一行行距: "))
  16.    (initget 7)
  17.    (setq rows2 (getreal "\n表格其它行行距: "))
  18.    (setq ly (+ rows1 (* rows2 (1- rows))))
  19.    (setq lx 0)
  20.    (setq i 1)
  21.      (repeat colu
  22.         (initget 7)
  23.         (setq ii (itoa i))
  24.         (setq propt (strcat "表格第" ii "列列距: "))
  25.         (setq colu1 (getreal propt))
  26.         (setq lx (+ lx colu1))
  27.            (if (= 1 i) (setq co (list colu1))
  28.               (progn
  29.                  (setq coo (list colu1))
  30.                  (setq co (append co  coo))
  31.               )
  32.            )
  33.         (setq i (1+ i))
  34.      )
  35.    (setq pt1 (getpoint "\n表格左上角点: "))
  36.    (setq ptp1 pt1)
  37.       (setq dy (cadr pt1))
  38.       (setq dx (car pt1))
  39.       (setq dxx (+ dx lx))
  40.       (setq pt2 (list dxx dy))
  41.       (command "line" pt1 pt2 "")
  42.       (setq dy (- dy rows1))
  43.       (setq pt1 (list dx dy))
  44.       (setq pt2 (list dxx dy))
  45.       (command "line" pt1 pt2 "")
  46.    (repeat (1- rows)
  47.        (setq dy (- dy rows2))
  48.        (setq pt1 (list dx dy))
  49.        (setq pt2 (list dxx dy))
  50.        (command "line" pt1 pt2 "")   
  51.    )

  53.        (setq dyy (+ dy ly))
  54.        (setq pt2 (list dx dyy))
  55.        (command "line" pt1 pt2 "")
  56.    (setq i 0)
  57.    (repeat colu
  58.        (setq c (nth i co))
  59.        (setq dx (+ dx c))
  60.        (setq pt1 (list dx dy))
  61.        (setq pt2 (list dx dyy))
  62.        (command "line" pt1 pt2 "")
  63.        (setq i (1+ i))
  64.    )
  65.    (initget "Yes No")     
  66.    (setq str (getkword "\n表格边框是否加粗: 不加粗:No / <加粗:Yes> "))
  67.    (if (or (= str nil) (= (strcase str) "YES"))
  68.       (progn
  69.          (initget 6)
  70.          (setq with (getreal "\n表格边框线宽<0.6>: "))
  71.          (if (= with nil) (setq with 0.6))
  72.          (setq dy (cadr ptp1))
  73.          (setq dx (car ptp1))
  74.          (setq dxx (+ dx lx))
  75.          (setq ptp2 (list dxx dy))
  76.          (setq dyy (- dy ly))
  77.          (setq ptp3 (list dxx dyy))
  78.          (setq ptp4 (list dx dyy))
  79.          (command "PLINE" ptp1 "w" with with ptp2 ptp3 ptp4 "c")
  80.       )
  81.    )
  82.    (setvar "OSMODE" os)
  83.    (command "layer" "s" lay "")
  84.    (princ)(princ)
  85. )
setq, 表格, list

相关帖子

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

okay123hao
发表于 2004-7-15 12:53:40 | 显示全部楼层
没有效果图上传啊。。可以看看效果 就好了咯。。。这样看不出什么名堂来。。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xhf
发表于 2004-7-21 12:58:29 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
你的程序只能生成表格，跟画出来没什么区别，没有多大用处，应该考虑做一个实用点的工具，比如统计材料等。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xing979020
发表于 2004-7-22 07:24:59 | 显示全部楼层
是单一了点,但对常画表的朋友是不错的,现在AUTOCAD2005 有一个命令是生成表格的
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

sztk2001
发表于 2004-7-23 15:42:59 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
我觉得画简表倒是可以的，应该加工一下，复杂的表格就不行了
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

自由的鱼
发表于 2004-7-27 00:10:16 | 显示全部楼层
做的不错，比我那个功能强多了~`，经常做表就需要
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

liuya
发表于 2004-7-30 13:46:13 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
是单一了点
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

飞宇飞
发表于 2004-8-3 09:53:07 | 显示全部楼层
怎么用？？？？？？
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

ruansh
发表于 2004-8-26 15:14:15 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
实际上2005里面的表格命令已经很好用了,可以指定行列属性和字高.
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

shisj
发表于 2004-8-31 09:14:33 | 显示全部楼层
源程序，支持你，虽然功能我用不着，2005中就有，至少也提供了一种方法
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

andyhua5240
发表于 2004-8-31 10:14:12 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
谢谢楼主，不错的程序！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

Michael_66
发表于 2004-9-5 22:31:28 | 显示全部楼层
升级到2005有表格功能，功能要强大些。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

long78
发表于 2004-9-15 22:32:40 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
制作钢筋表可以用的，谢谢了。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

lgwlgw
发表于 2006-6-4 16:33:00 | 显示全部楼层
谢谢楼主,我这段时间也打算编一个表格程序,只是我的想法是:在DCL中先做好表格内的内容,并且设置好表格的横列方向的大小,最后连表带字一齐生成.
谢谢你的源码,我又多一个参考.
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

senher
发表于 2006-6-9 22:09:24 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
没有效果图上传啊。。可以看看效果
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

下一页 »
123下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-4-19 12:46 , Processed in 0.343346 second(s), 60 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表