随笔分类 - CAD VBA
摘要：测试代码 import numpy as np from pyautocad import Autocad, aDouble, APoint def 计算距离(): acad = Autocad(create_if_not_exists=True) acad.prompt("计算2点间距离") ac
阅读全文
摘要：创作上位机动画时, 喜欢用Corel做画面设计,毕竟不管是亚控还是力控还是wincc,画图都太难受了. 贴图动画要贴准的话, 最好用坐标精确对齐. 所以写了这段代码, 用来把Corel中的坐标写入文本文件, 做上位机画面时, 就可以使用这些坐标进行贴图了. 上代码 1 Sub Macro1() 2
阅读全文
摘要：做电气,拿别人的图纸做接线表,需要在dwg图纸中提取大量的信息. 找到别人写的代码,如下 1 Sub AcadGetText备份() 2 3 Dim sset As AcadSelectionSet '声明定义选择集 4 Dim ent As AcadEntity '声明实体 5 Dim fso,
阅读全文
