把AutoCAD VBA的对象传递到Thisdrawing.SendCommand的参数中去

VBA不像lisp可以随意在命令行参数中传递对象,但可以采取如下方法:

Dim obj as AcadXXX

Dim ObjHandle as String

……

'将对象句柄转换成lisp表达式字符串,传递过去

ObjHandle = "(list(handent" & Chr(34) & obj.Handle & Chr(34) & "))"

 

ThisDrawing.SendCommand ("REGION" & vbCr & ObjHandle & vbCr & vbCr & vbCr)

posted @   大力水手008  阅读(155)  评论(0编辑  收藏  举报
相关博文:
阅读排行:
· 无需6万激活码!GitHub神秘组织3小时极速复刻Manus,手把手教你使用OpenManus搭建本
· C#/.NET/.NET Core优秀项目和框架2025年2月简报
· Manus爆火,是硬核还是营销?
· 一文读懂知识蒸馏
· 终于写完轮子一部分:tcp代理 了,记录一下
点击右上角即可分享
微信分享提示