2013-06-30 明经 AutoLISP 编程(102918348) 群聊记录：[image={0BFC5F11-5AD6-91E7-DA84-89A354

明经快报

[阿然][阿然] 16:11:57

[qqimg]oldimg/{7D6C3B2C-3DD5-1C10-D416-C212F4CF553F}.jpg[/qqimg]执行.vbs文件的时候跳出这个是怎么回事？

[VBALISPER]恐龙 16:14:46

好办

[夏生生][x_s_s_1]生无可恋 16:15:26

？？

晕

[阿然][阿然] 16:15:36

哈哈哈哈

看来要3个

。。。。

[VBALISPER]恐龙 16:15:59

保存为*.bat

VBS脚本宿主解禁

[阿然][阿然] 16:17:34

我试一试

[阿然][阿然] 16:18:36

[qqimg]oldimg/{2D53F3E6-1EF8-5A28-B335-C341D7C3A410}.jpg[/qqimg]

[qqimg]oldimg/{E4F5E39C-F421-A28E-B7B0-6AD06C211CAC}.jpg[/qqimg]

跳出好多窗口

[HNFSF](看海) 16:19:31

想在不连续的序号插入空格

怎么运行不对啊

[夏生生][x_s_s_1]生无可恋 16:19:52

结果应为？

[HNFSF](看海) 16:20:22

（2 “ ” 5 6 7 “ ” 9 10）

[夏生生][x_s_s_1]生无可恋 16:20:41

[HNFSF](看海) 16:20:43

不管空多少个都用一个空格

[VBALISPER]恐龙 16:20:58

可以用了不嘛.

[阿然][阿然] 16:21:08

不能用

[VBALISPER]恐龙 16:21:13

好象是弹出了这个.确定就是.

[夏生生][x_s_s_1]生无可恋 16:21:37

(cons " " llst)永远为llst

[夏生生][x_s_s_1]生无可恋 16:22:15

用一个其它符号代替可否？

[HNFSF](看海) 16:22:30

可以啊，

[夏生生][x_s_s_1]生无可恋 16:22:37

您后续要如何处理？

[HNFSF](看海) 16:23:00

就可以了

[HNFSF](看海) 16:23:30

命令: (load "c:/docume~1/admini~1/locals~1/temp/cl_114.tmp") 2

命令: *取消*

命令: *取消*

命令: (load "c:/docume~1/admini~1/locals~1/temp/cl_114.tmp") (" " . 2)

命令: *取消*

命令: *取消*

命令: (load "c:/docume~1/admini~1/locals~1/temp/cl_114.tmp") (" " " " . 2)

命令: *取消*

命令: *取消*

命令: (load "c:/docume~1/admini~1/locals~1/temp/cl_114.tmp") (" " " " " " . 2)

运行一次(setq llst (cons " " llst))前面就多一个“ ”

(cons " " llst)不等于llst

[阿然][阿然] 16:24:18

多谢恐龙兄帮助，可以了

[HNFSF](看海) 16:24:58

后续要列表出来，不连续的号让他空着，比较醒目

[VBALISPER]恐龙 16:25:19

[HNFSF](看海) 16:25:21

1
2
3

6
7

9
10

这个效果

1
2
3
6
7
9
10

[阿然][阿然] 16:25:35

[HNFSF](看海) 16:25:47

如果不空着比较费眼神

[HNFSF](看海) 16:27:05

如果和前面的那个统计重复能同时考虑更好

[夏生生][x_s_s_1]生无可恋 16:31:06

错了

[ZZXXQQ] 16:32:09

直接在打印时判断如果与前面的数据不同就打一空行

[HNFSF](看海) 16:32:36

那可能会有很多空行

[ZZXXQQ] 16:33:44

不可能，是判断不同时只打一行

[阿然][阿然] 16:34:54

(defun insblank    (l)
  (if (> (length l) 1)
    (if    (/= 1 (- (cadr l) (car l)))
      (append (list (car l) " ") (insblank (cdr l)))
      (append (list (car l)) (insblank (cdr l)))
    )
    l
  )
)

[qqimg]oldimg/{E64F450E-C0D8-4B8F-2373-8CC4B72964AD}.jpg[/qqimg]

[HNFSF](看海) 16:37:05

这个可以了，谢谢

[雨的节奏][雨的节奏] 16:38:26

[雨的节奏][雨的节奏] 16:38:59

这个好像是递归啊

鱼公 16:39:51

老大

在哪注册的

[qqimg]oldimg/{FB419FBC-269C-3673-E326-6F96B992C2A7}.jpg[/qqimg]

[夏生生][x_s_s_1]生无可恋 16:40:32

硬拼

[HNFSF](看海) 16:40:41

运用自如啊

[阿然][阿然] 16:40:44

[pzweng][pzweng]路人 16:41:42

(1 4 2 3 5 8 9)这种表会是什么效果

[夏生生][x_s_s_1]生无可恋 16:42:19

(1 " " 4 " " 2 3 " " 5 " " 8 9)

[阿然][阿然] 16:42:29

一模一样

[HNFSF](看海) 16:42:59

是先进行了排序的

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

goodnice

[夏生生][x_s_s_1]生无可恋 16:43:43

不管效率了，伤脑细胞

[pzweng][pzweng]路人 16:43:50

我还有一种方法

[328302216][328302216]小莫 16:47:05

好多函数都不会用  感觉乱乱的

[夏生生][x_s_s_1]生无可恋 16:48:09

自从学会mapcar以后，吃饭也香啦，放屁也不臭了

[HNFSF](看海) 16:48:35

确实，俺们现在是吃不香睡不着啊

[328302216][328302216]小莫 16:49:26

[pzweng][pzweng]路人 16:53:23

还有一个函数我忘了

[HNFSF](看海) 16:55:07

[pzweng]路人(20787433)  16:41:29
(1 4 2 3 5 8 9)这种表会是什么效果

直接把这种原始无序的表排序填空最好

[野狼谷]笨鸟 17:01:50

[x_s_s_1]生无可恋(381164857)  16:47:56
自从学会mapcar以后，吃饭也香啦，放屁也不臭了

[328302216][328302216]小莫 17:08:49

吃不下饭的  放屁臭的  赶紧的学会 

[VBALISPER]恐龙 17:09:40

中午刚学会.

[夏生生][x_s_s_1]生无可恋 17:12:40

用while，cond也可以达到效果，不过程序精炼好多，可读性差了

[阿然][阿然] 17:15:21

别纠结了，现阶段能写出满足要求的代码，追求效率的层次还达不到

[夏生生][x_s_s_1]生无可恋 17:15:49

[328302216][328302216]小莫 17:16:40

我也是这么想的，只要能达到想要的效果就好，暂时先不考虑速度

[VBALISPER]恐龙 17:17:34

中午刚学了一下mapcar apply lambda  终于有点感觉了.各位老师出个题目,我练习一下,好吗

[阿然][阿然] 17:18:48

(1 2 3 4 5 6)->(11 12 13 14 15 16)

[VBALISPER]恐龙 17:19:05

好.马上

[caoyin][caoyin] 17:19:12

[开1心]开心就好 17:19:24

[alwtyp][alwtyp] 17:19:28

应该这样 (1 2 3 4 5 6)->(11 12 13 14 15 26)

[vormittag]桔子 17:19:30

[阿然][阿然] 17:19:31

曹老师在，赶紧抓住讲课

[caoyin][caoyin] 17:19:38

[夏生生][x_s_s_1]生无可恋 17:20:33

曹老师好

差点打错了

[阿然][阿然] 17:20:57

[qqimg]oldimg/{39503CE5-25AE-C17F-AAB2-5367F96CD39D}.jpg[/qqimg]

[caoyin][caoyin] 17:21:01

阿然老师好，生无可恋老师好

[夏生生][x_s_s_1]生无可恋 17:21:02

打成去声就不敬了

[vormittag]桔子 17:21:40

[VBALISPER]恐龙 17:21:53

呵呵

[阿然][阿然] 17:22:05

/鼓掌

[328302216][328302216]小莫 17:22:33

鲜花送上

[阿然][阿然] 17:22:35

(1 2 3 4 5 6)->(11 22 33 44 55 66)

[VBALISPER]恐龙 17:22:36

谢谢各位老师啊.这几个函数学了2年,终于学会了.最先教我的就是桔子老师.

[夏生生][x_s_s_1]生无可恋 17:22:50

批量修改图元名表某组码

[阿然][阿然] 17:23:02

(1 " " 4 " " 2 3 " " 5 " " 8 9)

[VBALISPER]恐龙 17:23:28

Z版是说也可以这样做吧.

[vormittag]桔子 17:24:18

只要找到对应规律就行了。

[VBALISPER]恐龙 17:24:40

第二个题目的关系就是 * 11

[HNFSF](看海) 17:25:28

“("KL2" "KL3" "KL5" "KL6" "KL6" "KL1" "KL5" "KL6")
("KL1  1" "KL2  1" "KL3  1" " "  "KL5  2" "KL6  3")

[VBALISPER]恐龙 17:25:38

我想得差了点. * 10 + x

[HNFSF](看海) 17:25:48

重复的就统计，确少的就空格

[VBALISPER]恐龙 17:26:19

方法真多啊.

[夏生生][x_s_s_1]生无可恋 17:26:30

拿前面的函数改改就是了，自己动动

[HNFSF](看海) 17:27:14

[qqimg]oldimg/{91B9EDE9-27AF-9F37-53C9-272E6DE75032}.jpg[/qqimg]

[阿然][阿然] 17:27:17

"KL1 1"构造成(KL1 . 1)会更方便点

[HNFSF](看海) 17:27:18

完成到这个程度

[HNFSF](看海) 17:28:09

[qqimg]oldimg/{4CC5B4AE-D3FC-9CF4-D81A-D1F384AF2ECB}.jpg[/qqimg]

[VBALISPER]恐龙 17:28:23

我怎么看着KL眼熟呢.这么多恐龙(KL)啊.

[HNFSF](看海) 17:28:33

感谢可恋，

吃饭去了，回来继续

[阿然][阿然] 17:28:56

为什么不是这么多可恋？

[HNFSF](看海) 17:30:25

[qqimg]oldimg/{ACFE143F-B834-FE61-B682-3E5773E6F6C0}.jpg[/qqimg]

最终想要这种效果

[VBALISPER]恐龙 17:31:10

可恋看着KL也会觉得眼熟的.

[HNFSF](看海) 17:31:25

感谢群里面所有热心的老师们

[夏生生][x_s_s_1]生无可恋 17:31:29

WKL

[夏生生][x_s_s_1]生无可恋 17:32:23

KL DL L LL QL XL WKL

[夏生生][x_s_s_1]生无可恋 17:33:35

较大的工程上千个梁编号，你这么搞会死人的

[HNFSF](看海) 17:40:14

有道理

明经快报

[lisp-study]jun 17:52:30

块内多行文字变单行文字 有没有好方法呀

[caoyin][caoyin] 17:54:36

恐龙出来答题

[VBALISPER]恐龙 17:54:38

好的.谢谢曹老师.我练习一下.

[caoyin][caoyin] 17:54:49

[qqimg]oldimg/{AEC593CF-1BFC-81F5-E514-710584E2CA83}.gif[/qqimg]

[xiayuzj503][xiaoyuzj-503]. 17:55:16

请问谁有【Visual Lisp&精选范例篇】

[lisp-study]jun 17:59:10

@[caoyin] 请教块内的多行文字 我想换成单行文字 怎么批量处理呀？

[VBALISPER]恐龙 17:59:35

吃饭了.回来再继续

[caoyin][caoyin] 18:03:39

多行文字不支持vla-explode，所以有难度

[lisp-study]jun 18:04:11

就是 我刚开始就用这个不行 用command也不行

[caoyin][caoyin] 18:08:48

如果要求不是太高，炸开再定义块

[lisp-study]jun 18:09:50

哦 这样比较麻烦

[caoyin][caoyin] 18:11:14

那就要在vlax-for中删除mtext，创建text

[vormittag]桔子 18:11:26

曹老师出的题目我来解一下。

[caoyin][caoyin] 18:11:59

有情桔子老师

[lisp-study]jun 18:12:40

[vormittag]桔子 18:13:29

我觉得也应该有，我用了两次mapcar

但是现在不去想了。

[lisp-study]jun 18:14:29

不对 没用apply

[caoyin][caoyin] 18:14:43

结果是没错，....

[VBALISPER]恐龙 18:22:46

做到是做出来了,没用到apply ,却用了个append

[VBALISPER]恐龙 18:23:21

和JUN的一模一样。

[caoyin][caoyin] 18:23:22

[vormittag]桔子 18:23:27

如果再加一行表呢？

[VBALISPER]恐龙 18:23:35

我再继续做。

[vormittag]桔子 18:24:27

两次mapcar是必须的，但是两次apply没必要。我那个是写麻烦了。

[vormittag]桔子 18:28:56

[caoyin][caoyin] 18:30:49

呵呵，加一个atio

atoi

[caoyin][caoyin] 18:31:30

再加一个 -

abs

[vormittag]桔子 18:32:32

如果像(car lst) (cadr lst) (caddr lst) 这样要累死了。

[caoyin][caoyin] 18:33:17

不对，呵呵

[VBALISPER]恐龙 18:33:20

我这样做对了吗，好象结果是对的。过程好象复杂了。

[vormittag]桔子 18:33:24

用mapcar就不许用car

[VBALISPER]恐龙 18:33:37

哦

[vormittag]桔子 18:33:45

不许用car cadr caddr cadddr

[VBALISPER]恐龙 18:34:04

好的，再研究研究

[caoyin][caoyin] 18:34:23

别研究了，这个题目实用意义太小了

[vormittag]桔子 18:35:18

告诉他答案好了。

[caoyin][caoyin] 18:35:26

[VBALISPER]恐龙 18:35:33

哦。我是想多练习一下。以免下次又忘记了。

[lisp-study]jun 18:37:47

[vormittag]桔子 18:44:38

我那个写得傻逼了，mapcar 后面的函数的可以是多元函数，结果我还搞了一个lambda函数进去。

[lisp-study]jun 18:44:52

明经快报

[野狼谷]笨鸟 19:13:14

[AutoLISP/Visual LISP]动态轴测图工具(源码)
 - 本文出自地学网，原文地址：http://www.dixue.com/thread-24440-1-1.html

[VBALISPER]恐龙 19:13:39

还是想不通两个mapcar重起是怎么回事。

[vormittag]桔子 19:14:10

，慢慢来

[VBALISPER]恐龙 19:14:59

嗯。现在对mapcar apply lambda有了初步认识了。

[alwtyp][alwtyp] 19:18:30

这三个函数我一个都不会用

[VBALISPER]恐龙 19:21:45

慢慢来。我理解这三个函数用了快两年。

[alwtyp][alwtyp] 19:23:44

[VBALISPER]恐龙 19:24:23

别怕，你用不了这么长时间。只是我太笨。

[alwtyp][alwtyp] 19:25:36

我都学好几年了，不过没有觉得要用上这几个函数。主要是我都搞些小程序，没那么复杂

[VBALISPER]恐龙 19:27:37

小程序有时也用得上这几个。

[lisp-study]jun 19:28:18

mapcar  lambda 很强大 我觉得

[alwtyp][alwtyp] 19:28:26

我的都是简单的，目前还没有用上

[7299969]人生 19:33:27

[qqimg]oldimg/{252F91F1-B357-EDB3-D9A3-09B328050B3C}.gif[/qqimg]

我怎么全不会

[VBALISPER]恐龙 19:33:49

一些点坐标，X加上5，Y加上10，就要用到

[vormittag]桔子 19:35:12

如果经常用向量来操作，这几个函数很常用。

[VBALISPER]恐龙 19:35:34

就是在一个点的右上方写文字，确定文字的位置

[alwtyp][alwtyp] 19:39:17

我都是这样写(+ (car pta)  x) (+ (cadr pta) y)

[vormittag]桔子 19:40:43

[野狼谷]笨鸟 19:41:35

求助：字符串 “b234r6”如何取前三位？或者第n到第m位？

[lisp-study]jun 19:41:36

....

[286168051]勤龙 19:41:51

substr

[lisp-study]jun 19:41:51

substr

桔子 有更好的方法

[286168051]勤龙 19:42:23

(substr "b234r6" 1 3)

[VBALISPER]恐龙 19:42:35

alwtyp，你那个是一个点吧，多个点，点表。就要用mapcar吧

[野狼谷]笨鸟 19:42:44

谢谢 [286168051]勤龙(286168051)  19:42:09

[lisp-study]jun 19:43:31

晕 我那个xyz只是个代表

[alwtyp][alwtyp] 19:43:33

我现在用的点，没有能加减统一的数字

[lisp-study]jun 19:43:41

具体情况就用数值撒

[lisp-study]jun 19:44:16

不是变量 

明经快报

[VBALISPER]恐龙 20:04:43

如果是点表，要把每个点的X，Y加上一个值，还要用到lambda吧。我写这个是不是写复杂了呢。

[VBALISPER]恐龙 20:07:06

每个点X+5，Y不变

[lisp-study]jun 20:13:02

[qqimg]oldimg/{40D40498-D9D6-6E33-19EA-C87B92DF589D}.jpg[/qqimg]这个怎么屏蔽

明经快报

[野狼谷]笨鸟 21:45:23

SET_TILE 函数 设置列表框值 是用整数还是字符？谁有例子？

[alwtyp][alwtyp] 21:46:32

字符

[野狼谷]笨鸟 21:46:53

哦，谢谢

比如 “2”？？

[alwtyp][alwtyp] 21:47:32

不好意思，看差了，列表框我要再确认一下

[alwtyp][alwtyp] 21:51:30

字符

[野狼谷]笨鸟 21:51:53

字符是列表框里的变量吗？

[lisp-study]jun 21:52:03

lisp怎么批量改图层名？不用rename

[286168051]勤龙 21:53:13

tblnext

(setq tbl(tblnext "layer" t))

[alwtyp][alwtyp] 21:53:30

不是，是序号

[286168051]勤龙 21:53:33

(while 
  (setq tc(cdr(assoc 2 tbl)))
  (setq

[野狼谷]笨鸟 21:53:47

哦，谢谢

[286168051]勤龙 21:53:49

ename(tblsearch "layer" tc))

(setq ent(entget ename))

(setq ent(subst(cons 2 new)(assoc 2 ent)ent))
(entmod ent)

(setq tbl(tblnext "layer"))
 )

应该行吧 没试过

[lisp-study]jun 21:54:28

好像不得行

[286168051]勤龙 21:54:30

不是tblsearch

[alwtyp][alwtyp] 21:54:34

什么东西要用到批量改图层？要怎么个批量改法？

[286168051]勤龙 21:54:36

是 tblobjname

[lisp-study]jun 21:55:48

entmod没用

[286168051]勤龙 21:56:14

(defun c:gtc()
  (setq tb(tblnext "layer" t))
  (while
    (setq name(cdr(assoc 2 tb)))
    (setq ename(tblobjname "layer" name))
    (setq ent(entget ename))
    (setq ent(subst(cons 2 new)(assoc 2 ent)ent))
    (entmod ent)
    (setq tb(tblnext "layer"))
    )
  )

你自己试试再说

[lisp-study]jun 21:56:35

N年前就试过了

[286168051]勤龙 21:56:36

用ENTMOD 可以

[lisp-study]jun 21:57:38

你试过了？

[286168051]勤龙 21:57:50

擦 你试试就知道了

你试过了吗

我修改的层表的

层表记录

不是实体的图层

实体图层你没有那个层是不行

我直接对层表图元操作

[lisp-study]jun 22:04:21

可以  谢谢啊 以前用tblsearch不行

[286168051]勤龙 22:04:51

tblobjname

不是TBLSEARCH

[lisp-study]jun 22:05:04

嗯

[286168051]勤龙 22:05:10

用事实说话

[lisp-study]jun 22:05:32

谢谢

明经快报

[野狼谷]笨鸟 22:44:47

(apply (READ ((strcat "DCL_" "INSTRU" "_Modify")) attrib_list)))
好像替代不了
(DCL_INSTRU_MODIFY attrib_list)
求助：

[286168051]勤龙 22:45:44

OPENDCL课程培训

联系我哦

[flytoday]过^-^客 22:54:13

[qqimg]oldimg/{83B03FF4-C4BB-38AE-E833-629B5B466DB7}.jpg[/qqimg]

院长

[HNFSF](看海) 22:57:43

[qqimg]oldimg/{F52E2FE2-16E7-3E5B-B9B4-8163BF485ECF}.jpg[/qqimg]

总算弄出来了

[VBALISPER]恐龙 22:59:00

院长挂了啊.

[HNFSF](看海) 22:59:26

听消息好像

[flytoday]过^-^客 22:59:40

[qqimg]oldimg/{90EB42EB-CE7D-B67D-25F7-C5A7C5523EDC}.jpg[/qqimg]哇有卜哥的那么牛

[flytoday]过^-^客 23:00:16

看海你这个能共亨不

[HNFSF](看海) 23:01:11

没成型的

[天财]天财 23:01:28

高手

[HNFSF](看海) 23:01:32

学习中，先忙了，等空了再来完善

[HNFSF](看海) 23:02:06

多谢群里面各位大师的帮助

[flytoday]过^-^客 23:02:43

高手中滴高手

[天财]天财 23:03:59

看海哥 还有什么其他功能 SHOW 一下 让我们激动下

[HNFSF](看海) 23:04:57

还没弄完

[flytoday]过^-^客 23:05:25

这个功能很好

[flytoday]过^-^客 23:06:01

[qqimg]oldimg/{202E3232-5D1C-B971-A970-BBCCD7013D92}.jpg[/qqimg]卜哥的

[HNFSF](看海) 23:06:26

很多人都写过，但是没有源码，

有些不一定适合自己用

[flytoday]过^-^客 23:07:10

你这相暂时不用能是吗

[HNFSF](看海) 23:07:16

萝卜这个是要花钱注册的不

[flytoday]过^-^客 23:07:27

是的

[HNFSF](看海) 23:07:32

看他在淘宝上挂着卖

[flytoday]过^-^客 23:07:56

[qqimg]oldimg/{6E8BD194-1A99-C322-769D-8D80CCAB9B06}.jpg[/qqimg]

[lisp-study]jun 23:08:24

[qqimg]oldimg/{F7A7E569-5E6D-01FD-7164-D9DDFA9558FB}.jpg[/qqimg]老胡的挺好用的

明经快报

[kwok][kwok]巭隼 23:30:53

(command "select" ss ent txt "")才发现这样也可以用

[alwtyp][alwtyp] 23:32:34

不知道你想要干什么

[kwok][kwok]巭隼 23:33:04