社区 › VBA/VB/ActiveX/API 编程技术 › 请教VBA高手？利用VBA怎样对图形中的实体的组码进行操作？

petertian 发表于 2004-4-28 11:07:00

请教VBA高手？利用VBA怎样对图形中的实体的组码进行操作？

如题！各位大虾：我在VBA中怎样对实体的组码进行操作??

efan2000 发表于 2004-4-28 11:56:00

使用SendCommand发送Lisp指令,然后通过系统变量LastPrompt来获取。如：返回实体的330组码



ThisDrawing.SendCommand "(assoc 330 (entget (handent """ & EntObj.Handle """ & ")))" & VbCr


Debug.Print ThisDrawing.GetVariable("LastPrompt")

查看完整版本: 请教VBA高手？利用VBA怎样对图形中的实体的组码进行操作？