2013-11-05 明经 AutoLISP 编程②(177027547) 群聊记录：Sub aq() Dim bobj As AcadBlockReferen

明经快报

[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]
为什么会显示未定义类型呢？

明经快报

风雨无阻 10:33:46

判断某布局是否存在怎么实现

明经快报

[shasha488]【shasha488】lovel 13:53:02

请教一个问题

[shasha488]【shasha488】lovel 13:54:02

启动autolis界面后，然后打开文件，出现打开文件对话框，如何设置默认目录

明经快报

风雨无阻 14:46:38

(setq pv (vla-addpviewport paperSpace (vlax-3d-point 1000 1000 0) 1000 2000))

新建视如何激活

明经快报

[梦里水香] 16:07:12

(if
(d>2000) 
(setq ll(+ l 25) )
(setq ll(+ l 40) )
)
问一下。。这样写哪里错了

[shasha488]【shasha488】lovel 16:07:46

没错

[梦里水香] 16:08:52

错了。。知道了

明经快报

[仲文玉][仲文玉]wygjx 17:27:18

(d>2000)--> (d > 2000)

[gmstcn]囧囧圣堂 17:28:21

[gmstcn]囧囧圣堂 17:29:43

(< d 2000)

[dbb2008]笨笨 17:31:42

谁有批量提取块属性到excel的lisp，给我发一个，，，
急着用。。。

明经快报

[caoyin][caoyin] 19:14:44

如果d>2000是个涵数就不算错

[梦里水香] 19:16:51

才刚学这个。。不会问那么高级的东西

[梦里水香] 19:17:24

你举个粟子，哪种情况下用到仲文玉说的情况。

[ZZXXQQ] 19:18:12

糖炒粟子

[仲文玉][仲文玉]wygjx 19:18:29

[梦里水香] 19:18:56

明经快报

[shasha488]【shasha488】lovel 20:04:37

有人在吗

[ds-limt]-木子 20:05:00

[shasha488]【shasha488】lovel 20:05:13

请教个问题

[shasha488]【shasha488】lovel 20:05:49

如何获取当前图形的所有图层的名称

明经快报

[muhanleek]StEf 20:26:07

Vla-get-layers

明经快报

[海洋闹饥荒] 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

说话行吗?