|
在论坛几位前辈的帮助下,我写的一个块插入的程序已初见雏形。
现在还有个问题,我用
ptInsert = ThisDrawing.Utility.GetPoint(, "请指定插入点:")
语句获得块的插入点,用
ThisDrawing.ModelSpace.InsertBlock ptInsert, dwgDir, 1, 1, 1, 0
语句插入路径为dwgDir的块是可以的,但是我想在从屏幕上选取插入点的同时让块的图形跟鼠标一起出现和移动,也就是跟系统的块插入命令那样。不知道该怎么办啊?
li1qeya0hzm.JPG
求助关于块插入的VBA程序
su5h1mfivik.JPG
|
|