[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" |