2013-07-14 明经 AutoLISP 编程(102918348) 群聊记录：刚刚安装到我的三星S3了，打开很慢[face27.gif]

明经快报

[AMKYUD][AMKYUD]??? 00:06:29

刚刚安装到我的三星S3了，打开很慢

[qqimg]201307/{415B12FA-5FA1-9B64-1BA8-70010A79D28C}.jpg[/qqimg]

注册了一个用户

[AMKYUD][AMKYUD]??? 00:07:57

我是在多多软件站下载的

[500w008]500w008 00:08:28

今天收获满好 写了四个小软件

[qqimg]201307/{96EF250A-6CE0-4DBF-F3FA-1AE3F63DF6F7}.GIF[/qqimg]

[linshiyin2]大地 00:08:50

哥们们，如何把表保存为1,2,3,4,,,
,,,1,2,3,4

逗号分隔

[AMKYUD][AMKYUD]??? 00:09:07

在多多软件站下载的也还是要注册的，有点坑爹

[AMKYUD][AMKYUD]??? 00:09:53

c语言用的c4droid也是在软件站下载的，不过是免费的，也不要注册

[AMKYUD][AMKYUD]??? 00:12:07

现在才打得开

[linshiyin2]大地 00:15:08

各位，如何将文本文件1,2,3,4这行读取为表

[linshiyin2]大地 00:15:42

（"1""2""3""4"）

[qqimg]201307/{AFEC42BE-3534-D9E7-5805-175F80469AFD}.jpg[/qqimg]

[linshiyin2]大地 00:17:16

(setq str (read-line f))
读取完后，str如何变成一个表

[linshiyin2]大地 00:17:51

现在str为"1,2,3,4"

如何变成（"1""2""3""4"）

[pzweng][pzweng]路人 00:21:30

对每个字符提取呗

等于,就不入表

[linshiyin2]大地 00:28:41

问题是如何识别逗号

并且取其长度

[pzweng][pzweng]路人 00:30:08

substr

[linshiyin2]大地 00:30:44

它返回的是第一个

[pzweng][pzweng]路人 00:31:17

strlen

[linshiyin2]大地 00:31:28

你的意思是取出第一，然后卡卡掉

然后接着取下一个？

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

strlength吧

[linshiyin2]大地 00:32:50

没用啊

每节的字符串数目不定

[pzweng][pzweng]路人 00:33:26

while

[pzweng][pzweng]路人 00:35:19

用while循环

[linshiyin2]大地 00:36:30

所以啊，我昨晚上说，哪位大神做个函数，读取[qqimg]201307/{AFEC42BE-3534-D9E7-5805-175F80469AFD}.jpg[/qqimg]为 一个表（"1""2""3""4"）

[AMKYUD][AMKYUD]??? 00:37:17

好像早就有了吧

[pzweng][pzweng]路人 00:37:23

嗯

论坛里也有

[linshiyin2]大地 00:37:40

csv可以直接用excel编辑，不很爽吗，自己定义的dat数据格式比较混乱，用excel编辑比较容易，不容易出错

[linshiyin2]大地 00:38:32

我现在用的数据格式一大堆，想起来用什么格式就用什么格式，有括号，有逗号，有引号，太麻烦了

路人搞搞，整出个函数来？或者给个链接

[pzweng][pzweng]路人 00:39:10

等会

现在有事

[linshiyin2]大地 00:39:42

干吗呢？玩呢？

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

3p

[linshiyin2]大地 00:40:08

够h啊

[AMKYUD][AMKYUD]??? 00:40:34

[linshiyin2]大地 00:43:09

妈妈咪啊，估计要等半小时吧

[pzweng][pzweng]路人 00:43:19

哈哈

上面就是

[linshiyin2]大地 00:44:57

不行，我要求，逗号间隔字符串没有任何限制，

可以是空，可以是数字和字符或者是字母

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

你加个条件就是

[pzweng][pzweng]路人 00:46:50

(member (car str) delim))这句

[linshiyin2]大地 00:47:55

没有注释的程序真不愿意看啊

我试着改改

你们玩了？

[pzweng][pzweng]路人 00:48:15

用whacth

[linshiyin2]大地 00:52:20

vl-string->list啥意思啊

[pzweng][pzweng]路人 00:52:36

查函数

[AMKYUD][AMKYUD]??? 00:52:41

字符串变成表

[linshiyin2]大地 00:53:14

那个翻译应该让你写

[AMKYUD][AMKYUD]??? 00:53:45

将字符串转换为字符ASCII代码表

[aroom]aroom 00:54:12

[qqimg]201307/{35E4707A-D771-1111-9594-BD3756027FB3}.jpg[/qqimg]

[AMKYUD][AMKYUD]??? 00:54:23

你问的是 vl-string->list

[linshiyin2]大地 00:55:00

[qqimg]201307/{4CB7D59E-9352-FA2A-A9CB-407AEF5D8997}.jpg[/qqimg]

[AMKYUD][AMKYUD]??? 00:55:12

查的却是 vl-list->string 

[linshiyin2]大地 00:55:23

[AMKYUD][AMKYUD]??? 00:55:33

下面也用到了

[linshiyin2]大地 00:56:37

这个函数比较爽，字符串格式是怎样的

[qqimg]201307/{35E4707A-D771-1111-9594-BD3756027FB3}.jpg[/qqimg]

会丢信息啊，比如空

[aroom]aroom 00:57:50

[qqimg]201307/{D4774843-0DCB-357C-3C94-2B49B7EF5A24}.jpg[/qqimg]

[aroom]aroom 00:58:20

字符串格式自己定义

[aroom]aroom 00:59:12

分隔符可以用正则表达式

[linshiyin2]大地 00:59:35

split啥函数啊

自定义的？

[aroom]aroom 00:59:58

恩 

[linshiyin2]大地 01:00:10

[linshiyin2]大地 01:01:57

(vl-string->list  string)
只能对数字，我要求所有的字符

[lisp-study]jun 01:02:38

你举个例子

[aroom]aroom 01:02:53

[qqimg]201307/{43362D32-B6D5-0D96-4735-049464E995F3}.jpg[/qqimg]

[linshiyin2]大地 01:03:42

1,2,3,4
1,2,3,4
a,b,c,d
你,我,,他

[linshiyin2]大地 01:04:18

p,2p,3p,4p

[linshiyin2]大地 01:05:42

每读一行读取为
带括号的
（"1""2""3""4"）

表

[aroom]aroom 01:06:14

(map (lambda (x)(split x)) (split [text]1,2,3,4
1,2,3,4
a,b,c,d
你,我,,他
p,2p,3p,4p[/text] " "))

[qqimg]201307/{A4F887A4-096D-B25C-E6CA-6D4FAFD0B06E}.jpg[/qqimg]

[linshiyin2]大地 01:06:34

每读取一行取得字符串为"1,2,3,4"

[linshiyin2]大地 01:07:31

逗号不要，逗号是每个字符串的间隔符号

[aroom]aroom 01:08:48

(map (lambda (x)(split x ",")) (split [text]1,2,3,4
1,2,3,4
a,b,c,d
你,我,,他
p,2p,3p,4p[/text] " "))

[qqimg]201307/{CAF9F741-CEC6-3D65-FA6B-FA1E6DABB22D}.jpg[/qqimg]

[linshiyin2]大地 01:09:42

比较合格

[linshiyin2]大地 01:10:18

就是你发的是伪码，逗我玩？

[pzweng][pzweng]路人 01:11:09

晕死

你我太搞笑了

[pzweng][pzweng]路人 01:15:22

你要把刚才那个函数放在一起

[linshiyin2]大地 01:18:21

它定义的是这个鸟函数split

[linshiyin2]大地 01:21:39

哥哥呀，我要的是任何字符串都行的，以逗号隔开的

这个只能数字

[pzweng][pzweng]路人 01:22:18

你的表是什么样子

什么东西区分

举个例子

[linshiyin2]大地 01:22:48

[qqimg]201307/{D4427EDD-8BB5-3F9F-3F48-3DAFE0F4D7DE}.jpg[/qqimg]

日，好像行啊

这个函数很好，可以

[pzweng][pzweng]路人 01:24:02

自己不理解

[linshiyin2]大地 01:24:30

[qqimg]201307/{CCFFF64B-0BD6-D765-FA28-9FB0FF868D04}.jpg[/qqimg]

[pzweng][pzweng]路人 01:24:43

这样不行

汉字不行

[linshiyin2]大地 01:25:21

就是要的这个效果

[pzweng][pzweng]路人 01:25:22

分隔符不能是汉字

[linshiyin2]大地 01:25:42

我只要求分隔符是逗号就可以了

[linshiyin2]大地 01:26:24

[qqimg]201307/{5A65ABD9-B714-ADE3-FF93-275835DAE77A}.jpg[/qqimg]

[linshiyin2]大地 01:28:46

还要在返回去，表变成逗号分隔的字符串

日

[pzweng][pzweng]路人 01:30:07

你的表会有这种情况？

[linshiyin2]大地 01:30:40

我一会看看，我需要写入文件数据，

[linshiyin2]大地 01:31:11

我的意思是现在数据格式统一一下，都以半角逗号分隔

以前的数据太乱

[pzweng][pzweng]路人 01:34:13

你用excel替换一下嘛

[linshiyin2]大地 01:35:21

要的就是这个效果，原来的只能自己先修改了，以后数据巨多了后才能方便修改，在程序里修改或者用ｅｘｃｅｌ修改

[pzweng][pzweng]路人 01:37:39

有好几种方法

[linshiyin2]大地 01:38:14

再来说说看

[pzweng][pzweng]路人 01:39:17

比如(1,2+3>4)->("1" "2" "3" "4")

[linshiyin2]大地 01:40:19

用此函数？

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

要改一下

这里就是改一下判断

我公司里有这样函数

[linshiyin2]大地 01:41:13

(not (member (car str) delim))加几个ｏｒ？

[pzweng][pzweng]路人 01:41:21

不是

不用member

[linshiyin2]大地 01:41:46

ｍｅｍｂｅｒ针对是表

[pzweng][pzweng]路人 01:42:06

wcmatch

[linshiyin2]大地 01:42:10

好像有字符串

对，这个函数可以加几个条件

呵呵，

[pzweng][pzweng]路人 01:42:56

嗯

[linshiyin2]大地 01:43:17

好了基本讨论到家了，如果用ｗｃｍａｔｃｈ成为万能的了

后面分隔符号可以有多个

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

把你想要的分隔符号加进去就是

[linshiyin2]大地 01:44:59

我记得就是这个函数，开始用member，后来才知道这个函数可以多条件，解决了我不小的一个难的题

[pzweng][pzweng]路人 01:45:18

睡去了

[linshiyin2]大地 01:45:30

好像是在对表格内容分类的问题上

[weiqi]weiqi 01:45:41

[qqimg]201307/{8FE55752-45FE-4824-4A46-5504FB42D117}.gif[/qqimg]

[linshiyin2]大地 01:45:57

一个数据有两个属性，如何分类排列

用的就是这个函数

[pzweng][pzweng]路人 01:46:22

你在这么群呆了这么长时间这种函数应该没问题写吧

[linshiyin2]大地 01:46:59

唉，我只搞搞皮毛，用到了就写写自己的程序，都不精通的

[linshiyin2]大地 01:47:39

本职工作和编程一点关系都没有，都是偷着自己搞的，兴趣使然

[pzweng][pzweng]路人 01:47:46

这个属于基础

[pzweng][pzweng]路人 01:48:23

我记得我接触lisp两个月左右就可以写得出来

[linshiyin2]大地 01:48:27

所以啊，才群里说说请人指点，好友就是，时间长了就忘记了

[pzweng][pzweng]路人 01:48:40

lisp语法简单易懂

我也好长时间没写东西

[linshiyin2]大地 01:49:00

是的，这倒是

[pzweng][pzweng]路人 01:49:02

但是思路总是知道的

[linshiyin2]大地 01:49:14

刚接触那会，觉得函数太多了

[pzweng][pzweng]路人 01:49:19

只是要查函数

经常写就查函数少些

[linshiyin2]大地 01:49:36

思路是方向，动力

明经翻译必备啊

[linshiyin2]大地 01:51:07

就这个wcmatch函数，一开始用member写了巨多的条件代码，后来简单的一句解决，

[pzweng][pzweng]路人 01:53:04

你慢慢弄吧，我睡去了

[linshiyin2]大地 01:53:38

晚安，再弄会写入，读取没有问题了

明经快报

[tiyi8888]永远D痛 06:18:18

http://user.qzone.qq.com/334582848/infocenter#!app=2&via=QZ.HashRefresh&pos=1373753080

明经快报

[zark]虚心请教 09:58:58

明经快报发的网址打不开

明经快报

[Casa小宝]Cas 11:01:47

好像是所有网址都打不开了

[Casa小宝]Cas 11:03:34

噢，可以了

明经快报

[csc123456]顽强 11:20:45

自己弄的快捷键菜单不见了，怎么弄出来呀

明经快报

12:12:54

op

明经快报

[500w008]500w008 15:27:07

(defun entmod_tx ( pto pt2 ent_x / )
(if pto
  (progn
    (setq ang_pto (angle pt2 pto))
    (setq newp (polar pt2 ang_pto 150))
    (setq  npp (list (car newp) (cadr newp)))
    (subst (cons 10 npp) (assoc 10 ent_x) ent_x)
    (entmod ent_x)
  )
 (princ)
)

[qqimg]201307/{F2EDBD0E-CCD7-7BBF-E250-A7F39861CCB2}.jpg[/qqimg]

[500w008]500w008 15:29:30

(defun entmod_tx ( pto pt2 ent_x / )
(if pto
  (progn
    (setq ang_pto (angle pt2 pto))
    (setq newp (polar pt2 ang_pto 150))
    (setq npp (list (car newp) (cadr newp)))
    (subst (cons 10 npp) (assoc 10 ent_x) ent_x)
    (entmod ent_x)
  )
 )
 (princ)
)

有没逻辑错误 请高手看下

[500w008]500w008 15:39:27

[qqimg]201307/{736C1BFA-A59D-810B-9159-6109CBF49B7E}.jpg[/qqimg]

[pzweng][pzweng]路人 15:46:34

错了

[500w008]500w008 15:47:20

错字哪里

[qqimg]201307/{980379FC-0338-A987-57CE-D2702BBEFFDC}.jpg[/qqimg]

[kwok][ww5w]行舟月下 15:50:53

好多呀，看一下哪里少了括号先

[286168051]勤龙 15:51:20

。

[500w008]500w008 15:53:00

repeat 这个函数少了一个括号 其他没少

[xiaomm250][lisp_](car (entsel)) 15:53:32

难道不能把所有的lisp代码写在一个文件夹里面吗?

[500w008]500w008 15:53:49

[qqimg]201307/{91AE7D65-5E97-C37F-47D1-1C543EFD8A1D}.gif[/qqimg] 慢慢调试 这个不急

就是在一个文件夹里 我一个一个摘出来 测试

用CAD自带的 方便很多 效率高多了

[286168051]勤龙 15:56:40

CAD二次开发培训招生,绝对真实可靠,开发13年了CAD希望和大家分享,还差最后36人 有群为证,希望大家报名

联系人 徐老师,非诚勿扰

[500w008]500w008 15:57:05

学费多少钱

[qqimg]201307/{91AE7D65-5E97-C37F-47D1-1C543EFD8A1D}.gif[/qqimg]

我这种带基础的 能优惠吗

[286168051]勤龙 15:57:33

学费仅需300元 如有假冒 天打雷劈

[500w008]500w008 15:57:52

在那里授课

[286168051]勤龙 15:58:04

网上

[500w008]500w008 15:58:19

还不如 把你资料 做成视频

[286168051]勤龙 15:58:21

[qqimg]201307/{00484A4D-2E69-64D0-A4F0-5288140CD80D}.jpg[/qqimg]

就是视频教学

[500w008]500w008 16:00:08

其实也没啥好写了 先自己摸索两年 业余

[qqimg]201307/{B0B89C65-310D-C892-1152-B72FA2E736ED}.GIF[/qqimg]

[286168051]勤龙 16:00:43

呵呵 随意

[500w008]500w008 16:02:08

以后帮我写个复杂的 我给300 [qqimg]201307/{91AE7D65-5E97-C37F-47D1-1C543EFD8A1D}.gif[/qqimg]

[286168051]勤龙 16:02:18

我不是写程序

我教大家技术

[water_system][mingdi]shenshen 16:02:44

什么技术

[kwok][ww5w]行舟月下 16:02:49

教你怎么写技术

[286168051]勤龙 16:03:30

[qqimg]201307/{E9948E71-AB79-7187-98E6-36F902B9243D}.jpg[/qqimg]

随便质疑能怎么样呢?我身为ARX的版主 认为有必要教会大家

[water_system][mingdi]shenshen 16:04:47

哦！速成的可以考虑去试试。

[flytoday]过^-^客 16:05:08

300便宜

[286168051]勤龙 16:05:35

opendcl 我也整理了一下

现在的进度是ARX的所有帮助包括MAP arxsdk已经翻译完毕

后期校对中

[flytoday]过^-^客 16:06:07

很便宜……但是哥我只会点…cad能学会不

[286168051]勤龙 16:06:14

opendcl的帮助文件也快翻译完了

[aroom]aroom 16:07:17

用 Lisp 语法写 .NET

[286168051]勤龙 16:07:37

LISP现在的处境比较尴尬

很上手的去学,但是现在一些东西濒临着暴露

[xiaomm250][lisp_](car (entsel)) 16:07:52

有啥尴尬的?

[aroom]aroom 16:07:58

不用 arx ，和 autoLisp 一气呵成

[286168051]勤龙 16:08:35

.net固然简单易学 但是代码的安全性和一些东西仍然不是很稳定

[500w008]500w008 16:09:24

C+容易学吗 估计活到老 学到老了 努力成为一个核潜艇[qqimg]201307/{91AE7D65-5E97-C37F-47D1-1C543EFD8A1D}.gif[/qqimg]

[286168051]勤龙 16:09:38

。。。。。。

[500w008]500w008 16:09:38

奶奶的 辛辛苦苦 钱都到外国了

[286168051]勤龙 16:09:43

什么意思

[500w008]500w008 16:10:11

小邓不是带走一千亿美元吗

[286168051]勤龙 16:10:24

vb 彻底淘汰了

OPENDCL 是基于ARX写的一套用户界面工具 由AutoLISP调用

[500w008]500w008 16:13:10

[qqimg]201307/{91AE7D65-5E97-C37F-47D1-1C543EFD8A1D}.gif[/qqimg] 群里就应该组建技术联盟 中国最大的技术党派 把带出去的钱 全部搞回来 群里兄弟一人分一亿

[qqimg]201307/{B0B89C65-310D-C892-1152-B72FA2E736ED}.GIF[/qqimg]

[aroom]aroom 16:13:35

;;; HelloWorld.lsp

(using System)
(using System.Drawing)
(using System.Windows.Forms)

;; 生成一个Form窗体实例
(setq form1 (new Form))
(form1.ShowDialog)

[aroom]aroom 16:14:10

代码简洁 

[Chpmould]Bluebird 16:14:56

这是什么？

[dcl1214]昌立 16:15:03

高级语言

[286168051]勤龙 16:15:07

呵呵 写吧

[dcl1214]昌立 16:15:17

很想学，怕接受能力有限

[Chpmould]Bluebird 16:15:20

什么语言

[dcl1214]昌立 16:15:25

也担心老师的时间有限

[286168051]勤龙 16:15:54

本人今年起到明年年底准备培训

后年彻底退出

[aroom]aroom 16:16:22

;;;; 生成一个Button按钮实例
(setq button1 (new Button))
;;;; 设置按钮button1的Text属性值
(setq button1.Text "按钮")
;;;; 把按钮窗体添加到窗体中
(form1.Controls.Add button1)

[pzweng][pzweng]路人 16:16:32

后年大把间

[aroom]aroom 16:16:54

;;;; 定义事件响应函数
(defun.net button1__Click (sender eventArgs)
    (MessageBox.Show "you click button!" "Click" MessageBoxButtons.$OKCancel MessageBoxIcon.$Question)
)
(defun.net form1__Click (sender eventArgs)
    (setq form2 (new Form))
    (form2.Show)
)

[Chpmould]Bluebird 16:17:03

这是什么语言？

[aroom]aroom 16:17:14

Lisp

[Chpmould]Bluebird 16:17:32

(form2.Show)

[500w008]500w008 16:17:37

LSP语言 还是有很大的空间

[pzweng][pzweng]路人 16:17:38

看不懂

[Chpmould]Bluebird 16:17:57

LISP有.Show属性吗?

[500w008]500w008 16:18:00

建筑设计 机械设计  模具 平面 很多行业都涉及

[286168051]勤龙 16:18:45

呵呵 那个我想是调用函数库而已

[pzweng][pzweng]路人 16:19:11

调用了.show控件

[Chpmould]Bluebird 16:19:56

LISP没有.show控件吧？

[286168051]勤龙 16:20:21

这个啊

呵呵

如果有参加我的培训的人员 可以联系我 如果不满意随时可以举报

[Chpmould]Bluebird 16:21:07

简单的东西反而变得复杂了

[aroom]aroom 16:21:31

.show 不是控件 是方法

(setq a (new Form))

[Chpmould]Bluebird 16:21:55

.show应该是LISP混合其它的语言吧

[aroom]aroom 16:21:59

(a.show)

a 是控件对象

[Chpmould]Bluebird 16:22:20

有点象NET的味道

[pzweng][pzweng]路人 16:22:39

此人是个高手

[aroom]aroom 16:22:40

就是 .NET 呀

.NET CLR 支持各种语言

[Chpmould]Bluebird 16:23:11

NET写函数LISP调用？

[soly2006]季鸟 16:23:15

相关书少了

[aroom]aroom 16:23:33

我把 Lisp 语法加到里面 让 CLR 执行

[286168051]勤龙 16:23:42

呵呵 还好

[Chpmould]Bluebird 16:24:06

那不直接用NET更好，还要这样混合呢?

[LC100]建筑设计 16:24:07

这里面好多都是lisp的老师

混合有混合的好处。

[Chpmould]Bluebird 16:24:39

简单的东西反而变得复杂了

也不利于维护

[aroom]aroom 16:25:31

和 vlisp 一样，所以 acad 版本 共享一个 dotnet.dll

[soly2006]季鸟 16:25:53

看来得把dcl,odcl,vba,干掉

[aroom]aroom 16:26:17

不像 arx，版本不同 需要编译不同的dll

[286168051]勤龙 16:26:29

这个看着还行

[flytoday]过^-^客 16:27:08

[image=8F1D0832546BA7BAA7A56D3131414F6D.gif]

[Chpmould]Bluebird 16:27:39

你这种方法能在NET中写LISP程序吗?

[aroom]aroom 16:28:24

可以

[aroom]aroom 16:30:21

QQ群： 7326594 有共享下载

[Chpmould]Bluebird 16:33:15

有实例不

还需要第三方插件不？

[aroom]aroom 16:34:49

不需要

[VBALISPER]恐龙 16:35:03

需要第三方主件.

[Chpmould]Bluebird 16:35:20

有操作实例不

需要第三方主件?

什么主件？

[VBALISPER]恐龙 16:36:00

[Chpmould]Bluebird 16:36:27

那不是折腾？

明经快报

[邹锋]Tony 16:56:44

在？

[邹锋]Tony 16:57:32

我有一个字符串，我还有一个字符串表，怎样判断，它是字符串表中的第几个

[邹锋]Tony 16:58:27

因为太多了，几乎有三四十个。一个个去写，麻烦

[aroom]aroom 16:59:01

举个例子

[邹锋]Tony 16:59:21

好

[邹锋]Tony 16:59:53

(setq aa "你好")

[邹锋]Tony 17:00:49

(setq pl (list "村4" "村3" "村2" "村1" "你好" "村0"))

[邹锋]Tony 17:01:53

(setq n (aa在pl中是第几个))

[aroom]aroom 17:02:17

[qqimg]201307/{5732029E-9091-4C3B-A92E-E78E3F23B173}.jpg[/qqimg]

[邹锋]Tony 17:04:42

find[qqimg]201307/{E6B60DF7-C093-0222-9D37-32F2C881B480}.jpg[/qqimg]

我不知是其他第几个，想判断出来，

[286168051]勤龙 17:06:13

呵呵

[邹锋]Tony 17:06:59

因为图里面是中文的，现在我要自动 判断出它是什么字，再转成英文

[邹锋]Tony 17:10:19

[qqimg]201307/{7999697F-77DF-E299-7C2D-4CF50B56182A}.jpg[/qqimg]

感觉这样很慢，

而且要一个个去判断

[vormittag]桔子 17:12:34

[邹锋]Tony 17:13:03

桔子兄有没更好方法

[vormittag]桔子 17:13:10

如果是一一对应的形成点对表索引。

[邹锋]Tony 17:13:27

是对应的

[邹锋]Tony 17:15:50

用assoc吗

[邹锋]Tony 17:17:17

明白

[VBALISPER]恐龙 17:25:14

为什么QQ传文件,有时有续传功能,有时没有?

[邹锋]Tony 17:26:27

文件被移走了

不在那个文件夹，或者对方那的文件不在那文件夹

[VBALISPER]恐龙 17:28:48

不是.某一次可以续传.今天又不行.

各是一个文件.

前几天,可以.今天又不行.

[邹锋]Tony 17:29:33

那就不明白了，

[VBALISPER]恐龙 17:30:19

大部分时间都不可以,前几天,有一次可以.奇怪得很哦.我以为现在都有续传功能了呢

[邹锋]Tony 17:30:38

有啊，

传给你的时候也有，群空间也有

[VBALISPER]恐龙 17:31:18

哦.不懂啊.我现在给别人传就没有

[286168051]勤龙 17:33:35

http://www.cnblogs.com/junqilian/p/3180664.html

培训地址

[邹锋]Tony 17:37:54

有没有好用的LISP导出图形源码

我弄个很笨，很慢，

[500w008]500w008 17:38:49

lambda 是不是 要比 REPEAT快很多

[aroom]aroom 17:39:22

lambda 是 函数定义呀

[aroom]aroom 17:39:59

repeat 是循环表达式

[vormittag]桔子 17:40:13

[邹锋]Tony 17:40:39

我用的是WBOLCK然后再UNDO一次，

有没有更好方法

明经快报

[邹锋]Tony 18:59:44

谢谢各位，

[qqimg]201307/{A43F2F5A-1C6B-9DC1-9C33-2F30DE81D4F1}.jpg[/qqimg]

成功导出

[qqimg]201307/{22207AE7-D8F8-FDC0-D3E3-D22DC9D5668E}.jpg[/qqimg]

明经快报

[邹锋]Tony 20:06:05

把一个图形全删除了，有1M左右 ，用UNDO快还是用OOPS快

还原回来

[ZZXXQQ] 20:06:44

OOPS

[zark]虚心请教 20:06:48

没比较过

[ZZXXQQ] 20:06:53

只能一次

[邹锋]Tony 20:06:58

知道，

[pzweng][pzweng]路人 20:07:22

用秋枫打印

[邹锋]Tony 20:07:58

我一个图形，用了WBOLCK，把它导出了，下一步就把它还原，想用个快一点的方法

[pzweng][pzweng]路人 20:08:17

undo吧

[邹锋]Tony 20:08:26

秋枫打印没源码，我打印出去后，我还要改名，

[pzweng][pzweng]路人 20:08:40

你要改什么名字

已经有现成的了

罗晓峰的分图程序

[邹锋]Tony 20:09:21

论坛有？

[zark]虚心请教 20:09:23

[qqimg]201307/{7C1E6532-66AB-F618-49FA-7CB8E9E80409}.jpg[/qqimg]

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

嗯

[zark]虚心请教 20:09:34

图标老是这样，怎么处理呢

[邹锋]Tony 20:09:43

或者我只是要其中一些函数够了

[qqimg]201307/{4033B8A4-FE96-8B53-9B4A-DBDC9E9D6706}.jpg[/qqimg]

[邹锋]Tony 20:10:52

我把图框全导出去，用英文为文件名，因为是出口模具，外国人不认识中文，所以要改英文

[pzweng][pzweng]路人 20:11:23

这个应该容易吧

可以批量

[LC100]建筑设计 20:11:52

那叫他们英化啊

[pzweng][pzweng]路人 20:12:02

你在用燕秀吧

汉化

[LC100]建筑设计 20:12:20

他们进口过来的软件，我们都汉化了。我们出口的要他们英化。

[邹锋]Tony 20:13:17

你会汉化一个软件吗？毕竟少数，

[aroom]aroom 20:13:28

可以 autoLisp 没有 Object 对象

[LC100]建筑设计 20:14:05

简单的可以汉化。复杂的就不错的啦啦。

[aroom]aroom 20:14:27

都用 dot-pair 的话，不自然

[LC100]建筑设计 20:14:41

或者叫他们安装有金山快译

[pzweng][pzweng]路人 20:14:55

有道

[aroom]aroom 20:16:02

object: key - value 是很好的

[aroom]aroom 20:16:33

什么东西都用 list 来模拟，不是好事

[LC100]建筑设计 20:19:36

用手画才不是好事。

[LC100]建筑设计 20:20:42

在这里的估计没几个程序员。我们要不是设计的就是模具的。没理由个个都精通好几门语言。要是都精通了，还不如直接转行做程序开发的算了。

[aroom]aroom 20:21:07

该 hash 的就用 hash

[ZZXXQQ] 20:22:55

好象本人考过高级程序员，不过是20多年前的事了

[LC100]建筑设计 20:23:48

Z版是程序员？

太牛B
了

[pzweng][pzweng]路人 20:24:14

改行了

[邹锋]Tony 20:24:18

以前的人学过电脑的话都要考证的

[zark]虚心请教 20:24:20

有没有取得计算机的高级职称？

[ZZXXQQ] 20:24:28

没改行

[286168051]勤龙 20:24:31

[pzweng][pzweng]路人 20:24:33

Z版现在化工机械了

[LC100]建筑设计 20:24:52

程序员好赚钱哦。要不然Z版不会觉得第二套房完全没压力。

[ZZXXQQ] 20:24:58

不是，在做机床

[zark]虚心请教 20:25:05

Z版可以去搞原子弹二次开发[qqimg]201307/{2E311005-486D-9ECB-24A1-F80905B04B75}.gif[/qqimg]

[LC100]建筑设计 20:25:11

原子弹是么子程序？

[pzweng][pzweng]路人 20:25:33

数控机床？

[ZZXXQQ] 20:25:39

那是不可能的，没人用你呀

[pzweng][pzweng]路人 20:25:49

不要写程序吧

[ZZXXQQ] 20:25:53

是数控机床

[zark]虚心请教 20:26:29

中国数控机床用的硬件是不是基本都是进德日的？

[ZZXXQQ] 20:27:02

数控系统大多是的

[zark]虚心请教 20:27:20

比如好点的钻头

[ZZXXQQ] 20:27:45

这也是没办法的事。用户要求配什么系统就得给人家配什么系统

[邹锋]Tony 20:28:14

现在机床都是电路版什么的，核心部件，进口，其他国产的

[ZZXXQQ] 20:30:00

国产系统不是没有，是用户不认可。系统厂商的路还很长

[邹锋]Tony 20:31:23

是的，

你做什么机床的？

[pzweng][pzweng]路人 20:31:48

http://yunpan.cn/QtGTEbiAmVZKg

[ZZXXQQ] 20:31:55

目前做磨床

[邹锋]Tony 20:31:59

我公司买的机床都是在北京组装的