明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
12
返回列表 发新帖
楼主: 明经快报

[LISP群(1)] 2013-08-16 明经 AutoLISP 编程(102918348) 群聊记录:(defun xo_gs (str1 / );去除GS编号前面的0 (IF

 关闭 [复制链接]
 楼主| 发表于 2013-8-16 15:13:16 | 显示全部楼层
[无痕]午夜咖啡 15:13:16
i 得不够
 楼主| 发表于 2013-8-16 15:55:29 | 显示全部楼层
[500w008]宝林 15:55:29
[qqimg]201308/{3FF6A6FC-36A6-BBED-AFF0-CA151D82ACC4}.jpg[/qqimg]已经有这个组表 排序按照GS-后面的数据从小到大排 怎么排
[【KAIXIN】] [【KAIXIN】]炫翔 15:59:41
获取字符后面的数字
排序
VL-sort
[【KAIXIN】] [【KAIXIN】]炫翔 16:00:51
((数字 图元名)(数字 图元名)....)
[500w008]宝林 16:03:01
(defun sort_gs (lst / );对组表选项按gs编号排序
(vl-load-com)
 (setq lst (vl-sort lst
                 (function (lambda (e1 e2)
                             (<  (read (get_tn e1)) 
                                (read (get_tn e2))
                              )
                           )
                 )
            )
 )
(princ lst)
)
;(< (car e1) (car e2))

(defun get_tn (ex / enn n_r str1 num )
(vl-load-com)
(setq n_r (cdr (assoc 1 (setq enn (entget (car ex))))));获得字符内容
(setq num (vl-string-position (ascii "-") n_r));获得字符位数
(setq str1 (strcat (substr n_r 1 (+ 2 num))))
(xo_gs str1)
 str1
(princ)
)

(defun xo_gs (str1 / );去除GS编号前面的0
(IF (wcmatch str1 "0*")
    (setq str1 (substr str1 2))
)
(princ)
)
这个排序没排出来
[阿然][阿然] 16:04:16
如果都是gs-可以直接排序
[阿然][阿然] 16:05:47
[qqimg]201308/{36A08E90-7327-3122-4FB4-9F6925AD628C}.jpg[/qqimg]
[500w008]宝林 16:07:00
不是 是一个组表
这样一组
[qqimg]201308/{F3908E7E-4A11-BC3C-7C21-D8609B0B24B3}.jpg[/qqimg]
[夏生生][x_s_s_1]生无可恋 16:07:26
1
[阿然][阿然] 16:08:48
[qqimg]201308/{F4F22238-E0F2-1684-7DD7-F2EC1E226BA1}.jpg[/qqimg]
[500w008]宝林 16:09:15
我搞得太复杂了 呵呵
[mmh1][mmh1]漫步地球 16:11:59
ssget "i" 能用其他的代替吗?
[pzweng][pzweng]路人 16:12:48
[qqimg]201308/{2936A359-CEF7-1BCC-084E-0A5D4DCA6B75}.jpg[/qqimg]
[500w008]宝林 16:15:30
[qqimg]201308/{CDB2317A-B291-6044-32D7-7B46B8145206}.jpg[/qqimg]
[OWEN7][qqou7]clever 16:21:02
块在位编辑的时候, 偏移很慢,会卡,为什么
[500w008]宝林 16:21:04
*****
操你妈个B
[OWEN7][qqou7]clever 16:21:59
路人  人品很好啊,怎么了
[AMKYUD][AMKYUD]??? 16:22:45
+1
[328302216][328302216]小莫 16:22:56
素质...
[AMKYUD][AMKYUD]??? 16:23:43
我是同意clever的
[500w008]宝林 16:23:58
他不解决问题 天天 来调戏 群友
[328302216][328302216]小莫 16:24:22
我知道 我没说你[@350059363,@[AMKYUD]???]
[OWEN7][qqou7]clever 16:24:29
哪里调戏了
[328302216][328302216]小莫 16:25:33
调戏 群友 ?调戏哪个了?
[328302216][328302216]小莫 16:26:10
要骂你就私下发给他就可以了,这种群里发....
[OWEN7][qqou7]clever 16:26:10
[500w008]宝林   应该去看一下心理医生
[OWEN7][qqou7]clever 16:27:38
块在位编辑的时候, 偏移很慢,会卡,为什么
开心大师,知道么
[OWEN7][qqou7]clever 16:28:16
路人是很有责任心的不留名的雷锋。
[阿然][阿然] 16:28:20
群里总是会有人相互看不顺眼的,但是抱怨要有艺术
[pzweng][pzweng]路人 16:28:34
呵呵,他素质低下
[OWEN7][qqou7]clever 16:29:04
啊然 路人,几位高手,知道我的问题的根源吗
[pzweng][pzweng]路人 16:29:05
问题一大堆,没给他解决就骂人
[OWEN7][qqou7]clever 16:29:20
不提了
[【KAIXIN】] [【KAIXIN】]炫翔 16:32:11
一两句说不清的 建议去论坛发帖
这样方便大家讨论
众人的力量是庞大的
上测试图 与遇到的问题 希望的结果
[328302216][328302216]小莫 16:33:55
这几天用无线网页都打不开,图片也收不到   好久没去逛论坛了
[【KAIXIN】] [【KAIXIN】]炫翔 16:34:08
[【KAIXIN】] [【KAIXIN】]炫翔 16:34:38
这个向明总反应
[pzweng][pzweng]路人 16:34:40
请教个问题
(getfiled "选择文件" "d:My Documents" "txt" 8)
[328302216][328302216]小莫 16:35:03
不是论坛的问题 是我这里的网络问题
[pzweng][pzweng]路人 16:35:27
为什么d:My Documents这个路径返回文件名而不带路径
[linshiyin2]大地 16:35:43
"C:Program FilesAutoCAD 2006acad.exe" /p CASS80"
[pzweng][pzweng]路人 16:35:47
其它都可以返回路径
(getfiled "选择文件" "D:ft" "txt" 8)比如这个返回
"D:ftswd.txt"
[linshiyin2]大地 16:36:26
[qqimg]201308/{77ABDC09-F05B-E409-C648-F279D0BC4810}.jpg[/qqimg]这个配置文件如何写
[pzweng][pzweng]路人 16:36:38
不是写,是输出
你别弄这个
这个会搞晕你的
(getfiled "选择文件" "D:ft" "txt" 8)比如这个返回
"D:ftswd.txt" 
(getfiled "选择文件" "d:My Documents" "txt" 8)
这个只返回swd.txt
有人知道吗
[pzweng][pzweng]路人 16:40:43
我想是路径默认的原因
[linshiyin2]大地 16:44:11
"C:Program FilesAutoCAD 2006acad.exe" /p CASS80"还是"C:Program FilesAutoCAD 2006acad.exe" /p CASS80.arg"
 楼主| 发表于 2013-8-16 18:12:25 | 显示全部楼层
[flytoday]过^-^客 18:12:25
讲个好笑的………去年白天街上警察抓小偷……估计追了几条街了……就三个警察小偷一个在前面跑………结果一个警察摔倒了跟滴太紧后两警察追尾拌倒了……笑死哥了……最好笑的是那小偷掀翻路过西红柿摊…三警察见红了小偷跑远了
[胆小鬼39] 18:13:07
 楼主| 发表于 2013-8-16 20:14:43 | 显示全部楼层
[清风明月名字] 20:14:43
请问,LSP如何取得CSV文件中第一行第3列的字符串?
 楼主| 发表于 2013-8-16 20:37:42 | 显示全部楼层
[dcl1214]昌立 20:37:42
付费开发托盘气泡功能
相当于是一个小秘书
哪位愿意挑战?
 楼主| 发表于 2013-8-16 20:54:33 | 显示全部楼层
[清风明月名字] 20:54:33
[qqimg]201308/{AA6A4126-88A7-AC3D-00F7-9D33024988B3}.jpg[/qqimg]
请问,监视窗口中,一双引号加一条右斜线组成一组,围字符串,是表达什么?是表示为表吗?
 楼主| 发表于 2013-8-16 21:14:20 | 显示全部楼层
[aroom]aroom 21:14:20
托盘气泡 有什么要求
 楼主| 发表于 2013-8-16 22:04:17 | 显示全部楼层
[AMKYUD][AMKYUD]??? 22:04:17
大雁有没有冬眠的习性啊? 有个人名叫雁醒,这名字有什么含义呢?
[flytoday]过^-^客 22:07:57
艳星
[无痕]午夜咖啡 22:08:43
两人在厂里住一宿(雁),虽无酒水,但还是生生给日了(醒)
说的是怎么发生的故事
[flytoday]过^-^客 22:09:39
[zk2140]Kevin 22:11:15
求指导:加载指定文件夹下的所有lsp的lisp代码
[无痕]午夜咖啡 22:13:47
1 获得指定目录 2.搜索目录下lsp,arx等。3.依次加载
 楼主| 发表于 2013-8-16 23:26:51 | 显示全部楼层
[236004]张牙舞爪 23:26:51
[qqimg]201308/{CEB38A93-3BA5-A936-B34B-18A7343FAAB8}.jpg[/qqimg]
问下,组码=*A8 是什么意思?
 楼主| 发表于 2013-8-16 23:58:30 | 显示全部楼层
[无痕]午夜咖啡 23:58:30
大概是祖玛游戏第8级的意思
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-23 12:07 , Processed in 0.168277 second(s), 16 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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