VLISP创建表格样式（TableStyle）

marting · 发表于 2017-2-7 22:07:23

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

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

×

(defun c:test (/ appAcad docCurrent dicts dictTableStyle newTableStyle)
   (setq appAcad (vlax-get-acad-object) ;get the ACAD application object
           docCurrent (vla-get-ActiveDocument appAcad) ;get the current drawing
           dicts (vla-get-dictionaries docCurrent)
    dictTableStyle (vla-item dicts "acad_tablestyle")  
   ) ;setq

   (setq newTableStyle(vla-addobject dictTableStyle "NewStyle" "AcDbTableStyle"))


   (vla-put-name newTableStyle "newStyle")
   (vla-put-description newTableStyle "New Style for My Tables")
   (vla-put-flowdirection newTableStyle 0)
   (vla-put-horzcellmargin newTableStyle 0.22)
   (vla-put-BitFlags newTableStyle 1)
   (vla-setTextHeight newTableStyle 3 1.3)
   (princ)  
  )

HLCAD · 发表于 2017-2-8 08:07:12

楼主：出现以下情况：
命令: TEST ; 错误: Automation 错误。系统注册表中不存在 AcRxClassName 项
望楼主出手相助

iLisp · 发表于 2017-2-8 09:53:25

Table是2005以上版本才有的

HLCAD · 发表于 2017-2-8 13:26:19

iLisp 发表于 2017-2-8 09:53

我的操作系统：
win7、x64、cad2012
不知原因

marting · 发表于 2017-2-8 15:52:12

HLCAD 发表于 2017-2-8 13:26

你一句一句执行，看看到哪出错了？

HLCAD · 发表于 2017-2-9 10:24:40

执行：
(setq newTableStyle(vla-addobject dictTableStyle "NewStyle" "AcDbTableStyle"))
时发生错误。
查了一下vla-addobject的用法，

Lisphk · 发表于 2017-2-9 10:37:50

HLCAD 发表于 2017-2-9 10:24

测试了下代码，没问题，能生成表格样式，2008

搜狗截图20170209103428.png

HLCAD · 发表于 2017-2-9 14:39:07

Lisphk 发表于 2017-2-9 10:37

谢谢您和楼主的帮助，
之前一直没有用过"表格"，一时可能还解决不了问题。
得从最基础的开始学学才行。

jiang__jin · 发表于 2021-1-14 08:44:32

感谢分享！！

qxlonmsn · 发表于 2021-9-13 10:18:41

厉害了老大

qxlonmsn · 发表于 2021-9-13 10:20:53

HLCAD 发表于 2017-2-9 10:24
执行：
(setq newTableStyle(vla-addobject dictTableStyle "NewStyle" "AcDbTableStyle"))
时发生错误。 ...

好厉害!!!!!!

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

[每日一码] VLISP创建表格样式（TableStyle）

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

点评