明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 2260|回复: 10

[LISP群(2)] 2013-11-05 明经 AutoLISP 编程②(177027547) 群聊记录:Sub aq() Dim bobj As AcadBlockReferen

 关闭 [复制链接]
发表于 2013-11-5 00:17:56 | 显示全部楼层 |阅读模式
[dbb2008]笨笨 00:17:56
Sub aq()
Dim bobj As AcadBlockReference
Dim a
Dim arr()
Dim ss As AcadSelectionSet
Dim filtertype(0 To 0) As Integer
Dim filterdata(0 To 0) As Variant
Dim xls As Excel.Application
Set xls = New Excel.Application
Set ss = ThisDrawing.SelectionSets.Add(CStr(Rnd))
filtertype(0) = 0
filterdata(0) = "insert"
ss.SelectOnScreen filtertype, filterdata
For Each bobj In ss
i = i + 1
ReDim reserve arr(1 To i)
a = bobj.GetAttributes
arr(i) = a(0).TextString
Next
With xls.Workbooks.Add
   .Sheets(1).[a1].Resize(i, 1) = xls.Transpose(arr)
   .SaveAs "d:/123.xls"
   .Close
End With
xls.Quit
End Sub

[qqimg]201311/{927EADFC-E7CB-9BC4-7BB0-205D117A1241}.jpg[/qqimg]
为什么会显示未定义类型呢?
 楼主| 发表于 2013-11-5 10:33:46 | 显示全部楼层
风雨无阻 10:33:46
判断某布局是否存在怎么实现
 楼主| 发表于 2013-11-5 13:53:02 | 显示全部楼层
[shasha488]【shasha488】lovel 13:53:02
请教一个问题
[shasha488]【shasha488】lovel 13:54:02
启动autolis界面后,然后打开文件,出现打开文件对话框,如何设置默认目录
 楼主| 发表于 2013-11-5 14:46:38 | 显示全部楼层
风雨无阻 14:46:38
(setq pv (vla-addpviewport paperSpace (vlax-3d-point 1000 1000 0) 1000 2000))
新建视如何激活
 楼主| 发表于 2013-11-5 16:07:12 | 显示全部楼层
[梦里水香] 16:07:12
(if
(d>2000) 
(setq ll(+ l 25) )
(setq ll(+ l 40) )
)
问一下。。这样写哪里错了
[shasha488]【shasha488】lovel 16:07:46
没错
[梦里水香] 16:08:52
错了。。知道了
 楼主| 发表于 2013-11-5 17:27:18 | 显示全部楼层
[仲文玉][仲文玉]wygjx 17:27:18
(d>2000)--> (d > 2000)
[gmstcn]囧囧圣堂 17:28:21
[gmstcn]囧囧圣堂 17:29:43
(< d 2000)
[dbb2008]笨笨 17:31:42
谁有批量提取块属性到excel的lisp,给我发一个,,,
急着用。。。
 楼主| 发表于 2013-11-5 19:14:44 | 显示全部楼层
[caoyin][caoyin] 19:14:44
如果d>2000是个涵数就不算错
[梦里水香] 19:16:51
才刚学这个。。不会问那么高级的东西
[梦里水香] 19:17:24
你举个粟子,哪种情况下用到仲文玉说的情况。
[ZZXXQQ] 19:18:12
糖炒粟子
[仲文玉][仲文玉]wygjx 19:18:29
[梦里水香] 19:18:56
 楼主| 发表于 2013-11-5 20:04:37 | 显示全部楼层
[shasha488]【shasha488】lovel 20:04:37
有人在吗
[ds-limt]-木子 20:05:00
[shasha488]【shasha488】lovel 20:05:13
请教个问题
[shasha488]【shasha488】lovel 20:05:49
如何获取当前图形的所有图层的名称
 楼主| 发表于 2013-11-5 20:26:07 | 显示全部楼层
[muhanleek]StEf 20:26:07
Vla-get-layers
 楼主| 发表于 2013-11-5 22:54:18 | 显示全部楼层
[海洋闹饥荒] 22:54:18
遍历,提取,排除
[goubeishu][LISP]fine 22:58:30
有会调试Lisp程序的高手吗?
[ds-limt]-木子 22:59:30
[qqimg]201311/{B8DE5150-6291-3853-4107-D91CF35F1431}.jpg[/qqimg]水边一个高手!
[梦里水香] 23:00:56
明经快报也算一个
[goubeishu][LISP]fine 23:03:19
大家都是搞什么行业的?
[goubeishu][LISP]fine 23:10:01
说话行吗?
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-23 08:22 , Processed in 0.200761 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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