[0107]如何参照替换表格栏位资料?

xyz518mm

[0107]如何参照替换表格栏位资料?
How referenced swap the Table position data ?
如何用LISP程序完成下面过程
01.取得文字资料内容,这方法我知道,但下面的02.及03.我就不清楚了.
02.点选表格栏位内要替换的资料位置
03.替换表格资料

                               
登录/注册后可看大图

烦请各位高手可以解答一下
谢谢

mmmm

http://www.atablex.com/htmls/acdbtablepack.htm

点取单元格内一点可以取得表格内单元格位置信息，之后改写其内容就很容易了。

xyz518mm

可以说明一下如何使用吗?
谢谢~

mmmm

load "ACDBTABLEPACK.VLX" before calling XTB

2. 
   
3. (defun C:xtb (/ adoc column pt pvec row tbobj txobj txt abc)
   
4.   (vl-load-com)
   
5.   (setq adoc (vla-get-activedocument
   
6.         (vlax-get-acad-object)
   
7.       )
   
8.   )
   
9.   (vla-startundomark adoc)
   
10.   (if (and (setq txobj (entsel "\n Pick annotation <Exit>:"))
    
11.     (setq txobj (vlax-ename->vla-object (car txobj))
    
12.    txt   (vlax-get txobj 'TextString)
    
13.     )
    
14.     (setq abc (getpoint "\n Pick a point in AcDbTable cell <Exit>:"))
    
15.     (setq abc (tblpack-pickcell abc nil nil))
    
16.     (setq tbobj (car abc)
    
17.    row (nth 1 abc)
    
18.    column (nth 2 abc)
    
19.     )
    
20.       )
    
21.     (vla-settext tbobj row column txt)
    
22.   )
    
23.   (vla-endundomark adoc)
    
24.   (princ)
    
25. )
    

<br /> (defun C:xtb (/ adoc column pt pvec row tbobj txobj txt abc)<br />   (vl-load-com)<br />   (setq adoc (vla-get-activedocument<br />         (vlax-get-acad-object)<br />       )<br />   )<br />   (vla-startundomark adoc)<br />   (if (and (setq txobj (entsel "\n Pick annotation <Exit>:"))<br />     (setq txobj (vlax-ename->vla-object (car txobj))<br />    txt   (vlax-get txobj 'TextString)<br />     )<br />     (setq abc (getpoint "\n Pick a point in AcDbTable cell <Exit>:"))<br />     (setq abc (tblpack-pickcell abc nil nil))<br />     (setq tbobj (car abc)<br />    row (nth 1 abc)<br />    column (nth 2 abc)<br />     )<br />       )<br />     (vla-settext tbobj row column txt)<br />   )<br />   (vla-endundomark adoc)<br />   (princ)<br /> )<br />

LUCAS

指令: XTB
Pick annotation :
Pick a point in AcDbTable cell :
error: no function definition: VLOBJ-GET-VLA-OBJECT

mmmm

:( lost a function.

xyz518mm

最初由 mmmm 发布
[B]load "ACDBTABLEPACK.VLX" before calling XTB
[code]
(defun C:xtb (/ adoc column pt pvec row tbobj txobj txt abc)
  (vl-load-com)
  (setq adoc (vla-get-activedocument
        (vlax-get-acad-object)... [/B]

请教高手
您知道怎样才可以像
(setq abc (getpoint "\n Pick a point in AcDbTable cell :"))
(setq abc (tblpack-pickcell abc nil nil))
是用什么方法让 GETPOINT 可以点选,并选取到物件呢?

烦请各位高手可以解答一下
谢谢