明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
楼主: 明经快报

[LISP群(1)] 2013-07-10 明经 AutoLISP 编程(102918348) 群聊记录:夜猫子不少啊

 关闭 [复制链接]
 楼主| 发表于 2013-7-10 15:39 | 显示全部楼层
[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
动态块?
 楼主| 发表于 2013-7-10 16:10 | 显示全部楼层
[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
可以用这个
 楼主| 发表于 2013-7-10 17:52 | 显示全部楼层
[OWEN7][qqou7]clever 17:52:45
板王那边已经联系了,他们已经改进了
在测试
 楼主| 发表于 2013-7-10 18:17 | 显示全部楼层
[OWEN7][qqou7]clever 18:17:27
哎,等了大半年,老板板王没更新什么功能
 楼主| 发表于 2013-7-10 19:12 | 显示全部楼层
[weiqi]weiqi 19:12:00
问下CAD 如果 打印预览有框的
转成PDF就没框了
只什么情况?》
[胆小鬼39] 19:12:18
谁有最新版的,天正结构破解版的下载地址发一个,谢谢
 楼主| 发表于 2013-7-10 20:40 | 显示全部楼层
[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菜单中去
 楼主| 发表于 2013-7-10 21:17 | 显示全部楼层
[迷途羔羊]半生 21:17:29
 楼主| 发表于 2013-7-10 21:30 | 显示全部楼层
[迷途羔羊]半生 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
哦.谢谢
 楼主| 发表于 2013-7-10 21:56 | 显示全部楼层
[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
 楼主| 发表于 2013-7-10 22:34 | 显示全部楼层
[vormittag]桔子 22:34:45
构成合理的数据结构然后替换
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-6-7 18:50 , Processed in 0.205130 second(s), 16 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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