如何添加多个对象se
（定义c：测试（/tab ent Obj pt tObj row col）（vl load com）
（if（和（setq tab（car（entsel“\n选择表格：”））
（eq“ACAD_TABLE”（cdr（assoc 0（entget tab k）а））））
（虽然
（和
（setq ent（car（entsel“\n选择对象：”））
（vlax-property-available-p
（setq Obj
（vlax ename->vla object ent））'区域）
（虽然
（程序
（setq pt（getpoint“\n单击单元格放置字段：”）
（条件（（vl consp pt）
（如果（等式：vlax true
（vla hittest）
（setq tObj）
（vlax ename->vla对象选项卡）
（vlax-3D-point pt）
（vlax-3D-点（trans’（0 0 1）0 1））“行”列）无
（princ“\n**未选择单元格**”））
（t（princ“\n**未选择点**”））））
（vla setText tObj row col）
（strcat）
"%
（vl princ到字符串
（vla get Objectid Obj））
“>%”。面积\\f\%lu2%pr2%ps\“>%”）
（princ“\n**未选择表**”））
（普林斯） 请阅读代码发布指南，并编辑代码以包含在代码标签中。
Your Code Here=
Your Code Here
页:
[1]