2013-07-10 明经 AutoLISP 编程(102918348) 群聊记录：夜猫子不少啊

明经快报

[OWEN7][qqou7]ya雀无声 15:39:33

[qqimg]201307/{69E89087-8702-2F00-7ED4-C0DD49BCE019}.jpg[/qqimg]

怎么样把这个 四方形 标一个尺寸

[qqimg]201307/{821B4CB7-AB26-B34F-3592-A680702BB807}.jpg[/qqimg]

[pzweng][pzweng]路人 15:45:30

包围圈

[aeromodelling]纸飞 15:48:34

动态块？

明经快报

[AMKYUD][AMKYUD]??? 16:10:46

真是想不通为什么大家都愿意花很多时间精力学习类c语言，却不愿意学习功能强大的lisp，只是因为不喜欢繁多的括号？

[OWEN7][qqou7]ya雀无声 16:11:21

lisp速度慢

[fsxm]飞诗 16:11:23

[【KAIXIN】] [【KAIXIN】]炫翔 16:11:45

也许是安全问题

[fsxm]飞诗 16:11:51

有多强大

[AMKYUD][AMKYUD]??? 16:12:14

c语言蹩脚的指针，还不如lisp的子函数既有实参又有形参

[【KAIXIN】] [【KAIXIN】]炫翔 16:12:19

[qqimg]201307/{17BC7903-653E-900E-AF9E-98E21E625648}.jpg[/qqimg]过来人

应该后悔玩LISP了

[7299969]人生 16:12:50

[watersunliu]面圈 16:13:02

[pzweng][pzweng]路人 16:13:27

C#

[AMKYUD][AMKYUD]??? 16:13:59

被指针搞得晕头转向

[7299969]人生 16:14:12

哪个好

[pzweng][pzweng]路人 16:14:13

你的职业是？

[fsxm]飞诗 16:15:37

C#不用指针啊

[236004]张牙舞爪 16:16:12

用

可以把头搞晕

[AMKYUD][AMKYUD]??? 16:18:47

还不如lisp的子函数，可以既有实参又有形参。类c语言的子函数只能是形参

[fsxm]飞诗 16:20:07

[qqimg]201307/{719024F2-16B9-C2E4-C3EF-952FC34925D2}.gif[/qqimg]什么实参形参的

[AMKYUD][AMKYUD]??? 16:22:14

。。。

[fsxm]飞诗 16:22:39

alisp适合工程人员使用就是了
说功能多强大就没意思了

[yarp]潜水 16:24:29

还是飞诗说得对，不过lisp实现功能起来真快。

[AMKYUD][AMKYUD]??? 16:24:44

alisp他哥commonlisp不强大？

[vormittag]桔子 16:25:06

lisp 和 C或者Fortran 是编程语言的两个极端。

[OWEN7][qqou7]clever 16:25:40

LISP画一个直线很快， C要一大堆步骤

[【KAIXIN】] [【KAIXIN】]炫翔 16:26:02

时间版本上占优势

[236004]张牙舞爪 16:26:32

LISP太局限了，

[【KAIXIN】] [【KAIXIN】]炫翔 16:26:40

商业化的大型的玩意 就别想了

[vormittag]桔子 16:26:44

autolisp 只是Lisp 家庭里很弱小的一员。

[mitenickevin]kevin 16:26:55

只要不是专业性的开发，还是学LISP比较快一些。

[【KAIXIN】] [【KAIXIN】]炫翔 16:26:56

是的

[OWEN7][qqou7]clever 16:26:59

局限什么。可以出图就是强

又不是 专业的软件公司

[【KAIXIN】] [【KAIXIN】]炫翔 16:27:17

LISP只能在CAD里面玩

[OWEN7][qqou7]clever 16:27:30

！！

[AMKYUD][AMKYUD]??? 16:27:33

你应该继续学习commonlisp

不强大能搞人工智能吗

[OWEN7][qqou7]clever 16:28:34

没有智能的东西

[vormittag]桔子 16:28:40

《实用CommonLisp编程》 ，美国人写的一本书，挺不错的。

[OWEN7][qqou7]clever 16:28:47

智能的东西不能用在工程上

[fsxm]飞诗 16:29:02

不要瞎扯了，认真工作吧

[OWEN7][qqou7]clever 16:29:06

结构的梁配筋，

不可能智能

[fsxm]飞诗 16:30:04

lisp一直强调人工智能，
没见做过啥作品出来

[AMKYUD][AMKYUD]??? 16:30:34

火箭发射用到了

[fsxm]飞诗 16:30:43

[qqimg]201307/{719024F2-16B9-C2E4-C3EF-952FC34925D2}.gif[/qqimg]

[236004]张牙舞爪 16:30:43

[236004]张牙舞爪 16:31:23

火箭用到它会冲不出大气层的

[cie0588][cie0588] 16:31:41

我只画图，用lisp挺好

[OWEN7][qqou7]clever 16:31:47

最后还不是要人工交接吗

[fsxm]飞诗 16:31:51

反正大家都是做工程的，又不是程序员
管他啥语言，适合自己就行了
也不要将lisp吹上天了

适合自己的就是最好的~！

[236004]张牙舞爪 16:32:52

抽时间还学学C#还是可以的

[mitenickevin]kevin 16:33:12

老外都不怎么用CAD，在我们国家CAD就是个宝。

[yarp]潜水 16:33:46

c#不是不学为好吧，以我的经验，跟着微软的技术混会死得很惨。VBA就是一个例子。

[AMKYUD][AMKYUD]??? 16:33:48

老外用什么

[236004]张牙舞爪 16:34:14

为什么不学C# ?

[AMKYUD][AMKYUD]??? 16:35:06

老外把软件外包给中国公司了

[236004]张牙舞爪 16:36:01

嘻嘻，，

国产CAD支持LISP不？

[AMKYUD][AMKYUD]??? 16:37:51

中望CAD支持

[236004]张牙舞爪 16:38:13

VLISP也支持?

[vormittag]桔子 16:38:58

好像vl-改成zw-就可以。

[aeromodelling]纸飞 16:39:11

中望就是acad平台的二次开发吧

[236004]张牙舞爪 16:39:20

哦，

[mitenickevin]kevin 16:40:13

中望是独立的吧。

[OWEN7][qqou7]clever 16:40:46

我这个为什么总是失败

[aeromodelling]纸飞 16:41:01

那是后来的事了吧。90年代末，安装中望首先要安装acad

[OWEN7][qqou7]clever 16:41:22

桔子 帮忙看看为什么呢

[mitenickevin]kevin 16:41:31

我是建筑的，很多都用ArchiCAD  Revit 小鬼子很多用VectorWorks

[OWEN7][qqou7]clever 16:42:01

是 CAD中毒还是什么

[mitenickevin]kevin 16:42:16

CAD在我们国家用得最多。钱都被桌子公司收了好多

[雨的节奏][雨的节奏] 16:42:28

[qqimg]201307/{8A56919F-3BA0-CABB-78E7-2C91D1F31A97}.jpg[/qqimg]

删不掉

选不中

图层也没有锁定的

是怎么回事

[aeromodelling]纸飞 16:42:45

在dos时代，acad的宣传口号就是开放平台

提供最基本的命令，最广泛的应用，完全开放的平台

[pzweng][pzweng]路人 16:43:48

呵呵

[OWEN7][qqou7]clever 16:43:51

重复了，这句没错的，故意诱惑

[AMKYUD][AMKYUD]??? 16:44:02

你给桌子公司钱了吗

[pzweng][pzweng]路人 16:44:06

加密？

[OWEN7][qqou7]clever 16:44:27

算是

这句代码 就是 有时候有效，有时候失效

[雨的节奏][雨的节奏] 16:44:52

求解答

[pzweng][pzweng]路人 16:44:55

看lay有值不

[OWEN7][qqou7]clever 16:45:00

有

[vormittag]桔子 16:45:04

你要觉得这句代码没问题，那就。。。

[pzweng][pzweng]路人 16:45:05

lay是不是表

[OWEN7][qqou7]clever 16:45:17

是啊

[qqimg]201307/{6DF6428C-8368-CAE3-E55F-D5A2296354D7}.jpg[/qqimg]

[pzweng][pzweng]路人 16:45:42

lay是字符串还是表

[OWEN7][qqou7]clever 16:45:49

[qqimg]201307/{109E2480-71C8-073E-6171-1DE3A2192277}.jpg[/qqimg]

[pzweng][pzweng]路人 16:46:01

这是只字串

[OWEN7][qqou7]clever 16:46:11

恩，

[pzweng][pzweng]路人 16:46:24

mapucar要求的是表

[OWEN7][qqou7]clever 16:46:35

(sssetfirst nil (ssget (list (cons 8 cname))))

[OWEN7][qqou7]clever 16:47:16

cname可以得到

(sssetfirst nil (ssget (list (cons 8 cname))))

[pzweng][pzweng]路人 16:47:33

哪句有问题

[OWEN7][qqou7]clever 16:47:34

哦

首先，你试试能不能用

你试试能不能用呢

[pzweng][pzweng]路人 16:49:42

没问题

[OWEN7][qqou7]clever 16:50:18

我的问题就出现在， 有时候能用，有时候不能用，

代码也没什么问题，我就想都想不明白了，也杀毒了，

[OWEN7][qqou7]clever 16:51:46

这段代码很方便，我很喜欢

实在不行改写一段

[pzweng][pzweng]路人 16:52:30

可以用

没问题

你这样写可读性太差了

[OWEN7][qqou7]clever 16:53:37

恩呢。请求帮修改一下试试

[pzweng][pzweng]路人 16:57:14

你自己监视一下变量看看

[OWEN7][qqou7]clever 17:01:51

[qqimg]201307/{1E4AD25A-0F1D-17D3-403E-BACBE5CF3AB7}.jpg[/qqimg]

是不是 多了一个逗号

ssget 出问题了，没有过滤成功

[csc123456]顽强 17:02:53

多了个list

[csc123456]顽强 17:03:25

后面也不骊

[雨的节奏][雨的节奏] 17:03:28

[csc123456]顽强 17:03:30

后面也不对

[雨的节奏][雨的节奏] 17:03:46

(vl-prin1-to-string

vl-prin1-to-string

用这个吧

[pzweng][pzweng]路人 17:05:04

桔子那段写的好

[雨的节奏][雨的节奏] 17:05:24

[qqimg]201307/{699A7B40-048E-A194-19A1-F101C59D079D}.jpg[/qqimg]

就是把表转为字符串嘛

[vormittag]桔子 17:06:38

这样要去掉最后一个，还得算字符长度。

[pzweng][pzweng]路人 17:06:50

嗯

还是要用substr

[OWEN7][qqou7]clever 17:07:04

到底用哪个

[雨的节奏][雨的节奏] 17:07:07

弄了这么久不知道你们要干嘛

[pzweng][pzweng]路人 17:07:21

你试试看看

[OWEN7][qqou7]clever 17:07:23

路人 给我一个最后的

好

[雨的节奏][雨的节奏] 17:07:34

你是要干嘛呢？

[OWEN7][qqou7]clever 17:07:55

更简单的过滤选择

[雨的节奏][雨的节奏] 17:08:26

要选择什么？

[OWEN7][qqou7]clever 17:08:26

路人兄，不行呢

[pzweng][pzweng]路人 17:08:40

你的图层名有问题

[vormittag]桔子 17:08:50

跟你的那个不是一个要求， ( "1" "2" "3" "4")-> "1,2,3,4" , vl-prin1-to-string不是干这个用的。

[pzweng][pzweng]路人 17:08:54

member可能不能这样用

[OWEN7][qqou7]clever 17:09:44

现在 重新贴上最原始的源码，  节奏大师也看看

[雨的节奏][雨的节奏] 17:10:05

节奏不是大师啊

我还不太明白你的想法、、、

我也看不明白别人的源码

[pzweng][pzweng]路人 17:10:25

你的图层名是什么样的

[OWEN7][qqou7]clever 17:11:04

图层名？，图层名是选择之后得到的，比如BEAM

[pzweng][pzweng]路人 17:11:43

你的图层有特殊的符号吧

[OWEN7][qqou7]clever 17:11:52

没有

[pzweng][pzweng]路人 17:11:58

出错在哪里？

你重启CAD试试

[OWEN7][qqou7]clever 17:12:02

没有$这种

[pzweng][pzweng]路人 17:13:09

程序看不出哪里出错

[OWEN7][qqou7]clever 17:13:30

重启就可以

是不是变量出问题还是什么

重启之后，过一段时间又不行

我重装CAD 还是不行。

[OWEN7][qqou7]clever 17:14:39

我为了这段代码 ，曾经重装系统

[pzweng][pzweng]路人 17:15:25

呵呵

[OWEN7][qqou7]clever 17:15:40

我估计是电脑中毒了

[pzweng][pzweng]路人 17:16:08

不会吧

这么简单的代码，你自己监视变量就知道哪里错了

[OWEN7][qqou7]clever 17:16:23

都看不出问题的所在

没有错

这是重点

就是SSGET 过滤列表 无效

[pzweng][pzweng]路人 17:17:27

绞尽乳汁也没看到问题

[OWEN7][qqou7]clever 17:18:05

(ssget (list (cons 8 "BEAM")))

这样子，选择的都是全部图层

气死我

[雨的节奏][雨的节奏] 17:18:25

[pzweng][pzweng]路人 17:18:29

不会吧

[雨的节奏][雨的节奏] 17:18:51

这样写试试

[pzweng][pzweng]路人 17:19:05

这有区别吗

[雨的节奏][雨的节奏] 17:19:20

试一下看撒

[springwillow]孤帆 17:19:22

其实没有什么大的区别，

区别可能是后者更快一些吧

不需要计算

[雨的节奏][雨的节奏] 17:20:02

我好像碰到一些用cons不行的用点可以

[OWEN7][qqou7]clever 17:20:17

是我的电脑问题，

我装了老虎板王

失效了

[springwillow]孤帆 17:20:44

老虎板王的ssget被重定义了

[pzweng][pzweng]路人 17:20:57

这就对了咯

你装了别的插件

只要用了他的插件就不能用了

[OWEN7][qqou7]clever 17:21:58

[雨的节奏][雨的节奏] 17:22:08

[OWEN7][qqou7]clever 17:22:10

老虎板王真贱啊

杯具

[pzweng][pzweng]路人 17:22:32

你可以找人用arx写一个

[OWEN7][qqou7]clever 17:24:07

ACUTSSGET

估计得用ARX？

[pzweng][pzweng]路人 17:24:36

用vla吧

[雨的节奏][雨的节奏] 17:24:40

把老虎板王卸载掉

要不用vla选择也行

[OWEN7][qqou7]clever 17:25:25

VLA怎么写，

[pzweng][pzweng]路人 17:25:36

查VBA用法

[雨的节奏][雨的节奏] 17:26:29

electionset object 的 select方法：
object.Select Mode[, oint1][, oint2][, FilterType][, FilterData] 

Object

SelectionSet
The object or objects this method applies to. 

Mode

AcSelect enum; input-only 

acSelectionSetWindow 

acSelectionSetCrossing 

acSelectionSetPrevious 

acSelectionSetLast 

acSelectionSetAll 

Point1

Variant (array of doubles); input-only; optional
The 3D WCS coordinates, or array of coordinates, specifying oint1. See the mode definitions for the proper use of oint1. 

Point2

Variant (three-element array of doubles); input-only; optional
The 3D WCS coordinates specifying oint2. See the mode definitions for the proper use of oint2. 

FilterType

Integer; input-only; optional
A DXF group code specifying the type of filter to use. 

FilterData

Variant; input-only; optional
The value to filter on.

在论坛搜到一个

希望对你有用

[pzweng][pzweng]路人 17:26:50

VBA这个用法太烦琐了

[OWEN7][qqou7]clever 17:29:41

很郁闷

[雨的节奏][雨的节奏] 17:29:43

我记得有一个vla选择的

可以选择集

[雨的节奏][雨的节奏] 17:32:06

vla-get-ActiveSelectionSet

可以用这个

明经快报

[OWEN7][qqou7]clever 17:52:45

哦

板王那边已经联系了，他们已经改进了

在测试

明经快报

[OWEN7][qqou7]clever 18:17:27

哎，等了大半年，老板板王没更新什么功能

明经快报

[weiqi]weiqi 19:12:00

问下CAD 如果 打印预览有框的

转成PDF就没框了

只什么情况？》

[胆小鬼39] 19:12:18

谁有最新版的，天正结构破解版的下载地址发一个，谢谢

明经快报

[dcl1214]昌立 20:40:07

如何在某个菜单中增加一个菜单？

[qqimg]201307/{65CA034B-BAD2-1D5D-EA1C-C9D435D26B39}.jpg[/qqimg]

[pzweng][pzweng]路人 20:40:37

cui里面

[dcl1214]昌立 20:40:51

lsp怎么写的？

[dcl1214]昌立 20:42:03

添加的菜单不是cad自带的

自定义的菜单添加到cad菜单中去

明经快报

[迷途羔羊]半生 21:17:29

明经快报

[迷途羔羊]半生 21:30:38

08版的怎么通过lisp命令创建菜单啊？

[yjpzc][yjpzc]-蓝眼泪 21:31:13

2013一建项目管理  肖国祥真题解析
http://niupingru.400gb.com/u/1306757/2306745

2013一建工程经济  梅世强21精讲完整版
http://niupingru.400gb.com/u/1306757/2306744

2013一建建筑  优路江昔平（评卷老师）面授班
http://niupingru.400gb.com/u/1306757/2306747

2013一级法规  陈印13年6月精讲及讲义（全）及真题解析
http://niupingru.400gb.com/u/1306757/2306742

一级建造师历年真题
http://niupingru.400gb.com/u/1306757/2306768

一级建造师电子教材
http://niupingru.400gb.com/u/1306757/2335295

以下是环球和建工的课件
        
1.2013年一建法规
http://pan.baidu.com/share/init? ... 2&uk=4245694732
访问密码:we3d 

2.2013年一建管理
http://pan.baidu.com/share/init? ... 1&uk=4245694732
访问密码:14bt 

3.2013年一建经济
http://pan.baidu.com/share/init? ... 5&uk=4245694732
访问密码:w4w5 

2013年一建建筑
http://pan.baidu.com/share/init? ... 0&uk=4245694732
访问密码:ee8s

2013年机电：
http://pan.baidu.com/share/link? ... 2&uk=4245694732
访问密码:5kxk 

2013年市政：
http://pan.baidu.com/share/init? ... 9&uk=4245694732
 访问密码：j0xa

2013年一建公路
http://pan.baidu.com/share/init? ... 2&uk=4245694732
访问密码:rpki 

2013年一建水利
http://pan.baidu.com/share/init? ... 3&uk=4245694732
访问密码:a4w7

[迷途羔羊]半生 21:39:22

[VBALISPER]恐龙 21:40:34

请问一下,我想修改一个表中的元素,用什么函数啊.

修改它的值

[ZZXXQQ] 21:41:00

SUBST

[VBALISPER]恐龙 21:42:21

哦.谢谢

明经快报

[ZZXXQQ] 21:56:04

那就自己写个，挨个数数到第N个，改了再数后面的

[ZZXXQQ] 21:57:55

不麻烦吧晓东和明经上都有

[VBALISPER]恐龙 22:05:31

哦.我搜索一下看.

看来这个是很麻烦的事情啊.

Z版.我想按表中的位置来改.就是nth那个求得的.比如我想修改表中第5个元素的值为9.subst是查找替换出现的每一项,遇到重复的就出错了.不是我想要的.

[夏生生][x_s_s_1]生无可恋 22:08:17

()(defun change_n(lst n change / lst1)
  (repeat (1- n)(setq lst1(cons (car lst)lst1)lst(cdr lst)))
  (append(reverse lst1)(cons change(cdr lst)))
  )

[pzweng][pzweng]路人 22:17:02

看不懂

[仲文玉][仲文玉]wygjx 22:17:22

3 替换成 9

[pzweng][pzweng]路人 22:17:34

明白

[夏生生][x_s_s_1]生无可恋 22:18:53

不是，是第三个替换成9

明经快报

[vormittag]桔子 22:34:45

构成合理的数据结构然后替换