明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1548|回复: 3

[LISP群(2)] 2013-06-23 明经 AutoLISP 编程②群(177027547) 群聊记录:现网上收集了一个批量统计线段长度并导出excel的源码,但是不知道怎么写

 关闭 [复制链接]
发表于 2013-6-23 15:24:26 | 显示全部楼层 |阅读模式
【hehaidizhi】绿 15:24:26
现网上收集了一个批量统计线段长度并导出excel的源码,但是不知道怎么写成cad中可以加载运行的文件,麻烦哪位大哥大姐帮帮忙,做成个可以直接加载的文件吧,谢谢了
Sub GetLenth()
   Dim ExcelApp As New Excel.Application
   Dim ExcelWkbk As Excel.Workbook
   Set ExcelWkbk = ExcelApp.Workbooks.Add
   Dim i As Integer
   i = 1
   Dim Ent As AcadEntity
   Dim pt1 As Variant, pt2 As Variant
   With ExcelWkbk.Worksheets("sheet1")
       For Each Ent In ThisDrawing.ModelSpace
           If Ent.ObjectName = "AcDbLine" Then
               .Range("A" & i) = i
               .Range("B" & i) = Ent.Length
               i = i + 1
           End If
       Next Ent
   End With
   ExcelApp.ActiveWorkbook.SaveAs "d:AcadLen.xls"
   ExcelApp.Workbooks.Close
   ExcelApp.Quit
End Sub
 楼主| 发表于 2013-6-23 19:16:10 | 显示全部楼层
[lisp-study]jun 19:16:10
你这个吊筋能不能根据梁宽绘制呀?
 楼主| 发表于 2013-6-23 20:49:02 | 显示全部楼层
[lenovo1x1]结构 20:49:02
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-6 03:39 , Processed in 0.183623 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表