我肯定错过了一些简单的事情。我应该留下来当技工! 它在2009年的AutoCAD LISP帮助文件中列出了什么作为vla addtable的返回? 从我做的事情来看,它实际上返回了vla addtable。必须有一种更简单的方法来做到这一点。我本该继续当技工的! 看,就是这样,不是这样的
它显示的只是vlax或vl函数,但它没有列在帮助文件下,但如果你用谷歌搜索它,你可以从autodesk找到各种各样的东西。 尝试将包含“vla addtable”的行单独键入命令行(不带setq)。并公布返回值。 所以通过这样做,它冻结了我的电脑。但我刚把这个打进去
命令:(vla addtable 0)
; 错误:错误的参数类型:VLA-OBJECT 0 好的,我的意思是看到有效使用vla addtable的结果。
我之所以提出这个问题,是因为你说发生的错误是:
vla object nil-向我表明您尚未提供vla put。。。使用有效的对象变量“tb”。
我建议您使用这种格式的东西,而不抑制最后一次返回,以便您可以看到它是什么:
(defun C:ST2 (/ col count dis pt row strdis tb va vm vo)
(setq pt (vlax-3d-point (getpoint "\nPick Insertion Point: ")))
(setq vo (vlax-get-acad-object))
(setq va (vla-get-activedocument vo))
(setq vm (vla-get-modelspace va))
(setq row (+ 1 (getreal "\How many stubs?")))
(setq col 1)
(setq dis (getdist "\What Is The First Stub Dimension? : "))
(if (not (vl-string-search "" (setq strdis (rtos dis 4 4))))
(setq strdis (strcat strdis ""))
)
(setq tb (vla-addtable vm pt row col 1 1))
)
但是,正如我所说,我对VL是新手,所以我只是在逻辑上进行实验。 是的,我的意思是代码上的一切都是有效的。它唯一缺少的是,插入正确的大小,因此。。我对这些东西还是很陌生 您是否尝试过我在创建表时在表的早期帖子中发布的“dump”LISP(即使表的大小不正确)。? 这是数据
命令:转储
选择实体以获取对象数据:
; IAcadTable2:IAcadTable2接口
; 属性值:
; AllowManualHeights=0
; AllowManualPositions=0
; 应用(RO)=#
; BreaksEnabled=0
; 断开间距=1.155
; 列=1
; 列宽(RO)=。。。未显示索引内容。。。
; 方向=(1.0 0.0 0.0)
; 文件(RO)=#
; EnableBreak(RO)=。。。未显示索引内容。。。
; 流向=0
; 手柄(RO)=“B67”
; HasExtensionDictionary(RO)=0
; HasSubSelection(RO)=0
; 压头=-1
; 高度=7.28
; HorzCellMargin=0.25
; 超链接(RO)=#
; 插入点=(-222.243 205.306 0.0)
; 层=“Defpoints”
; 线型=“ByLayer”
; 线型比例=1.0
; 线宽=-1
; 材料=“ByLayer”
; 最小表格高度(RO)=7.28
; 最小表宽(RO)=0.77
; 目标ID(RO)=2129693944
; ObjectName(RO)=“AcDbTable”
; 所有者ID(RO)=2129665040
; PlotStyleName=“ByLayer”
; Regeneratablesuppressed=0
; RepeatBottomLabels=0
; RepeatTopLabels=0
; 行高(RO)=。。。未显示索引内容。。。
; 行数=15
; StyleName=“标准”
; TableBreakFlowDirection=1
; TableBreakHeight=0.0
; 表样式覆盖(RO)=(2 4 5 17 18 21…)
; 标题支持=0
; 真彩色=#
; VertCellMargin=0.1
; 可见=-1
; 宽度=2.2
; 支持的方法:
; ArrayPolar(3)
; 阵列直角(6)
; 清除选择()
; ClearTableStyleOverrides(1)
; 复制()
; 创建内容(3)
; 删除()
; DeleteCellContent(2)
; 删除列(2)
; 删除内容(2)
; 删除行(2)
; Enablemergel(3)
; 格式值(4)
; GenerateLayout()
; GetAlignment(1)
; GetAttachmentPoint(2)
; GetAutoScale(2)
; GetAutoScale2(3)
; GetBackgroundColor(1)
; GetBackgroundColorNone(1)
; GetBlockAttributeValue(3)
; GetBlockAttributeValue 2(4)
; GetBlockRotation(2)
; GetBlockScale(2)
; GetBlockTableRecordId(2)
; GetBlockTableRecordId2(3)
; GetBoundingBox(2)
; GetBreakHeight(1)
; GetCellAlignment(2)
; GetCellBackgroundColor(2)
; GetCellBackgroundColorNone(2)
; GetCellContentColor(2)
; GetCellDataType(4)
; GetCellExtents(3)
; GetCellFormat(2)
; GetCellGridColor(3)
; GetCellGridLineWeight(3)
; GetCellGridVisibility(3)
; GetCellState(2)
; GetCellStyle(2)
; GetCellStyleOverrides(2)
; GetCellTextHeight(2)
; GetCellTextStyle(2)
; GetCellType(2)
; GetCellValue(2)
; GetColumnName(1)
; GetColumnWidth(1)
; GetContentColor(1)
; GetContentColor2(3)
; GetContentLayout(2)
; GetContentType(2)
; GetCustomData(4)
; GetDataFormat(3)
; GetDataType(3)
; GetDataType2(5)
; GetExtensionDictionary()
; GetFieldId(2)
; GetFieldId2(3)
; GetFormat(1)
; GetFormula(3)
; GetGridColor(2)
; GetGridColor2(3)
; GetGridDoubleLineSpacing(3)
; GetGridLineStyle(3)
; GetGridLinetype(3)
; GetGridLineWeight(2)
; GetGridLineWeight2(3)
; GetGridVisibility(2)
; GetGridVisibility 2(3)
; GetHasFormula(3)
; GetMargin(3)
; GetMinimumColumnWidth(1)
; GetMinimumRowHeight(1)
; GetOverride(3)
; GetRotation(3)
; GetRowHeight(1)
; GetRowType(1)
; GetScale(3)
; GetSubSelection(4)
; GetText(2)
; GetTextHeight(1)
; GetTextHeight2(3)
; GetTextRotation(2)
; GetTextString(3)
; GetTextStyle(1)
; GetTextStyle2(3)
; GetValue(3)
; 获取扩展数据(3)
; 突出显示(1)
; HitTest(4)
; 插入列(3)
; InsertColumnsAndInherit(3)
; 插入行(3)
; 插入行和继承(3)
; 与(2)相交
; iContent可编辑(2)
; IsEmpty(2)
; IsFormatEditable(2)
; IsmergealEnabled(2)
; IsMergedCell(6)
; 合并单元格(4)
; 镜子(2)
; 镜像3D(3)
; 移动(2)
; 移动内容(4)
; 重新计算tableblock(1)
; 移除所有溢出(2)
; 重新选择子区域()
; 重置单元格值(2)
; 旋转(2)
; 旋转3d(3)
; 标度(2)
; 选择(
; 选择子区域(10)
; 设置对齐(2)
; 设置自动缩放(3)
; 设置自动缩放2(4)
; SetBackgroundColor(2)
; SetBackgroundColorNone(2)
; SetBlockAttributeValue(4)
; SetBlockAttributeValue 2(5)
; 立根锁定旋转(3)
; SetBlockScale(3)
; SetBlockTableRecordId(4)
; SetBlockTableRecordId2(5)
; SetBreakHeight(2)
; 设置单元格对齐(3)
; SetCellBackgroundColor(3)
; SetCellBackgroundColorNone(3)
; SetCellContentColor(3)
; SetCellDataType(4)
; SetCellFormat(3)
; SetCellGridColor(4)
; 设置单元格网格线宽(4)
; SetCellGridVisibility(4)
; SetCellState(3)
; SetCellStyle(3)
; 设置单元格文本高度(3)
; SetCellTextStyle(3)
; SetCellType(3)
; SetCellValue(3)
; SetCellValueFromText(4)
; SetColumnName(2)
; SetColumnWidth(2)
; SetContentColor(2)
; 设置内容颜色2(4)
; SetContentLayout(3)
; SetCustomData(4)
; SetDataFormat(4)
; SetDataType(3)
; SetDataType2(5)
; SetFieldId(3)
; SetFieldId2(5)
; SetFormat(2)
; SetFormula(4)
; SetGridColor(3)
; SetGridColor2(4)
; SetGridDoubleLineSpacing(4)
; SetGridLineStyle(4)
; SetGridLinetype(4)
; 设置网格线宽(3)
; 设置网格线权重2(4)
; SetGridVisibility(3)
; 设置网格可见性2(4)
; 设置边距(4)
; 设置覆盖(4)
; 设置旋转(4)
; 设置行高(2)
; 设置刻度(4)
; 设置Subselection(4)
; SetText(3)
; SetTextHeight(2)
; 设置高度2(4)
; SetTextRotation(3)
; SetTextString(4)
; SetTextStyle(2)
; SetTextStyle2(4)
; 设置工具提示(3)
; 设置值(4)
; SetValueFromText(5)
; 设置扩展数据(2)
; TransformBy(1)
; 未合并单元格(4)
; 更新()
选择实体以获取对象数据:
页:
1
[2]