表格内容自动链接到
伙计们，有人知道如何将气球文本与表格文本链接。
我有一个包含100个项目的表，需要创建100个气球，每个气球中都有一个文本，有人知道我如何用一种简单的方式做到这一点吗？（如果有一个简单的方法……呵呵……）
提前感谢。。。
是否检查了字段选项是否支持表格单元格？否则，您可能会有一个隐藏属性，即单元格地址和更新。 看看这是否对你有帮助。。。
http://www.dscohn.com/AU/handouts/GD401-1P%20AutoCAD%20Tables-文件。pdf
嗨，比格尔，是的，我已经找到了，所以只使用数字！。。。做一个数学表达式。。。
对于Objects表，我找不到使用特定单元格地址和单元格值的单元格值。。。
谢谢LibertyOne这是一个很好的帖子。。。有很多细节。。。但是要自动填充文本，我找不到方法。。。 可能部分自动“更新表块”再次具有一个块属性，该属性与表单元ID一起隐藏，并且在插入块时可能会在两者之间读取和更新。唯一真正的问题是当你删除行等它会搞砸标签。我在一个完全不同的布局页面上阅读了一篇文章并更新了一个块，效果很好，所以我知道这是可以做到的。动态链接变得很困难。同样需要删除块和更新表。
最简单的方法就是在这里重新创建表。
; dwg index to a table
; by Alan H NOV 2013
(defun AH:dwgindex (/ doc objtable ss1 lay ans ans2 plotabs ss1 tag2 tag3 list1 list2 curlayout colwidth numcolumns numrows INC rowheight )
(vl-load-com)
(setq curlayout (getvar "ctab"))
(if (= curlayout "Model")
(progn
(Alert "You need to be in a layout for this option")
(exit)
) ; end progn
) ; end if model
(setq doc (vla-get-activedocument (vlax-get-acad-object)))
(setq curspace (vla-get-paperspace doc))
(setq pt1 (vlax-3d-point (getpoint "\nPick point for top left hand of table:")))
; read values from title blocks
(setq bname "DA1DRTXT")
(setq tag2 "DRG_NO") ;attribute tag name
(setq tag3 "WORKS_DESCRIPTION") ;attribute tag name
(setq ss1 (ssget "x"(list (cons 0 "INSERT") (cons 2 bname))))
(if (= ss1 nil) ; for tomkinson jobs
(progn
(setq bname "C_TITLE")
(setq ss1 (ssget "x"(list (cons 0 "INSERT") (cons 2 bname))))
)
)
(setq INC (sslength ss1))
(repeat INC
(foreach att (vlax-invoke (vlax-ename->vla-object (ssname SS1 (SETQ INC (- INC 1)) )) 'getattributes)
(if (= tag2 (strcase (vla-get-tagstring att)))
(progn
(setq ans (vla-get-textstring att))
(if (/= ans NIL)
(setq list1 (cons ans list1))
) ; if
); end progn
) ; end if
(if (= tag3 (strcase (vla-get-tagstring att)))
(progn
(setq ans2 (vla-get-textstring att))
(if (/= ans2 NIL)
(setq list2 (cons ans2 list2))
) ; end if
) ; end progn
) ; end if tag3
) ; end foreach
) ; end repeat
(setvar 'ctab curlayout)
(command "Zoom" "E")
(command "regen")
(reverse list1)
;(reverse list2)
; now do table
(setq numrows (+ 2 (sslength ss1)))
(setq numcolumns 2)
(setq rowheight 0.2)
(setq colwidth 150)
(setq objtable (vla-addtable curspace pt1 numrows numcolumns rowheight colwidth))
(vla-settext objtable 0 0 "DRAWING REGISTER")
(vla-settext objtable 1 0 "DRAWING NUMBER")
(vla-settext objtable 1 1 "DRAWING TITLE")
(SETQ X 0)
(SETQ Y 2)
(REPEAT (sslength ss1)
(vla-settext objtable Y 0 (NTH X LIST1))
(vla-settext objtable Y 1 (NTH X LIST2))
(vla-setrowheight objtable y 7)
(SETQ X (+ X 1))
(SETQ Y (+ Y 1))
)
(vla-setcolumnwidth objtable 0 55)
(vla-setcolumnwidth objtable 1 170)
(command "_zoom" "e")
); end AH defun
(AH:dwgindex)
(princ)
谢天谢地，我们正在使用智能P&ID软件包。
谢谢Bigal，我尝试使用代码，但我收到了以下消息：
; 错误：错误的参数类型：lselsetp nil
我遇到了在更改表格细节行或列后将文本链接到单元格的问题，因此，在我的情况下，它只能在地址单元格中获取文本来填充属性，想象一下大约200个项目（在一个表格上）逐个创建（气球文本），如果我第一次有如何链接它，甚至分解（或爆裂）以获取文本，这将非常有帮助！！！
ttray33y-我正在尝试用一种快速的方式做P&ID，或者用这些Cad/Lisp专家大师来简化它！！！。。。呵呵呵呵。。。但这并不容易！！！。。。 你需要编辑一些东西，它才能工作“块名”bname，它会查找2个属性名tag2和tag3
页:
[1]
2