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

明经快报

[500w008]宝林 02:54:21

(defun xo_gs (str1 / );去除GS编号前面的0
(IF (wcmatch str1 "0*")
    (setq str1 (substr str1 2))
)
(princ str1)
)
(xo_gs "078")

明经快报

[236004]张牙舞爪 08:59:28

怎么判断一个图元名里，有另一个图元名？

[vormittag]桔子 08:59:42

？

[pzweng][pzweng]路人 08:59:49

听不懂

[236004]张牙舞爪 09:00:11

应该怎么表达呢。

[vormittag]桔子 09:00:39

[236004]张牙舞爪 09:00:41

entnext 用这个函数可以提取出下一个对象名，但有些没有

[flytoday]过^-^客 09:01:36

各位大大。。为什么find这个命令不能搜索到 [ 这个符号啊

[vormittag]桔子 09:02:18

`[ 试试

[flytoday]过^-^客 09:03:00

哦还要加入个点号

[lrd1861][lrd1861]-笗天- 09:03:47

[qqimg]201308/{FD6E9246-5ADC-C190-8FF9-8842845CFFB2}.jpg[/qqimg]

[vormittag]桔子 09:04:02

[qqimg]201308/{9C1D90B5-27D5-828E-7FF6-F252C161E7B5}.jpg[/qqimg]，要看图元组码里有没有后跟图元标志。

[236004]张牙舞爪 09:05:31

选择对象: ((-1 . ) (0 . "LWPOLYLINE") (5 . "3166") (102 . 
"{ACAD_REACTORS") (330 . ) (102 . "}") (330 . ) (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "ASSIST") (6 . 
"Continuous") (100 . "AcDbPolyline") (90 . 6) (70 . 128) (43 . 0.0) (38 . 0.0) 
(39 . 0.0) (10 82.5523 -567.082) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 251.919 
-543.157) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 397.335 -538.03) (40 . 0.0) (41 
. 0.0) (42 . 0.0) (10 575.256 -543.157) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 
753.177 -549.993) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 931.564 -403.507) (40 . 
0.0) (41 . 0.0) (42 . 0.0) (210 0.0 0.0 1.0) (-3 ("SOUTH" (1000 . "204402"))))

明经快报

[pzweng][pzweng]路人 09:17:05

有没有提取字符的函数

[pzweng][pzweng]路人 09:17:45

比如aaa201bbb
    aaa202bbb
    aaaa203bbbb
    aaaaa204bbb
只提取201 202 203 204

[mccad][MCCAD] 09:18:37

用正则可分三段识别

[pzweng][pzweng]路人 09:18:50

关键前面好多种

不一定是aaaa

[mccad][MCCAD] 09:19:06

只要前面都是字母就行

[阿然][阿然] 09:19:22

明总出手写个吧

[pzweng][pzweng]路人 09:19:29

前面多的不得了，不规律

[mccad][MCCAD] 09:19:30

关键是你的规律怎样，就按照怎样的写规则

[阿然][阿然] 09:19:39

正则表达式还不是很理解

[mccad][MCCAD] 09:19:44

你来个不规律的例子出来

[pzweng][pzweng]路人 09:19:52

有汉字，符号，字母，数字都有

[mccad][MCCAD] 09:19:57

因为你给的都是非常规律的东西

[pzweng][pzweng]路人 09:19:57

好

探索频道.造物小百科.Discovery.How.Its.Made.S01E01.CN.TVrip.640x480-YYeTs人人影视[ED2000.COM]

看到没有S01E01是我想要的

[mccad][MCCAD] 09:20:23

前面都带数字了，那你怎么识别前用哪段数字

晕死

[pzweng][pzweng]路人 09:20:41

S**E**

[mccad][MCCAD] 09:20:42

这是你想的

[pzweng][pzweng]路人 09:20:51

S与E

中间两个数字

[mccad][MCCAD] 09:21:21

后面还有数字呢

[pzweng][pzweng]路人 09:21:36

字符长度

S01E01

就这么长

后面不要了

[mccad][MCCAD] 09:21:50

我知道你想用规则来寻找相同中不同的地方

[pzweng][pzweng]路人 09:22:02

我想用substr

[mccad][MCCAD] 09:22:02

这样的话，你可以做对比

[pzweng][pzweng]路人 09:22:36

我是想批量改名

前面都没什么用，只是这段有用

[mccad][MCCAD] 09:23:03

从规律来看，以点号分隔

[阿然][阿然] 09:23:07

比如"水田3827.2平方米"

或者"旱地123.4亩"

分三段出来

[pzweng][pzweng]路人 09:23:22

如何分

[阿然][阿然] 09:23:38

不会分，这不是请教明总

[mccad][MCCAD] 09:23:43

[qqimg]201308/{10AACE87-614A-C079-B7C1-F162031E84D0}.jpg[/qqimg]

象你这个，以点号分隔

前后标题比较

把不同的拿出来就是你想要的内容

[pzweng][pzweng]路人 09:24:04

点？

嗯，对

[pzweng][pzweng]路人 09:24:44

用(member expr lst)这个函数？

[mccad][MCCAD] 09:24:52

也只有这种方法

用什么函数我就不知道

但应该可以通过“.”来将字符串转到表

再比较表中哪项不同

[pzweng][pzweng]路人 09:26:03

我找找，好象弄过这类的函数

如果有规律的话用substr就行了

直接截取

[linshiyin2]大地 09:27:23

cad2excel有了，e2a也有了

[linshiyin2]大地 09:27:54

[qqimg]201308/{A5F7127B-957D-ECE9-065D-C3DAB9AE85E3}.jpg[/qqimg]

[夏生生][x_s_s_1]生无可恋 09:30:11

搜索第一个数字最后一个数字ascii码

[pzweng][pzweng]路人 09:32:00

我想不管前面有没有规律性我只找出S01E01这几个字符

[pzweng][pzweng]路人 09:32:43

例如
S01E01 S01E02 S01E03 .....
S02E01 S02E02 S02E03 .....

[vormittag]桔子 09:33:10

S1E1？

[pzweng][pzweng]路人 09:33:23

S01E01

S后面两个数字E后面两个数字

这里有规律

如果前面有规律直接用substr搞定

[vormittag]桔子 09:36:34

*S[0-9][0-9]E[0-9][0-9]*?

[pzweng][pzweng]路人 09:36:50

我试试

[cie0588][cie0588] 09:36:51

vl-string-search

[pzweng][pzweng]路人 09:37:04

我在用这个函数

[pzweng][pzweng]路人 09:37:48

(vl-string-search "S##E##" name)这样不行呢

[vormittag]桔子 09:38:10

这个当然不行。

[pzweng][pzweng]路人 09:38:40

是啊

这样当成字符了

[pzweng][pzweng]路人 09:39:55

有何办法能这样匹配

这样能解决可以不管前后有没有规律了

[vormittag]桔子 09:40:19

定位S，找S后面的六个字符是不是符合要求，不符合删掉第一个S以后再定位S.

[pzweng][pzweng]路人 09:40:45

也只能这样了

[mccad][MCCAD] 09:40:47

找.S

[pzweng][pzweng]路人 09:40:54

这样效率有些低

[vormittag]桔子 09:41:52

总比自己看要快吧？

[pzweng][pzweng]路人 09:42:31

呵呵，好的，先这样弄着吧

[pzweng][pzweng]路人 09:48:51

(setq NewName(substr name (+ 2(vl-string-search ".S" name)) 6))

[linshiyin2]大地 09:49:59

g版的e2c只能打开一个excel啊

明经快报

[mmh1][mmh1]漫步地球 10:00:43

CAD能替换回车吗？想把回车都替换为空格

[pzweng][pzweng]路人 10:01:52

汉字编码是不是>160还是=>160

[vormittag]桔子 10:03:05

>128就都是双字节编码。没必要纠结这个。

明经快报

[linshiyin2]大地 10:14:03

多行文字有格式，读取内容的时候有乱码，除了咋成单行文字，还有其他办法吗

[mccad][MCCAD] 10:15:40

论坛搜索，有相关解决方法，取有用字符

[mccad][MCCAD] 10:16:28

用的是正则，也有逐字符处理的方式(这种好象是VBA的)

[pzweng][pzweng]路人 10:25:56

这个函数还真有点难写

判的东西太多了

关键是汉字

[mccad][MCCAD] 10:27:38

所以用正则，一句就完成

[pzweng][pzweng]路人 10:28:01

呵呵，我想写个函数

有点不想写了

[小伟jeny]小伟 10:28:42

lisp也能用正则么？

[pzweng][pzweng]路人 10:28:50

(wcmatch "造物小百科" "造?小??")

这样不错

[pzweng][pzweng]路人 10:30:14

如何让"造?小??" 里的问号是字母、数字、汉字而不是符号呢

桔子

[pzweng][pzweng]路人 10:31:31

桔子在吗

明经快报

[vormittag]桔子 10:42:30

？

[pzweng][pzweng]路人 10:43:09

如何让"造?小??" 里的问号是字母、数字、汉字而不是符号呢

[vormittag]桔子 10:43:18

汉字要两个字符，稍微有些麻烦

[pzweng][pzweng]路人 10:43:29

这里问号是任意字符

[vormittag]桔子 10:43:56

[qqimg]201308/{C1B1CF19-5337-53B7-3788-162D2C39E096}.jpg[/qqimg]

帮助啊

[pzweng][pzweng]路人 10:44:28

没有介绍是符号的

[pzweng][pzweng]路人 10:45:09

句号是匹配任意单个非字母数值字符

[阿然][阿然] 10:45:32

比如"水田3827.2平方米"
或者"旱地123.4亩"
分三段出来
桔子兄看看怎么分开？

[flytoday]过^-^客 10:49:52

http://fj.qq.com/zt2013/jsj/?ADU ... 0&ADPUBNO=26223
[qqimg]201308/{9978AEE8-BBBC-1720-D286-1D93A5946050}.jpg[/qqimg]兄弟们麻烦给投票投下谢谢~~

兄弟们。麻烦了

[vormittag]桔子 10:50:51

我的思路找第一个数字，前面截掉，后面read以后转成字符串，再找最后一段。

[flytoday]过^-^客 10:51:19

http://fj.qq.com/zt2013/jsj/?ADU ... 0&ADPUBNO=26223
[qqimg]201308/{9978AEE8-BBBC-1720-D286-1D93A5946050}.jpg[/qqimg]兄弟们麻烦给投票投下谢谢~~
兄弟们。麻烦了

[pzweng][pzweng]路人 10:51:29

知道了

你发了

你别发了

[vormittag]桔子 10:51:37

投反对票？

[flytoday]过^-^客 10:51:45

谢谢各位帮帮忙。。。

[vormittag]桔子 10:51:55

没有反对票的按钮啊。

[flytoday]过^-^客 10:52:24

[pzweng][pzweng]路人 10:52:41

[qqimg]201308/{57A4F691-D89C-2B13-A38B-D88E45F4BF21}.gif[/qqimg]

[flytoday]过^-^客 10:53:33

兄弟们不要那么不尽情义嘛

[vormittag]桔子 10:54:04

无关的拉票我通常都投反对票。

[胆小鬼39] 10:54:15

有人知道这是什么原因吗
[qqimg]201308/{A18B81B7-39AC-8862-1C3F-9B2EBFEA3190}.gif[/qqimg]

.LSP托不进去了

不能加载

[lrd1861][lrd1861]-笗天- 10:55:14

esc

[vormittag]桔子 10:55:28

，为啥非得用这么古怪的加载方式啊。

[ken_1_1] 10:55:37

appload

[胆小鬼39] 10:56:39

这不是方便么

[vormittag]桔子 10:57:09

没感觉方便在哪里。

[胆小鬼39] 10:57:13

appload还要选路径，测试不方便

明经快报

[flytoday]过^-^客 11:10:54

http://fj.qq.com/zt2013/jsj/?ADU ... 0&ADPUBNO=26223
[qqimg]201308/{2054875A-3ECB-DC88-7355-41F2CA0E465A}.jpg[/qqimg]
帮忙投票谢谢。。麻烦了可以多发几个人帮忙谢谢~~
点网址进入点投票就行了。。谢谢了。麻烦了。。

[vormittag]桔子 11:12:02

T

[cie0588][cie0588] 11:12:20

[qqimg]201308/{7CB951D6-A50B-0B4D-3163-71B177124F7E}.jpg[/qqimg]

这是啥原因啊。安装CAD2010

[cie0588][cie0588] 11:13:35

[qqimg]201308/{E1A5D2A4-6299-0317-E9E6-B4EFACCC0486}.jpg[/qqimg][qqimg]201308/{B105FB78-AABD-44DE-AA3C-C1807E318832}.jpg[/qqimg]

明经快报

[kwok][ww5w]行舟月下 12:05:29

可能F8之类安键有冲突，看看其他软件有没相同的

明经快报

[kewyst]………… 12:49:39

[qqimg]201308/{111C5009-BA43-2FDA-C308-8BC7139A473F}.jpg[/qqimg]

明经快报

[mmh1][mmh1]漫步地球 14:01:11

ssget "i" 有时会出问题，有解不？