vba

1291500406

模型解读日记

AutoCAD 2016	20.1	acax20<language>.tlb	axdb20<language>.tlb
AutoCAD 2015	20.0	acax20<language>.tlb	axdb20<language>.tlb
AutoCAD 2014	19.1	acax19<language>.tlb	axdb19<language>.tlb
AutoCAD 2013	19.0	acax19<language>.tlb	axdb19<language>.tlb
AutoCAD 2012	18.2	acax18<language>.tlb	axdb18<language>.tlb
AutoCAD 2011	18.1	acax18<language>.tlb	axdb18<language>.tlb
AutoCAD 2010	18.0	acax18<language>.tlb	axdb18<language>.tlb
AutoCAD 2009	17.2	acax17<language>.tlb	axdb17<language>.tlb
AutoCAD 2008	17.1	acax17<language>.tlb	axdb17<language>.tlb
AutoCAD 2007	17.0	acax17<language>.tlb	axdb17<language>.tlb
AutoCAD 2006	16.2	acax16<language>.tlb	axdb16<language>.tlb
AutoCAD 2005	16.1	acax16<language>.tlb	axdb16<language>.tlb
AutoCAD 2004	16.0	acax16<language>.tlb	axdb16<language>.tlb
AutoCAD 2002	15.2	acax15.tlb	axdb15.tlb
AutoCAD 2000i	15.1	acax15.tlb	axdb15.tlb
AutoCAD 2000	15.0	acax15.tlb	axdb15.tlb

Public Sub ErgodicDim()
    Dim ent As AcadEntity '对象基类
        
    For Each ent In ThisDrawing.ModelSpace '所有对象
        If TypeOf ent Is AcadText Then '单行文本
            '访问ent的属性和方法
        ElseIf TypeOf ent Is AcadMText Then '多行文本
           
        ElseIf TypeOf ent Is AcadDimension Then '标注
         
        End If
    Next
End Sub

1291500406

已解决，谢谢帮助

菜卷鱼

阿石你这么屌还需要求助吗？

1291500406

菜卷鱼 发表于 2020-3-31 09:36
阿石你这么屌还需要求助吗？

算法，要有公式的，帮助的人发了一个公式给我
K码
经纬度
UTM（Universal Transverse Mercator Grid System，通用横墨卡托格网系统）
之间的转换公式

菜卷鱼

1291500406 发表于 2020-3-31 09:59
算法，要有公式的，帮助的人发了一个公式给我
K码
经纬度

你在学校的时候学的什么？怎么感觉你接触CAD二次开发没多久，但是很屌，是什么渠道学习的，让人佩服，我11年就接触AUTOLISP了，都快10年了还是很菜

1291500406

1.善于利用搜索功能
lisp已经发展二三四十年
我能想到的问题，可能已经有了答案

2.多门语言参考
lisp函数库很缺，很少有人发展函数库
找函数用法：只研究lisp是不够的
vbs vba js 比较接近lisp语法 ，就可以翻译代码
c++就算了哈哈

3.实时编写程序，不断调试运行
我是直接记事本写的，移动到命令行测试结果
时间长了就会默写代码了
不断的找对应参数，用法就可以了
会发现很多出人意料的，比如(vl-string-left-trim"屺""屺╟")   返回"c"

cad很多东西都是通过arx定义的
arx，比较吸引人，我想学一点
语言是  c++



我经常会为了一个问题，写到两多点，虽然那样不太好

QQ873240166

还不可以看  再回帖