[分享]：使用VLISP操作AcDbTable的绝好实例

mmmm

使用VLISP操作AcDbTable的绝好实例。
附件是Peter Jamtgaard在AU（Autodesk University）2006年讲课用的TableMagic，因为论坛文件大小限制，我剔除了其中的PDF和PPT文件。

TableMagic提供了操控AcDbTable的基本方法，从定义TableStyle到制作一个简单但非常专业的图块BOM工具。内容非常全面。如果想了解和操控AcDbTable，不失为一部非常好的教材。

过年了，利用Peter Jamtgaard的成果挣几个币，希望他不要介意。：）
PDF文件在二楼，就不收币了。

mmmm

PDF file

jx2008

具体应用是什么，说详细点阿

aeo

ftp://forum:forum@p4.xdcad.net/5 ... le%20magic%20v3.pdf

不许灌水


有个：

2. 
   
3. (defun AU06:ErrorTrap (symFunction ; Symbol (lisp expr. wrapped in a quote expression)
   
4.                        /
   
5.                        objError    ; Object Error test
   
6.                        result)     ; Result of wrapped lisp expression.
   
7. (if (vl-catch-all-error-p
   
8.       (setq objError (vl-catch-all-apply
   
9.                      '(lambda (X)(set X (eval symFunction)))
   
10.                       (list 'result))))
    
11.   nil  
    
12.   (if result result 'T)
    
13. )
    
14. )
    

<br /> (defun AU06:ErrorTrap (symFunction ; Symbol (lisp expr. wrapped in a quote expression)<br />                        / <br />                        objError    ; Object Error test<br />                        result)     ; Result of wrapped lisp expression.<br /> (if (vl-catch-all-error-p<br />       (setq objError (vl-catch-all-apply<br />                      '(lambda (X)(set X (eval symFunction)))<br />                       (list 'result)))) <br />   nil  <br />   (if result result 'T)<br /> )<br /> )<br />

我一直用:

2. 
   
3. (defun catch(li / ral)
   
4. (if(vl-catch-all-error-p(setq ral(vl-catch-all-apply(car li)(cdr li))))
   
5.      nil ral
   
6. ))
   

<br /> (defun catch(li / ral)<br /> (if(vl-catch-all-error-p(setq ral(vl-catch-all-apply(car li)(cdr li))))<br />      nil ral<br /> ))<br />

看看我的有问题没?

aeo

看来我的有问题

命令: (AU06:ERRORTRAP '(setq a nil))
T

命令: (catch '(setq a nil))
; 错误: 排序函数错误: SETQ

命令: (vl-catch-all-apply 'setq '(a nil))
; 错误: 排序函数错误: SETQ


重新!!!



看来我一直的理解有误
(apply 'func  lst)
lst里面的都是func的参数

(apply 'setq '(a 0))
a和0是setq 的参数呀.
(apply 'set '(a 0))就可以
只能说setq是一个很怪的函数.
其他的基本都可以
比如apply自己

命令: (apply 'apply '(+( 1 2 3)))
6

还有一个defun也不行

kohi

里面有个vdot 函数，可是没定义呀：
(vdot (au06:ApplyPropertyToRange objSheet "A1:A1" "columnwidth" 40))

弓长

当一个表格已经生成后，是否可以改变其行、列数？

shaobotao

好东西一定要顶,不过14下可以使用么?

Archli

时间已过去很久，又过年了，好东西

lkq6776

n年之后看到贴子