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

明经快报

[ddbb2008]笨笨 00:16:51

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]

为什么会显示未定义类型呢？

明经快报

深海鱼 01:01:09

大家好，我是新来的，感觉这个群来得太晚了。

真是一个很好的群

明经快报

[野狼谷]笨鸟 09:12:31

深海鱼(363629078) 2013-11-5 01:01:22
大家好，我是新来的，感觉这个群来得太晚了。
真是一个很好的群

 来得是够晚的，都一点了：01:01:22
不过我们还是灰常欢迎！

[野狼谷]笨鸟 09:13:15

[ddbb2008]笨笨(1325710361) 2013-11-5 00:17:04
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
相比lisp vb代码实在太啰嗦了

[ahwx0814]雨中漫 09:13:21

应该说来的太早了，早晨1点就到了，太厉害了

我都没起过这么早

[ahwx0814]雨中漫 09:14:35

主要是lisp不用定义变量而且变量类型可以随意改动，太方便了，

[野狼谷]笨鸟 09:16:39

精炼易懂的代码对于编程维护非常重要

lambda是梦幻的，也是梦魇的

明经快报

[野狼谷]笨鸟 09:41:20

[qqimg]201311/{0619BF60-DE8A-18F0-3EAE-266EA68FB654}.jpg[/qqimg] 这个范围缩放如何在lisp里关闭？

[VBALISPER]恐龙 09:42:18

关闭?

[野狼谷]笨鸟 09:43:05

我不知道在哪设了，用lisp函数画一个图元，就自动回到最大视窗里

造价新生～贺雁 09:43:26

我还是新生

[野狼谷]笨鸟 09:43:27

(princ) 有这个作用吗？

[water_system][mingdi]shenshen 09:44:00

去掉 nil

[VBALISPER]恐龙 09:44:05

没有

[野狼谷]笨鸟 09:45:35

[mingdi]shenshen(924604042)  09:44:11
去掉 nil？？

明经快报

[szx025][szx025]aaaa 10:36:56

(restore_old_error)
这句是啥意思？

明经快报

[flytoday]过^-^客 13:11:45

发现一个规律，胸小的姑娘一般脾气都特大。反过来，胸大的姑娘一般脾气都特好。。。古语云：穷胸极恶，有容奶大。。。

[shasha488][shasha488]nIhaO 13:12:13

[kewyst]………… 13:12:29

我也觉得是这样

[flytoday]过^-^客 13:12:50

[shasha488][shasha488]nIhaO 13:15:52

有没有给排水专业的朋友

[qianzj]太阳 13:21:52

有

[shasha488][shasha488]nIhaO 13:29:07

哦

我也是做给排水这一行的

明经快报

[328302216][328302216]小莫 14:27:20

[qqimg]201311/{CF4D341F-D6C5-C017-1173-84845D05ECD1}.gif[/qqimg]

明经快报

[shasha488][shasha488]nIhaO 14:41:45

[qqimg]201311/{010DAE1B-CDDB-7DCA-46B9-CC7C0BB059B1}.jpg[/qqimg]

这是怎么回事，请教

[shasha488][shasha488]nIhaO 14:44:14

有人吗

明经快报

[OWEN7][qqou7]clever 15:39:28

论坛不能搜索？

明经快报

Crazy 16:22:41

我能问下这条语句在内存中的执行方式吗
[qqimg]201311/{DBEADC04-D53D-733F-251E-377D4A452657}.jpg[/qqimg]

while的条件这样写是什么意思啊
c是char型的
当输入数据是一串字符时是怎么执行的啊
求指导