如何在ta中选择单元格

muthu123 · 发表于 2022-7-6 09:30:33

没有错误。但它不是像你的图像那样高亮度，只是简单地执行。

muthu123 · 发表于 2022-7-6 09:35:24

这是我的系统的输出。

fixo · 发表于 2022-7-6 09:41:58

这是我的2c
[code]（vl负载com）；；gile的局部函数（defun叉积（v1 v2）（list（-cadr v1）（caddr v2））（*（caddr v1）（cadr v2））（（*（caddr v1）（car v2））（（（*（car v1）（cadr v2））（*（cadr v1）（car v2）））（defun C:hitcell（/acapp adoc atable col cp1 cp2 midp pfset row vec xdir ydir zdir）（if（and（setq cp1（getpoint“\n指定第一个单元格角：”）（setq cp2）（getcorner cp1“\n指定对角：”）（progn（setq midp（trans（mapcar（function（lambda（a b）（/（+a b）2）））cp1 cp2）0 1））（setq acapp（vlax get acad object）adoc（vla get activedocument acapp）pfset（vla get pickfirstselectionset adoc））（vla clear pfset）（vla select pfset acSelectionSetCrossing（vlax-3d-point cp1）（vlax-3d-point cp2）（vlax safearray fill（vlax make safearray vlax vbinteger’（0））（0））（vlax safearray fill（vlax make safearray vlax vbvariant’（0））（“ACAD_表”））（if（>（vla get count pfset）0）（progn（setq atable（vla item pfset 0））（setq xdir（getvar“UCSXDIR”）ydir（getvar“UCSYDIR”）zdir（CrossProduct xdir ydir））（setq vec（vlax make变体（vlax safearray fill（vlax make safearray vlax vbDouble’（0.2））zdir））；

muthu123 · 发表于 2022-7-6 09:46:05

尊敬的Fixo先生：，

谢谢你的回复。但结果是一样的，它并没有突出显示单元格。现在我怀疑在我的电脑设置。

[编程交流] 如何在ta中选择单元格

发表回复

精选推荐