明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 3125|回复: 23

[LISP群(1)] 2013-07-30 明经 AutoLISP 编程(102918348) 群聊记录:((= znr 阳台) (bjx pzr))

 关闭 [复制链接]
发表于 2013-7-30 00:39:21 | 显示全部楼层 |阅读模式
[500w008]500w008 00:39:21
((= znr 阳台) (bjx pzr))
阳台用不用加“”
[啵浪鼓] 00:39:59
要加
[500w008]500w008 00:41:11
哦 谢谢
 楼主| 发表于 2013-7-30 07:36:49 | 显示全部楼层
[野狼谷]笨鸟 07:36:49
远程加密?路上代码不都丢光了?
 楼主| 发表于 2013-7-30 09:21:56 | 显示全部楼层
[不死猫][nonsmall]不死猫 09:21:56
 试试破解
[不死猫][nonsmall]不死猫 09:23:00
丢了一地的节操 就是不丢代码
 楼主| 发表于 2013-7-30 09:35:31 | 显示全部楼层
[linshiyin2]大地 09:35:31
啥是节操?节操是啥?
[小伟jeny]小伟 09:39:58
知道真钞
 楼主| 发表于 2013-7-30 10:18:23 | 显示全部楼层
[yifei]绝然 10:18:23
这里面的一些选项怎么用lisp表示,怎么写?[qqimg]201307/{17F324DD-E2DD-2C9F-6F87-FBF820AA851D}.jpg[/qqimg]
或者是自定义命令
 楼主| 发表于 2013-7-30 10:37:21 | 显示全部楼层
[微笑]⿴S㏕e° 10:37:21
大家有没有 CAD打开一个新页的时候 直接设置好字体大小 图层等的LISP啊
[阿然][阿然] 10:38:14
自己设置好了以后存成模板文件
[微笑]⿴S㏕e° 10:38:38
那怎么保存模版?
[阿然][阿然] 10:39:04
[qqimg]201307/{F00BA0CD-37F1-F0FE-9A2A-B8731B020E05}.jpg[/qqimg]
[微笑]⿴S㏕e° 10:39:16
谢谢
[微笑]⿴S㏕e° 10:44:31
保存的模版 好像图层不在啊
[阿然][阿然] 10:52:55
都在的
[冶躁] 11:00:03
请教一个问题 
(initget 1 "1 2")
(setq model (getkword"[1/2]")) 执行没问题 
但是
(initget 1 "up dw")
(setq model (getkword"[up/dw]")) 执行后选择up或者dw始终显示无效关键字 一定要手工输入up后才ok这是为啥?
[阿然][阿然] 11:00:44
第一个关键字要大写
"Up Dw"
[冶躁] 11:01:13
我试试
[冶躁] 11:03:14
还是不行 显示无效的选项关键字
[阿然][阿然] 11:04:40
"Up Dw "
[冶躁] 11:05:03
我代码里就是这样写的啊
[qqimg]201307/{9C89CFE5-335C-F6AA-BF8E-D3DAB52046FB}.jpg[/qqimg]
[阿然][阿然] 11:05:05
[qqimg]201307/{AE765A90-4658-B261-8DEE-9E3F194575E5}.jpg[/qqimg]
dw后面跟个空格
[冶躁] 11:05:28
[qqimg]201307/{651673A9-DE2E-C42D-6B7F-EE8FFD53378C}.jpg[/qqimg]
[pzweng][pzweng]路人 11:06:08
(initget 1 "Up Dw")
(setq model (getkword "[上/下]"))
[阿然][阿然] 11:06:35
我这里没有问题啊
[pzweng][pzweng]路人 11:06:43
试试我的语句
[冶躁] 11:08:47
[qqimg]201307/{43FF0D64-5725-C262-B2F9-42F7F4093DB7}.jpg[/qqimg]
[pzweng][pzweng]路人 11:08:59
你啥版本
[冶躁] 11:09:10
CAD?
[pzweng][pzweng]路人 11:10:07
你把F12关了
[冶躁] 11:11:23
不用dyn 直接输入是可以的
启用dyn 用鼠标选就不行
[pzweng][pzweng]路人 11:11:48
我这边可以
[冶躁] 11:11:55
我希望用户用鼠标选
[pzweng][pzweng]路人 11:12:29
(initget 1 "Up Dw")后面的值不对吧
看看模式
[冶躁] 11:13:18
你CAD啥版本?
[pzweng][pzweng]路人 11:13:23
不是,你这样有空格输入
[冶躁] 11:13:40
你说dyn?
[pzweng][pzweng]路人 11:16:01
我看看去
[linshiyin2]大地 11:17:07
[qqimg]201307/{FDD72CD2-2D18-DDC6-93F9-AD49C94F4EAA}.jpg[/qqimg]
这个配置有啥用啊
谁来科普一下
[linshiyin2]大地 11:18:04
[qqimg]201307/{41C80FA0-C895-F89C-14C4-7290BF39AB09}.jpg[/qqimg]
[alexanderlili][alexanderlili]友缘 11:18:10
这个貌似就是每套设置可以单独保存一个方案吧,可以迅速切换的
[pzweng][pzweng]路人 11:18:30
配置就是你的界面
最后不要动他
这个要与cui一起弄
[pzweng][pzweng]路人 11:19:54
initget怎么允许按空格响应呀
[linshiyin2]大地 11:21:10
好像一些软件就是配置的它
我来截个图
[pzweng][pzweng]路人 11:21:48
相当于config
[linshiyin2]大地 11:22:01
有这个挺好,要干净cad就选干净的,要自己的就选择自己的
[pzweng][pzweng]路人 11:22:14
相当于pro/e里面的config
[linshiyin2]大地 11:22:16
要其他软件的选择其他软件的
这个东西怎么配置
[pzweng][pzweng]路人 11:22:48
你别去弄这个
你连CAD都没摸熟
[linshiyin2]大地 11:23:22
没关系,大不了[qqimg]201307/{0FFEFF40-3C3A-3E86-2CC4-6725853AFBFE}.jpg[/qqimg]重置
[qqimg]201307/{4A692499-9FA8-6519-89A3-6F3B28AFA283}.jpg[/qqimg]
[pzweng][pzweng]路人 11:24:48
命令: test [上/下]

无效的选项关键字。
[上/下] U
[linshiyin2]大地 11:25:20
[qqimg]201307/{6ED18DDC-6978-4EB2-0104-7CD60B296058}.jpg[/qqimg]
[pzweng][pzweng]路人 11:25:55
明白了
[冶躁]
[冶躁] 11:26:42
请说
[pzweng][pzweng]路人 11:26:52
在initget前面加一句(terpri)
[冶躁] 11:26:53
我发现一个字符的都可以
[pzweng][pzweng]路人 11:27:25
(defun C:test (/ model)
  (terpri)
  (initget 15 "Up Dw")
  (setq model (getkword "[上/下] "))
)
你试试这句
[pzweng][pzweng]路人 11:28:10
dyn模式就是不行
[冶躁] 11:28:32
还是不行
dyn模式只能是一个字符
凡是一个字符就行
[pzweng][pzweng]路人 11:29:01
也不行
一个字符也不行
[冶躁] 11:29:14
我行啊?
[pzweng][pzweng]路人 11:29:21
我这边不行
[oldenn]河马 11:29:34
[pzweng][pzweng]路人 11:29:37
[qqimg]201307/{5F3EE501-50C1-2E49-A8B9-A6760CB5E931}.jpg[/qqimg]
[linshiyin2]大地 11:29:50
图破了
[pzweng][pzweng]路人 11:29:57
无效的选项关键字。
[上/下]
[冶躁] 11:30:00
[qqimg]201307/{B1BF9F60-531E-230B-31E3-307FBB8E704C}.jpg[/qqimg]
[pzweng][pzweng]路人 11:30:02
我的图发不过去
你复制,不要抓图
[冶躁] 11:30:19
不要用尖括号
[pzweng][pzweng]路人 11:30:32
你这样我复制不了
[冶躁] 11:30:42
肯定行
[linshiyin2]大地 11:31:01
尖括号要改成圆括号
[pzweng][pzweng]路人 11:31:07
尖括号怎么不行呢
[linshiyin2]大地 11:31:34
龟腚
[pzweng][pzweng]路人 11:31:40
尖括号怎么回事
明白了
[冶躁] 11:32:10
对圆括号也行
[linshiyin2]大地 11:32:11
方括号前面可以用尖括号,方括号里只能用圆括号
[冶躁] 11:32:20
呵呵
Lisp 规定好死
[linshiyin2]大地 11:32:33
米西米西,回来讨论那个配置的问题
[pzweng][pzweng]路人 11:33:11
选择要修剪的对象,或按住 Shift 键选择要延伸的对象,或
[栏选(F)/窗交(C)/投影(P)/边(E)/删除(R)/放弃(U)]:  *取消*
难怪CAD全用圆括号
[pzweng][pzweng]路人 11:34:11
CAD把尖括号当一个字符了
[pzweng][pzweng]路人 11:36:30
[冶躁]我这里除了不能用尖括号外都没问题
[pzweng][pzweng]路人 11:37:36
CAD2006
 楼主| 发表于 2013-7-30 11:50:09 | 显示全部楼层
[冶躁] 11:50:09
 楼主| 发表于 2013-7-30 12:10:45 | 显示全部楼层
[OWEN7][qqou7]clever 12:10:45
能把文字 H=123.5  加0.5吗,
[linshiyin2]大地 12:11:46
随便搞啊
[OWEN7][qqou7]clever 12:12:16
...
[linshiyin2]大地 12:13:27
字符串如果定长就好办
[OWEN7][qqou7]clever 12:13:48
怎么办
可以输入保留小数
[OWEN7][qqou7]clever 12:14:43
[夏生生][x_s_s_1]生无可恋 12:14:44
过滤=
[OWEN7][qqou7]clever 12:16:21
敢写一段么
[linshiyin2]大地 12:16:37
不敢
[夏生生][x_s_s_1]生无可恋 12:16:46
吓到了
[OWEN7][qqou7]clever 12:17:04
夏先生敢么
[vormittag]桔子 12:18:25
两行代码搞定的事,让你这么一说,真吓到了,不敢写。
[vormittag]桔子 12:18:55
除去赋值就只需要一行代码。
[linshiyin2]大地 12:19:01
桔子写写两行
[OWEN7][qqou7]clever 12:19:13
写一段吧,急需
[vormittag]桔子 12:19:21
不敢啊。
[OWEN7][qqou7]clever 12:19:41
桔子,
[vormittag]桔子 12:19:56
苹果也不敢啊
[OWEN7][qqou7]clever 12:20:06
哈哈
敢 的意思是 能不能
[vormittag]桔子 12:21:01
你的字典很奇怪。
[OWEN7][qqou7]clever 12:21:17
敢问你的大名?
敢问你几岁?
[linshiyin2]大地 12:21:33
敢问路在何方
[OWEN7][qqou7]clever 12:21:34
敢字
[vormittag]桔子 12:23:11
(strcat "H=" (rtos(+ 0.5 (atof (vl-string-trim "H=" str))) 2 )
[linshiyin2]大地 12:25:36
聪明会了吗
[OWEN7][qqou7]clever 12:25:52
看来我要改名了
[linshiyin2]大地 12:26:41
前一段时间搞cass里的文字,读出来全是一堆其他字符夹杂着有用的字符,搞的头疼
lisp处理字符串不咋地
[vormittag]桔子 12:27:26
多行文字,带格式的。
[OWEN7][qqou7]clever 12:27:31
抱歉,我的问题表达不清,
[vormittag]桔子 12:27:43
我讨厌多行文字。
[OWEN7][qqou7]clever 12:28:07
[qqimg]201307/{DFEDED8A-974A-27FF-A625-A02F5352E433}.jpg[/qqimg]这一堆数字,集体加一个指定的数字,比如0.5
[vormittag]桔子 12:28:39
[Bagu]Cyb 12:29:01
[vormittag]桔子 12:29:02
一口饭会吃,一碗饭就不会吃?
[linshiyin2]大地 12:29:02
桔子哭了
桔子红了
[linshiyin2]大地 12:29:56
ssget,foreach挨个杀
[OWEN7][qqou7]clever 12:30:05
[qqimg]201307/{314F638B-FAF0-2C72-F508-F7B2D6ED0067}.jpg[/qqimg]
[OWEN7][qqou7]clever 12:31:43
水平有限, 我先回去面壁思过
[linshiyin2]大地 12:33:26
[资源] 单行文字的四则运算
自己改改,怎么用都行
 楼主| 发表于 2013-7-30 12:44:41 | 显示全部楼层
[yeahyeah]王晓平 12:44:41
学会基本的autolisp需要多长时间?
[vormittag]桔子 12:45:18
小马过河
[yeahyeah]王晓平 12:45:28
[vormittag]桔子 12:45:48
小马过河的故事没听过?
[yeahyeah]王晓平 12:45:50
? 学会基本的autolisp需要多长时间
[yeahyeah]王晓平 12:46:20
没有
[vormittag]桔子 12:46:36
[yeahyeah]王晓平 12:46:55
小马过河是急不得的意思吗?
[linshiyin2]大地 12:47:18
半天就基本上入门了
[yeahyeah]王晓平 12:47:30
。。。。。。。
[linshiyin2]大地 12:47:38
两天你就会改了,3天你就会写了
一个星期就超过我了
[yeahyeah]王晓平 12:47:54
。。。。。
。。。。。。。
[linshiyin2]大地 12:48:35
一年后元老级,2年后骨灰级
[yeahyeah]王晓平 12:49:24
小马过河,不知深浅吗?
[vormittag]桔子 12:49:41
自己走了才知道。
我靠,现在的年轻人童年是怎么过来的?
[yeahyeah]王晓平 12:50:08
大地师哥,我只是问了一个普通的问题而已
[yeahyeah]王晓平 12:51:06
那就不用补充那么多了,我和小伙伴们都惊呆了。。
[linshiyin2]大地 12:52:05
有感而发,学alisp没多大出息,工程师除外
[yeahyeah]王晓平 12:52:53
我是工程师!
[yeahyeah]王晓平 12:53:58
全是大地师哥的栽培
 楼主| 发表于 2013-7-30 13:11:10 | 显示全部楼层
[yeahyeah]王晓平 13:11:10
大地师哥是个非常好的人,就是脾气有点臭,但是瑕不掩瑜,依然光彩又美丽
[yeahyeah]王晓平 13:12:09
桔子师哥是个哲学家型,常常用简单的文字告诉我们深邃的道理,我非常喜欢他
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-12-23 17:36 , Processed in 0.210268 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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