找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 2053|回复: 13

[教学] 建立表格样式

[复制链接]

已领礼包: 1268个

财富等级: 财源广进

发表于 2014-11-22 19:23:20 | 显示全部楼层 |阅读模式

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

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

×
留存
创建样式并设为当前
参数 string -- 样式名称,
  1. (defun Table:MakeStyle (name / custObj)
  2.   (setq        custObj        (vla-AddObject
  3.                   (vla-Item (vla-get-Dictionaries **XD::DOC**)
  4.                             "acad_tablestyle"
  5.                   )
  6.                   name
  7.                   "AcDbTableStyle"
  8.                 )
  9.   )
  10.   (mapcar '(lambda (x y)
  11.              (vlax-put custObj x y)
  12.            )
  13.           '("Name"                  "BitFlags"
  14.             "FlowDirection"          "HeaderSuppressed"
  15.             "TitleSuppressed"          "HorzCellMargin"
  16.             "VertCellMargin"
  17.            )
  18.           (cons name '(1 0 :vlax-false :vlax-false 1.0 1.0))
  19.   )
  20.   (mapcar '(lambda (x y)
  21.              (apply 'vlax-invoke-method (cons custObj (cons x y)))
  22.            )
  23.           '("SetAlignment"              "SetGridVisibility"
  24.             "SetGridVisibility"              "SetGridVisibility"
  25.             "SetGridLineWeight"              "SetGridLineWeight"
  26.             "SetTextHeight"              "SetTextHeight"
  27.             "SetTextStyle"
  28.            )
  29.           '((7 5) ;_全部居中对齐
  30.             (1 2 :vlax-false) ;_标题行上边线
  31.             (8 2 :vlax-false) ;_标题行左边线
  32.             (32 2 :vlax-false) ;_标题行右边线
  33.             (4 2 25) ;_表头上线宽
  34.             (4 4 25) ;_表头下线宽
  35.             (2 4.0) ;_标题字高
  36.             (5 3.0) ;_表头及数据区字高
  37.             (7 "Standard") ;_字体
  38.            )
  39.   )
  40.   (setvar "ctablestyle" name)
  41. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 2226个

财富等级: 金玉满堂

发表于 2014-11-22 19:42:03 | 显示全部楼层
2005以下版本的cad表格生成?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1268个

财富等级: 财源广进

 楼主| 发表于 2014-11-22 19:43:48 | 显示全部楼层
cable2004 发表于 2014-11-22 19:42
2005以下版本的cad表格生成?

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

使用道具 举报

已领礼包: 3701个

财富等级: 富可敌国

发表于 2014-11-22 23:18:33 | 显示全部楼层
在2008中出现以下错误:
命令: (Table:MakeStyle "MyTable")
; 错误: Automation 错误。 系统注册表中不存在 AcRxClassName 项
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1268个

财富等级: 财源广进

 楼主| 发表于 2014-11-22 23:51:35 | 显示全部楼层
dnbcgrass 发表于 2014-11-22 23:18
在2008中出现以下错误:
命令: (Table:MakeStyle "MyTable")
; 错误: Automation 错误。 系统注册表中不 ...

你用的什么版本?

_$ (table:makestyle "mytable")
"mytable"
_$ (ver)
"Visual LISP 2008 (sc)"
_$ (getvar "acadver")
"17.1s (LMS Tech)"
_$
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 3701个

财富等级: 富可敌国

发表于 2014-11-23 08:52:02 | 显示全部楼层
CAD 2008
_$ (ver)
"Visual LISP 2008 (sc)"
_$ (getvar "acadver")
"17.1s (LMS Tech)"
_$
**XD::DOC**是不是
(setq **XD::DOC** (vla-get-activedocument (vlax-get-acad-object)))

点评

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

使用道具 举报

已领礼包: 264个

财富等级: 日进斗金

发表于 2014-11-23 09:08:39 来自手机 | 显示全部楼层
dnbcgrass 发表于 2014-11-23 08:52
CAD 2008
_$ (ver)
"Visual LISP 2008 (sc)"

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

使用道具 举报

已领礼包: 3701个

财富等级: 富可敌国

发表于 2014-11-23 09:18:12 | 显示全部楼层
那么这个问题“; 错误: Automation 错误。 系统注册表中不存在 AcRxClassName 项”,如何解决?

点评

你装的不是绿色版之类吧!  详情 回复 发表于 2014-11-23 09:34
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 264个

财富等级: 日进斗金

发表于 2014-11-23 09:34:02 来自手机 | 显示全部楼层
本帖最后由 iLisp 于 2014-11-23 09:37 编辑
dnbcgrass 发表于 2014-11-23 09:18
那么这个问题“; 错误: Automation 错误。 系统注册表中不存在 AcRxClassName 项”,如何解决?


你装的不是绿色版之类吧!
不过既然是词典,都在namedobjdict下面,也许可以换个方法
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 604个

财富等级: 财运亨通

发表于 2014-11-24 14:29:19 | 显示全部楼层
我能想到它的最大用处,还是做明细表
1.png
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1268个

财富等级: 财源广进

 楼主| 发表于 2014-11-24 14:58:24 来自手机 | 显示全部楼层
/db_自贡黄明儒_ 发表于 2014-11-24 14:29
我能想到它的最大用处,还是做明细表

这样的表格非常适合,关联还是你那些块的属性如何,统计问题,制表非常简单,都包装好了,一个函数
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 604个

财富等级: 财运亨通

发表于 2014-11-24 15:45:55 | 显示全部楼层
本帖最后由 /db_自贡黄明儒_ 于 2014-11-24 16:13 编辑

这是一张pccad生成的图,点击一下"螺栓M20X70“,即取得这个对象,以便修改。
Command: (entget (car (entsel)))
Select object: ((-1 . <Entity name: 7eff8250>) (0 . "INSERT") (330 . <Entity
name: 7efe7cf8>) (5 . "1505A") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8
. "图框层") (100 . "AcDbBlockReference") (66 . 1) (2 . "PC_MXB_BLOCK") (10
22360.0 4200.0 4.21875e-007) (41 . 40.0) (42 . 40.0) (43 . 40.0) (50 . 0.0) (70
. 0) (71 . 0) (44 . 0.0) (45 . 0.0) (210 0.0 0.0 1.0))

看来处理起来还是很麻烦的了

1.png

test.rar

41.22 KB, 下载次数: 6, 下载积分: D豆 -1 , 活跃度 1

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

使用道具 举报

已领礼包: 1268个

财富等级: 财源广进

 楼主| 发表于 2014-11-24 16:08:37 来自手机 | 显示全部楼层
/db_自贡黄明儒_ 发表于 2014-11-24 15:45
这是一张pccad生成的图,点击一下"螺栓M20X70“,即取得这个对象,以便修改。

table对象也是点哪个格就编辑哪个格,格内是mtext格式,而且table可以直接导出csv文件,同过数据链接可以由xls直接生成cad的table
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2014-11-25 08:49:34 | 显示全部楼层
有这个例子,正好可以用了。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-3-29 04:00 , Processed in 0.418258 second(s), 63 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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