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”。
 
我建议您使用这种格式的东西,而不抑制最后一次返回,以便您可以看到它是什么:
 

(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)
;   更新()
 
选择实体以获取对象数据:
页: 1 [2]
查看完整版本: 我怎样才能在