只需一步,快速开始
ThisDrawing.SendCommand "-insert" & vbCr & BlkName & vbCr & "s" & vbCr & "1" & vbCr & "r" & vbCr & "0" & vbCr & "0,0,0" & vbCr
已知一个匿名块的名字,想实现动态拖动的效果,执行上述命令,出线附件一样的提示,请问是什么问题啊
您需要 登录 才可以下载或查看,没有账号?注册
使用道具 举报
搜索路径中没找到你的块,要么你就把& BlkName换成绝对路径,要么添加BlkName.dwg所在的文件夹为支持路径
另你的代码无法实现动态拖动,可改为 sendcommand "-insert" & vbcr & Blockname & vbcr
包含在本文件里!
本版积分规则 发表回复 回帖后跳转到最后一页
小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 ) ©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途
GMT+8, 2024-11-25 20:41 , Processed in 0.147360 second(s), 24 queries , Gzip On.
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.