2013-05-31 明经 AutoLISP 编程(102918348) 群聊记录：？

明经快报

[linshiyin2]大地 13:53:55

[qqimg]oldimg/{939DDAAD-E0FC-89D3-BF2A-05FBE9979323}.jpg[/qqimg]

[linshiyin2]大地 13:54:55

难怪仅仅炸开第一个

ya雀无声 13:59:22

老虎板王的程序很好，速度很快很稳定

[linshiyin2]大地 14:00:02

但是lisp集中炸开选择集速度也不快啊

还是一个一个炸吧，谁有好办法，快速炸开选择集

[不死猫][nonsmall]不死猫 14:00:29

当输入数值大于5个的时候  最好用对话框防止输入错误

也方便保存输入过的数据

ya雀无声 14:03:04

是不是 ARX更稳定

效率更高

Kitchen Design 14:05:28

我也想炸

[mccad][MCCAD] 14:06:13

稳定是靠写的水平

[mccad][MCCAD] 14:06:43

效率除了语言有关系外，跟写的人的水平也有关系

[linshiyin2]大地 14:08:05

除了用(command "explode" "L" "")还有什么更高的效率炸开呢

刚才试了一下集中炸开选择集，但是也是很长时间

谁有高招

[mccad][MCCAD] 14:09:33

你直接在CAD中炸开也要那么长时间吧

[mccad][MCCAD] 14:10:09

难道在CAD中的写的程序能比CAD原来的功能还快，这比较少

[linshiyin2]大地 14:12:30

我试试，直接选中在cad中炸开试试，用lisp炸开200个左右大概用了20秒

[linshiyin2]大地 14:14:52

在cad中炸开好像也不快啊，

怎么回事，炸开怎么慢？

[lisp](car (entsel)) 14:16:01

如何知道一个加载的cad插件的命令(比如vlx,fas这样的插件),有时候从网上下载插件,但是却不知道如何使用命令

[linshiyin2]大地 14:17:46

一个一个炸能看到动，一起集中炸，屏幕死，好像还是一个一个好点

跟动画似的

[lisp](car (entsel)) 14:19:00

如何知道一个加载的cad插件的命令(比如vlx,fas这样的插件),有时候从网上下载插件,但是却不知道如何使用命令

[linshiyin2]大地 14:19:41

拖进去，打

[lisp](car (entsel)) 14:20:13

叫啥插件?

[linshiyin2]大地 14:21:02

昨天吧，有个厉害的人说fas转lisp成功，只留了qq号码，不知道是真的吧

不

[【KAIXIN】] [【KAIXIN】]炫翔 14:26:41

这个得看人家想怎么加密

如果学那样的，那就白折腾

学猫

[linshiyin2]大地 14:27:53

小猫一行变10行，有点大啊

[阿然][阿然] 14:28:06

帮我站个位，我回去搬小凳子来坐着围观

为什么这个群总有人问加密的事情？要做商业软件的不至于要来这里啊

[【KAIXIN】] [【KAIXIN】]炫翔 14:28:51

10行太少[qqimg]oldimg/{F414D51C-1845-5402-32A9-B51E52231ABB}.gif[/qqimg]

你去看看它的高级的加密

一个小小的程序 玩上了上千行

[linshiyin2]大地 14:29:47

不超过200炸开的速度还是满理想的，算了，就这样了，不折腾了

明经快报

[simon8001][simon8001]随风 14:57:56

（"1""2""3""4""5""1""11""1""12"16""12"）我想把他划分为表（"1""2""3""4""5"）（"1""11"）（"1""12"16""12"）  
现在思路比较乱 请问有什么好的思路吗？

[linshiyin2]大地 14:59:14

读取表成字符串再处理呗

ya雀无声 14:59:16

MAPCAR

ya雀无声 14:59:47

（apply

[linshiyin2]大地 15:00:14

字符长短，1的位置

[雨的节奏][雨的节奏] 15:03:34

[qqimg]oldimg/{387A36FF-69D1-E3B6-D3EF-3D71A31169D3}.gif[/qqimg]

cdr函数是除去表内第一个元素

[simon8001][simon8001]随风 15:04:00

还不如用nth了

[q530496591][q530496591]小菜鸟 15:04:26

用nth的话会慢一些。

[pzweng]路人 15:04:39

判断大小

[simon8001][simon8001]随风 15:05:14

但是可以精确定位 然后处理 慢不多少的 我们感觉不出来的  可能就是程序会长些

[q530496591][q530496591]小菜鸟 15:05:48

遇到问题要搞明白啊！不然进步不了

[simon8001][simon8001]随风 15:06:25

嗯 那倒是 你设断点看监视 自己就明白了 我一般都是这么处理的

[q530496591][q530496591]小菜鸟 15:07:28

（cdr lst）是2 第一次取的值是1 然后第二次取的值是2 （cdr lst）是3

但是我不明白后面还有那么多个无素为什么只取一个。

[LLXXZZ]vlisp 15:08:02

[qqimg]oldimg/{0AF89834-F9C6-4B1B-5D3A-EF53015D5B89}.jpg[/qqimg]
换个思路.完全不同的.

[xiaomm09]江湖 15:09:38

什么东东？

ya雀无声 15:14:01

发帖，群也会提示，？很高级，喜欢

[阿然][阿然] 15:17:19

用递归，一下就出来了

[simon8001][simon8001]随风 15:19:01

怎么个递归法？

[q530496591][q530496591]小菜鸟 15:19:04

我想学学表函数啊

[simon8001][simon8001]随风 15:19:26

阿然 您说说？

[q530496591][q530496591]小菜鸟 15:25:14

刚问了开心版主！指点得出的答案……

[lisp-study]jun 15:27:48

[qqimg]oldimg/{53B897FB-AE75-54E6-B2E8-99A30304BEF6}.jpg[/qqimg]这个划分的依据是啥子

[野狼谷]笨鸟 15:29:33

我还行把你这个逆向一下呢

[野狼谷]笨鸟 15:30:04

[qqimg]oldimg/{53B897FB-AE75-54E6-B2E8-99A30304BEF6}.jpg[/qqimg]
是够乱的，都没看明白划分规律

[lisp-study]jun 15:30:49

是啊 先要找到规律

[sqbao] 15:31:22

是遇到“1”就分段？

[simon8001][simon8001]随风 15:31:28

对

是这样的

[pzweng]路人 15:31:50

让表一直从小到大

[野狼谷]笨鸟 15:32:02

建议用vl-position

[simon8001][simon8001]随风 15:32:20

举例是这样的 不一定是1 可能是其他相同的元素即遇到相同的就分段

[q530496591][q530496591]小菜鸟 15:33:12

那就转换成实数。然后nth每一个表元素。

当表元素等于1时就合并前面的表

[simon8001][simon8001]随风 15:34:33

我卡注的位置就是如何合并前面的表而不影响后面的元素

[q530496591][q530496591]小菜鸟 15:35:39

思路我有……代码写的就不多！

[lisp-study]jun 15:41:01

[qqimg]oldimg/{BB7762F6-4FDB-2961-0117-7CA6B83A274B}.jpg[/qqimg]

[pzweng]路人 15:43:24

(defun XP:regrouplst (l)
  (if (cadr l)
    (cons (car l)
          (if (< (read (car l)) (read (cadr l)))
            (XP:regrouplst (cdr l))
            (cdr l)
          )
    )
  )
)

[simon8001][simon8001]随风 15:44:09

[lisp-study]jun您好！
您做的是我需要的

[simon8001][simon8001]随风 15:45:15

我在LISP编程里 没看到这样的命令呀？

[lisp-study]jun 15:45:36

自定义函数

[simon8001][simon8001]随风 15:46:02

如过方便的话 我可以看到您的程序吗？

[lisp-study]jun 15:46:20

给一个通用的

[qqimg]oldimg/{CCF06922-4F0F-F3DA-D518-AC3B125BB574}.jpg[/qqimg]

[simon8001][simon8001]随风 15:46:25

好

谢谢

[lisp-study]jun 15:46:35

[qqimg]oldimg/{27F62E66-85DA-CA63-26D5-7C9ECC6A444C}.jpg[/qqimg]

[pzweng]路人 15:47:48

这样没意思

[lisp-study]jun 15:48:11

....

[阿然][阿然] 15:48:25

jun的更通用

[pzweng]路人 15:48:29

假如N个，你岂不要搞死人

[pzweng]路人 15:49:22

1 2 3 2 3 4 5 1 7 9 6 7 9 4 9 1 3 2 6 4

[lisp-study]jun 15:49:31

多了换个思路撒 没必要一定要用这个来完成

[pzweng]路人 15:49:33

这样的话你就没辙了

[lisp-study]jun 15:49:42

不是一样的么

[阿然][阿然] 15:49:46

一样啊

[pzweng]路人 15:50:03

[qqimg]oldimg/{901FDBF4-55D4-B7CE-BF78-F02CDB3BDC59}.jpg[/qqimg]

这里不对

[阿然][阿然] 15:50:20

(= x 1)嘛

[lisp-study]jun 15:50:41

lambda是你自己写撒

[阿然][阿然] 15:50:44

这种甚至可以带误差的

1和1.001

[pzweng]路人 15:50:58

1 2 3 2 3 4 5 1 7 9 6 7 9 4 9 1 3 2 6 4 ->
((1 2 3) (3 4 5) (1 7 9) (6 7 9) (4 9) (1 3) (2 6) (4))

[lisp-study]jun 15:51:02

阿然懂的 呵呵

[阿然][阿然] 15:51:08

呵呵

jun这个函数确实很棒

[pzweng]路人 15:51:26

里面任何一个表都是从小到大

[lisp-study]jun 15:52:38

[qqimg]oldimg/{6E8BBB6F-01D8-CE42-7E88-24D6043B5ABA}.jpg[/qqimg]

[pzweng]路人 15:53:03

你这个只是判断1

表里面不是从小到大

[lisp-study]jun 15:53:48

晕 这种情况你就换函数撒 为啥非要一个函数来完成很多工作呢

[simon8001][simon8001]随风 15:54:08

不管怎么样 都很谢谢你们 谢谢！

[q530496591][q530496591]小菜鸟 15:54:58

群里的师兄们都很热心的

一出手必解决你的问题

[lisp-study]jun 15:55:32

阿然厉害 呵呵

[阿然][阿然] 15:55:57

我不厉害，你这个函数我写不出来

[q530496591][q530496591]小菜鸟 15:56:02

阿然厉害！很热心。呵呵

[阿然][阿然] 15:56:17

确实要好好学学这种写法，通用性大增

[lisp-study]jun 15:56:29

有问题找阿然

[q530496591][q530496591]小菜鸟 15:56:56

谁有空谁帮着解决一下嘛！

[simon8001][simon8001]随风 15:58:08

jun  您好 
如果我的元素本身也是个表呢？
比如(（"1""a")("3""4"）("5""a"）("6""7"）)  
还是遇到a就能划分为几个表 这个是我真正遇到的问题

划分为(（"1""a")("3""4"）("5""a"））（("6""7"）)

[simon8001][simon8001]随风 15:59:36

是这样的(（"1""a")("3""4"））（("5""a"）("6""7"）)刚才的错了

[ruirui9]睿睿哥 16:04:33

[qqimg]oldimg/{78143D2F-255D-8B9C-81E5-1DF70263CC42}.gif[/qqimg]

[pzweng]路人 16:06:01

[qqimg]oldimg/{17F13580-2D3D-6151-0EB4-F1E2974E9EFE}.jpg[/qqimg]

[mccad][MCCAD] 16:07:42

发小龙虾

明经快报

[pzweng]路人 16:18:10

阿然

写个递归的看看

(1 2 3 2 3 4 5 1 7 9 6 7 9 4 9 1 3 2 6 4) ->
((1 2 3) (3 4 5) (1 7 9) (6 7 9) (4 9) (1 3) (2 6) (4))

[【KAIXIN】] [【KAIXIN】]炫翔 16:19:15

[qqimg]oldimg/{1D7EC5AE-0AFA-57DD-8929-00B65DFA7FC7}.gif[/qqimg]

没有规律？

[pzweng]路人 16:19:45

表里面的表全是从小到大

[【KAIXIN】] [【KAIXIN】]炫翔 16:20:06

以前我崇拜递归
后来我发现递归只是一个传说

[pzweng]路人 16:20:19

传说

[elitefish]信 16:20:38

递归容易溢出

[pzweng]路人 16:20:56

有的时候必须用

[lisp-study]jun 16:21:17

我把以前的递归函数都改过来了

[【KAIXIN】] [【KAIXIN】]炫翔 16:21:18

没有必须

[【KAIXIN】] [【KAIXIN】]炫翔 16:22:24

理智的人[qqimg]oldimg/{F414D51C-1845-5402-32A9-B51E52231ABB}.gif[/qqimg]

[阿然][阿然] 16:22:40

递归只是传说

我现在也改了

好看不好用

表短了没问题

[q530496591][q530496591]小菜鸟 16:23:54

经常关注群里还是不错的！

虽然我常常潜水！

[【KAIXIN】] [【KAIXIN】]炫翔 16:24:14

[qqimg]oldimg/{21D9A6C2-40C3-63D2-33AA-DCA15FE04FA3}.gif[/qqimg]

[pzweng]路人 16:24:25

递归主要问题会是什么呢？

[【KAIXIN】] [【KAIXIN】]炫翔 16:24:34

都忙与工作 偶尔冒个泡

[阿然][阿然] 16:24:44

表长了以后会溢出

[【KAIXIN】] [【KAIXIN】]炫翔 16:24:53

递归 就函数自己调用自己

[阿然][阿然] 16:25:06

而且递归速度不快

[lisp-study]jun 16:25:14

支持楼上

[pzweng]路人 16:25:31

我还没遇到过会溢出现象

[阿然][阿然] 16:25:39

那是你的表不够长

不过一般都不会碰到那么长的表

[q530496591][q530496591]小菜鸟 16:26:37

代码也会写多一点吧？

我就懒人！能写得少一点绝不会写的多一点

[lisp-study]jun 16:28:01

主要是速度问题 我觉得

[q530496591][q530496591]小菜鸟 16:28:45

有贴子说过这类问题

[阿然][阿然] 16:31:02

就是速度和溢出两个问题，我上次发的链接就提这个问题

几个大佬讨论nth的事情

removenth

[q530496591][q530496591]小菜鸟 16:31:45

在明经么？

[pzweng]路人 16:33:07

(1 2 3 2 3 4 5 1 7 9 6 7 9 4 9 1 3 2 6 4) ->
((1 2 3) (2 3 4 5) (1 7 9) (6 7 9) (4 9) (1 3) (2 6) (4))
这样的话那怎么做

[【KAIXIN】] [【KAIXIN】]炫翔 16:33:12

一个程序 简单简单

有时;COMMAND 也快

比如:删除命令  就很快

[286168051]勤龙 16:33:55

在吗

[【KAIXIN】] [【KAIXIN】]炫翔 16:34:09

能不循环就不循环

在

[【KAIXIN】] [【KAIXIN】]炫翔 16:34:56

递归 就一直在循环 往死里循环[qqimg]oldimg/{F414D51C-1845-5402-32A9-B51E52231ABB}.gif[/qqimg]

[pzweng]路人 16:35:26

那只能循环了

[阿然][阿然] 16:36:10

循环能解决的就用循环，程序可读性也高

[阿然][阿然] 16:37:02

递归就是骗眼球的啦，别琢磨了

[pzweng]路人 16:37:16

我一直追求简洁呢

看来要改变一下了

明经快报

ya雀无声 17:03:13

笔记 ASSIST 会不会把 其他盘的东西全部删掉

明经快报

[pzweng]路人 17:28:40

_$ (setq lst (list 1 2 3 2 3 4 5 1 7 9 6 7 9 4 9 1 3 2 6 4 3 2 6 4))
(1 2 3 2 3 4 5 1 7 9 6 7 9 4 9 1 3 2 6 4 3 2 6 4)
_$ (regrouplst lst)
((1 2 3) (2 3 4 5) (1 7 9) (6 7 9) (4 9) (1 3) (2 6) (4) (3) (2 6))
_$

[yxp]小蜜蜂 17:29:50

。。。。这是什么数列

[pzweng]路人 17:31:56

从小到大

[pzweng]路人 17:33:22

(1 2 3 1 2 3 1 2 3)变成((1 2 3) (1 2 3) (1 2 3))

[yxp]小蜜蜂 17:33:43

表分割啊

[pzweng]路人 17:35:47

不是这样

要从小到大

[lisp-study]jun 17:35:53

@[pzweng]路人 用个mapcar就可以了  不用递归

[pzweng]路人 17:36:03

我用了whil

[pzweng]路人 17:40:32

可以了

[lisp-study]jun 17:43:11

[qqimg]oldimg/{1ED546D9-D588-6889-8EA0-06C66A3DBFBA}.jpg[/qqimg]

明经快报

[pzweng]路人 19:58:13

如何获得一个文件夹下的所有子文件夹

明经快报

[lisp-study]jun 20:12:36

vl-directory-files

[pzweng]路人 20:14:04

比如我要把C盘里所有的文件夹

包括所有的子文件夹

[lisp-study]jun 20:14:38

api

[pzweng]路人 20:15:06

啥意思

我想了只能用递归

[lisp-study]jun 20:18:24

......

论坛有个帖子 有个函数是专门取得文件路径的

[pzweng]路人 20:21:10

你有不

[pzweng]路人 20:25:34

弱弱问一下

什么是水刀拼花

[caoyin][caoyin] 20:26:47

石材切割

明经快报

[pzweng]路人 20:53:21

曹版，你有没有获得一个文件夹下的所有子文件夹的函数

[小伟jeny]小伟 20:54:38

递归

[pzweng]路人 20:55:23

不想用递归

[caoyin][caoyin] 21:01:43

递归是最好的方法

[pzweng]路人 21:02:03

记得你说过用while

能否给我借鉴一下

[野狼谷]笨鸟 21:10:20

[caoyin]  21:03:22
递归是最好的方法

但是递归不太好理解

一品缘 21:20:26

[qqimg]oldimg/{C688C847-8F20-B51D-CC17-495FFE72DCEB}.gif[/qqimg]
LISP高手中的高手

[雨的节奏][雨的节奏] 21:21:35

[qqimg]oldimg/{DE068692-2930-8E27-622F-E342C6D583E1}.gif[/qqimg]

[pzweng]路人 21:22:34

什么工具

[yarp]潜水 21:22:39

谁写的？

[pzweng]路人 21:22:45

这样就成了高手中的高手了？

一品缘 21:22:58

高手在民间啊

[pzweng]路人 21:23:16

什么工具

[yarp]潜水 21:23:18

真正的高手。

[pzweng]路人 21:23:30

这个要知道算法

一品缘 21:23:34

CAD插件，

[pzweng]路人 21:23:44

我知道是插件

把插件发来

一品缘 21:24:02

LISP

[pzweng]路人 21:24:17

让我试试

[236004]张牙舞爪 21:30:21

问下 这个进度条是用什么语言写的 》

[flytoday]过^-^客 21:33:04

这个牛B

[stoyer] 21:33:14

用VBA很简单。

[flytoday]过^-^客 21:34:55

你说说而已

[stoyer] 21:35:31

是的，我就说说！

[q530496591][q530496591]小菜鸟 21:36:32

[stoyer] 21:42:14

晃动着看

[vormittag]桔子 21:43:56

使劲晃

[野狼谷]笨鸟 21:44:31

[qqimg]oldimg/{C688C847-8F20-B51D-CC17-495FFE72DCEB}.gif[/qqimg]

这是最优化的下料排布吗？

能不能再省点材料呢？

尽量用心圆组合一起

[仲文玉][仲文玉]wygjx 21:49:06

[qqimg]oldimg/{F2CD5248-24E4-83CB-9BF1-EB209C228401}.jpg[/qqimg]

[野狼谷]笨鸟 21:57:49

谢谢[caoyin]

一品缘 22:04:01

这个也牛！！！！

[qqimg]oldimg/{F6138D69-8411-7265-DA66-12C6F9A0F575}.gif[/qqimg]

一品缘 22:05:19

为线切割做了不少贡献

[fsxm]飞诗 22:05:50

[qqimg]oldimg/{A47D639C-24E8-69BD-894A-F7AB7E58B6DB}.gif[/qqimg]

[pzweng]路人 22:06:19

这个不高

我这种菜鸟级别的也能做

一品缘 22:07:43

这个也不错，为线切割加的刀口使零件切割更精密

[pzweng]路人 22:08:34

你天天发这个图

一品缘 22:10:07

就是说我遇见了一个不起眼的庄稼汉，原来他是个民间高手！我感慨！

一品缘 22:11:29

就是说我遇见了一个不起眼的农家庄稼汉，50多岁头发花白，原来他可是个LISP的民间高手！我感慨！

一品缘 22:12:33

[qqimg]oldimg/{7BDDC390-AED7-974E-D16D-46152AAFBA33}.jpg[/qqimg]

一品缘 22:13:28

[qqimg]oldimg/{20C4D4B1-78BF-0EB5-B9CA-BC900000EF15}.gif[/qqimg]

[pzweng]路人 22:14:27

你说的是谁哦

[野狼谷]笨鸟 22:14:29

我感觉刚才那个弓形切块应该用这样的方式省材料：
[qqimg]oldimg/{FBA269EF-5C3C-EECF-9A59-370B96479264}.jpg[/qqimg]

[yarp]潜水 22:15:09

高手多半是不务正业的。

一品缘 22:15:55

我严重赞成[qqimg]oldimg/{20C4D4B1-78BF-0EB5-B9CA-BC900000EF15}.gif[/qqimg]

ya雀无声 22:15:56

菜鸟多半是不学无术的

明经快报

ya雀无声 22:39:51

谁有比较好的  文字对齐于线

[lisp-study]jun 22:42:57

探索者就有

ya雀无声 22:43:49

没有旋转90度 和180度的现在

选择

[lisp-study]jun 22:45:45

对齐要怎么旋转？

[pzweng]路人 22:46:00

lee-mac

ya雀无声 22:46:40

G版的 在UCS修改 的情况下好像会出错，

[alwtyp][alwtyp] 22:49:24

错误: 无法创建词典: 48 这个提示是个什么状况？

ya雀无声 22:53:45

怎么样才能把 实体加进去

[qqimg]oldimg/{D0105A47-EC2D-2D38-76C5-D7F5CDFCB148}.jpg[/qqimg]

[ZZXXQQ] 22:55:53

"HATCH,*LINE"

ya雀无声 22:58:32

恩

[ZZXXQQ] 22:59:09

"HATCH,SOLID"

ya雀无声 23:04:01

多谢ZZXXQQ前辈。

明经快报

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