我怎样才能在

BLOACH85 · 发表于 2022-7-6 15:48:24

从我做的事情来看，它实际上返回了vla addtable，所以。。。。。。。。。。。。。。。。
我肯定错过了一些简单的事情。我应该留下来当技工！

Lee Mac · 发表于 2022-7-6 15:50:50

它在2009年的AutoCAD LISP帮助文件中列出了什么作为vla addtable的返回？

BLOACH85 · 发表于 2022-7-6 15:54:23

从我做的事情来看，它实际上返回了vla addtable。必须有一种更简单的方法来做到这一点。我本该继续当技工的！

BLOACH85 · 发表于 2022-7-6 15:55:46

看，就是这样，不是这样的
它显示的只是vlax或vl函数，但它没有列在帮助文件下，但如果你用谷歌搜索它，你可以从autodesk找到各种各样的东西。

Lee Mac · 发表于 2022-7-6 15:59:44

尝试将包含“vla addtable”的行单独键入命令行（不带setq）。并公布返回值。

BLOACH85 · 发表于 2022-7-6 16:04:15

所以通过这样做，它冻结了我的电脑。但我刚把这个打进去

命令：（vla addtable 0）
; 错误：错误的参数类型：VLA-OBJECT 0

Lee Mac · 发表于 2022-7-6 16:07:05

好的，我的意思是看到有效使用vla addtable的结果。

我之所以提出这个问题，是因为你说发生的错误是：

vla object nil-向我表明您尚未提供vla put。。。使用有效的对象变量“tb”。

我建议您使用这种格式的东西，而不抑制最后一次返回，以便您可以看到它是什么：

copy


(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是新手，所以我只是在逻辑上进行实验。

BLOACH85 · 发表于 2022-7-6 16:08:12

是的，我的意思是代码上的一切都是有效的。它唯一缺少的是，插入正确的大小，因此。。我对这些东西还是很陌生

Lee Mac · 发表于 2022-7-6 16:13:28

您是否尝试过我在创建表时在表的早期帖子中发布的“dump”LISP（即使表的大小不正确）。？

BLOACH85 · 发表于 2022-7-6 16:15:29

这是数据

命令：转储
选择实体以获取对象数据：
; 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）
; 更新（）

选择实体以获取对象数据：

[编程交流] 我怎样才能在

发表回复

精选推荐