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

明经快报

[无痕]午夜咖啡 15:13:16

i 得不够

明经快报

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

明经快报

[flytoday]过^-^客 18:12:25

讲个好笑的………去年白天街上警察抓小偷……估计追了几条街了……就三个警察小偷一个在前面跑………结果一个警察摔倒了跟滴太紧后两警察追尾拌倒了……笑死哥了……最好笑的是那小偷掀翻路过西红柿摊…三警察见红了小偷跑远了

[胆小鬼39] 18:13:07

明经快报

[清风明月名字] 20:14:43

请问，LSP如何取得CSV文件中第一行第3列的字符串？

明经快报

[dcl1214]昌立 20:37:42

付费开发托盘气泡功能

相当于是一个小秘书

哪位愿意挑战？

明经快报

[清风明月名字] 20:54:33

[qqimg]201308/{AA6A4126-88A7-AC3D-00F7-9D33024988B3}.jpg[/qqimg]
请问，监视窗口中，一双引号加一条右斜线组成一组，围字符串，是表达什么？是表示为表吗？

明经快报

[aroom]aroom 21:14:20

托盘气泡 有什么要求

明经快报

[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.依次加载

明经快报

[236004]张牙舞爪 23:26:51

[qqimg]201308/{CEB38A93-3BA5-A936-B34B-18A7343FAAB8}.jpg[/qqimg]

问下，组码=*A8 是什么意思？

明经快报

[无痕]午夜咖啡 23:58:30

大概是祖玛游戏第8级的意思