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

明经快报

[ZZXXQQ] 04:00:18

ssname

明经快报

【7299969】人生 08:33:42

密聊吧，别再群里发了

明经快报

[ds-limt]-厨师木 09:53:42

怎么找到离指定点最近的图元？

[alwtyp][alwtyp] 09:55:32

为什么不在明经上直接搜索呢

[ds-limt]-厨师木 09:55:47

想试试

[ds-limt]-厨师木 09:56:54

大家给个思路？

[夏生生][x_s_s_1]生无可恋 09:57:58

画圆切选，选到多个缩小圆直径

[小伟jeny]小伟 10:04:05

慢吧

[夏生生][x_s_s_1]生无可恋 10:06:56

我是没别的思路了

明经快报

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

那位有alisp写的类似vl-sort的函数

[野狼谷]笨鸟 10:29:42

什么意思？vl-sort与lambda一起使用

[夏生生][x_s_s_1]生无可恋 10:30:35

R14仿佛没有vl-sort函数

[野狼谷]笨鸟 10:34:32

你加载vl-load-com

不行就用高一点版本

[【KAIXIN】] [【KAIXIN】]炫翔 10:39:35

循环判断 < >

明经快报

[pzweng]路人 11:01:10

[qqimg]oldimg/{42308C82-CA1B-E408-921D-AF43274B864B}.jpg[/qqimg]
如何把文字空格处断开

[蔡__洛]不快乐 11:01:39

写了半年的lisp 今天回去看c++真心觉得那时候面向对象的编程是真是天堂啊！！！

[雨的节奏][雨的节奏] 11:01:54

这个好像容易、、

[pzweng]路人 11:03:30

谁有文字空格处断开的程序

借用一下

[雨的节奏][雨的节奏] 11:04:38

我之前知道怎么弄，可是忘记了

[pzweng]路人 11:04:58

现在急着用，没时间写

[雨的节奏][雨的节奏] 11:05:30

我找一下哈

你是要把1000，断成四个字1 0 0 0 吗

[pzweng]路人 11:05:48

多谢了

[蔡__洛]不快乐 11:05:51

这个功能 Expresstools里面有

[pzweng]路人 11:05:53

不是

文字有空格的地方断开

[雨的节奏][雨的节奏] 11:06:18

就是不连续的地方就断开是吗

[pzweng]路人 11:06:26

比如1000×2000 变成1000与2000

断开的字符为×

[蔡__洛]不快乐 11:06:51

啊？ 你不是说是空格么？

[pzweng]路人 11:06:55

字符可以自己定义

[雨的节奏][雨的节奏] 11:06:55

这个弄到EXCEL里面很容易啊

你导出到EXCEL里面弄吧

[pzweng]路人 11:07:06

可以是空格也可以是指定

EXCEL怎么弄

[雨的节奏][雨的节奏] 11:07:31

EXCEL里面有分这个功能的

[pzweng]路人 11:07:46

怎么弄说呀

[雨的节奏][雨的节奏] 11:08:02

我弄个演示给你看一下吧

[pzweng]路人 11:08:57

好了

我找到了

EXCEL太强了

但是批量就不爽了

还是有程序最爽了

[雨的节奏][雨的节奏] 11:09:44

[pzweng]路人 11:09:52

有时间我写一个

[VBALISPER]恐龙 11:10:04

EXCEL用什么函数?

[snowblade]逍遥 11:10:07

用excel的vba弄一下就行了 not big deal

[雨的节奏][雨的节奏] 11:10:10

我看能不能写一个

EXCEL直接带分列功能

从空格处分开就行了

[snowblade]逍遥 11:10:48

存成文本 直接打开就行了 按x分列

[VBALISPER]恐龙 11:10:55

导入的时候吗?

哦.可能明白了

[pzweng]路人 11:11:05

EXCEL对表处理真是太强了

[qqimg]oldimg/{6AE7B705-CE5C-5EE2-91B3-B3E76032AB28}.jpg[/qqimg]

分列

[snowblade]逍遥 11:11:37

excel 你把命令写好 粘贴到cad里也可以做到批处理

[pzweng]路人 11:11:45

要是精通EXCEL会省好多事

哎，学不完呐

偏爱云~小吴 11:12:12

精通二字谈何容易

[pzweng]路人 11:12:18

[qqimg]oldimg/{A00B9C3A-0F28-3EE2-2C66-FEA2A4186C13}.jpg[/qqimg]

[snowblade]逍遥 11:12:19

它不就是数据库吗 感觉没啥好精通的

偏爱云~小吴 11:12:42

我还想精通lisp 呢

【7299969】人生 11:12:50

用c二次开发简单吗

[pzweng]路人 11:12:52

look,.这就是EXCEL分列设置界面

偏爱云~小吴 11:13:10

哎,学了半年没啥进步

可怜

[snowblade]逍遥 11:13:35

用vb也很好搞 只要你对齐列读入写到表里就完了

【7299969】人生 11:14:14

自己学，没人教

偏爱云~小吴 11:14:50

是的,看看视频,研究下别人的写法

[pzweng]路人 11:14:53

lisp简单

上手快

[snowblade]逍遥 11:15:01

老版本有个窝火 2003以下只能读取65535行

[pzweng]路人 11:15:19

这么多行还不够你用的？

偏爱云~小吴 11:15:21

一直不得要领,函数太多学不过来

[VBALISPER]恐龙 11:15:33

65535基本够用了

[雨的节奏][雨的节奏] 11:15:37

我好像觉得我能写出来了、、、

[snowblade]逍遥 11:15:40

不够。。。。

[雨的节奏][雨的节奏] 11:15:51

就把空格改成X或者其他 自己输入的符号是吧

【7299969】人生 11:15:57

我把书先看一遍，现在还没看完

[snowblade]逍遥 11:15:59

我都20万个点 最少了 分好几个表 后来出来07才好用

偏爱云~小吴 11:16:30

我一直想写一个坐标标注的程序,这就是我学lisp 的初衷,可惜

偏爱云~小吴 11:17:02

英雄气短儿女情长啊

[雨的节奏][雨的节奏] 11:17:02

我一直想写个格子编号的程序、哎，可惜、、

到现在还在改

[snowblade]逍遥 11:17:06

拿lisp读取数据 你可以导入到excel里运算 再放到cad里也行

[pzweng]路人 11:17:45

越来越喜欢EXCEL了

真是太强大了

偏爱云~小吴 11:17:55

那么多函数啥时候能玩转

电子表格07不好用

[328302216]小莫 11:18:16

懂的越多，不懂的越多……

偏爱云~小吴 11:18:37

不过会使用宏除外

[snowblade]逍遥 11:18:49

lisp求直线和圆的切线 不会搞

偏爱云~小吴 11:19:00

宏命令是个宝

偏爱云~小吴 11:19:54

Vba跟lisp 哪个上手i容易啊

[snowblade]逍遥 11:20:08

lisp吧

偏爱云~小吴 11:20:09

总感觉现在方向错了

是不是先学vba的

[pzweng]路人 11:20:41

你想搞职业开发？

业余就够了

偏爱云~小吴 11:20:52

不是,

[pzweng]路人 11:21:03

记住常用的函数就够了

偏爱云~小吴 11:21:14

工作中使用的小工具的开发

[pzweng]路人 11:21:36

其它函数只要记个大概用途就够了

偏爱云~小吴 11:21:50

恩

[pzweng]路人 11:21:57

纠结个屁啊

偏爱云~小吴 11:22:54

我现在一心想做一个截面三维坐标标注的东东

[pzweng]路人 11:23:17

搞的太高级了

偏爱云~小吴 11:23:24

一个说是三维其实是二维

[pzweng]路人 11:23:29

好象有个人做了

weiqi做了吧

跟他要

偏爱云~小吴 11:23:48

一个方向人工改的

啊?

真的

[pzweng]路人 11:24:20

[weiqi]weiqi(412220227);

他搞了

他的处女作

偏爱云~小吴 11:25:06

晚上回去找他要,网上找到不能根据比例调整坐标值,而且基点不能人为设定

[linshiyin2]大地 11:26:27

http://bbs.mjtd.com/thread-101233-1-1.html动态圆弧切线，愿意赠送90%的明经币

[linshiyin2]大地 11:27:09

昨晚搞一个晚上，实在搞不定了

[野狼谷]笨鸟 11:28:03

呵呵，那就歇息一天再来，换换思路

[linshiyin2]大地 11:28:38

问题是如何确定那个圆弧

好费劲哦

[pzweng]路人 11:28:51

不是做出来了吗

[linshiyin2]大地 11:29:07

那个是人家的图，不是我的

[linshiyin2]大地 11:29:39

明经币不多，意思一下，谁来做做

[雨的节奏][雨的节奏] 11:29:44

[qqimg]oldimg/{2C65C3A1-64B0-78F0-9896-A3AEA189254B}.gif[/qqimg]

中午一定要把空格换符号的程序写出来

先吃饭去

[pzweng]路人 11:30:00

好

等你好消息

[pzweng]路人 11:30:37

大地的那个东西要计算

[linshiyin2]大地 11:31:29

是的，只要满足，给定个半径，接着上一个线画个圆弧和切线就行

[pzweng]路人 11:32:48

应该可以实现

[linshiyin2]大地 11:32:56

[qqimg]oldimg/{E3347CA5-BADC-A73D-F97D-68F27D52606F}.gif[/qqimg]

[qqimg]oldimg/{A4C8112D-0FDF-8DED-187C-BFB818115DA9}.jpg[/qqimg]

只要这部分

半径用户给定一个

【7299969】人生 11:34:16

这个arx加载，需要把程序放在哪

[pzweng]路人 11:34:26

[qqimg]oldimg/{1EB3471C-F74F-C81B-9671-99ACCF7FBB2E}.jpg[/qqimg]

问题在这

[linshiyin2]大地 11:34:52

是的用line，tan也会出现这个情况

[qqimg]oldimg/{5ED35DC8-E4B2-D1DA-397B-5AB5BD57E6A6}.jpg[/qqimg]要上面这个

[pzweng]路人 11:35:43

可以实现

[linshiyin2]大地 11:36:37

大神们应该很容易，但是我能力所限，实在搞不来了

[pzweng]路人 11:36:50

我试试看

偏爱云~小吴 11:36:55

兄弟,加油

【7299969】人生 11:37:08

这个程序干嘛的

[linshiyin2]大地 11:37:10

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=101039给你个参考

偏爱云~小吴 11:37:13

群里大神很多

[pzweng]路人 11:37:14

谁知道

[linshiyin2]大地 11:37:22

绘制道路

【7299969】人生 11:37:31

大神都没空

偏爱云~小吴 11:37:53

上土木问问

偏爱云~小吴 11:38:38

路桥cad联盟,加这个群

[linshiyin2]大地 11:38:44

应该不难，就是动态没怎么做过，还有就是画那个圆弧费劲死了

pline画圆弧费劲死了

偏爱云~小吴 11:39:13

里面大神很多,但大多不愿理人

[pzweng]路人 11:39:43

[qqimg]oldimg/{0E9642DA-B8E0-F141-E603-40F03BA7875A}.jpg[/qqimg]这根线是怎么来的

[linshiyin2]大地 11:39:55

院长在不，给大家做个动画示范

[linshiyin2]大地 11:40:38

红色的线是那个圆弧的切点和鼠标的位置点

[linshiyin2]大地 11:41:33

(setq pt2 (cadr (grread T 4 0)))
鼠标位置点

[pzweng]路人 11:43:24

圆心位置哪来的

那个动画完全没看懂

突然冒出个圆

[linshiyin2]大地 11:44:35

方位角可以从上一段线段中获取，端点也有了，圆弧用户指定一个半径

[linshiyin2]大地 11:49:55

前面用pline画线，到一个点后用户输入w绘制弯道，输入半径r，通过光标点动态绘制一个圆弧和通过鼠标点和这个圆弧的切线

[linshiyin2]大地 11:51:02

[qqimg]oldimg/{95E0ED4F-900F-1AAF-984E-E8BC50C0EB70}.jpg[/qqimg]

[雨的节奏][雨的节奏] 11:55:13

写成功了

[linshiyin2]大地 11:56:07

[雨的节奏][雨的节奏] 11:56:36

[qqimg]oldimg/{D409585A-80CE-8022-FEC2-D02DCAAE920A}.gif[/qqimg]

是这种效果吗？

[linshiyin2]大地 11:56:47

能否瞻仰一下，路人呢，能做吗

空格删除？

[linshiyin2]大地 11:58:57

字符串中替换字符

(vl-string-translate source-set dest-set str)
参数

source-set

要被替换的字符的集合。

dest-set

字符串，用于替换 source-set 中的字符。

str

字符串，在其中搜索和替换。

[pzweng]路人 12:00:23

不是

要分开

[雨的节奏][雨的节奏] 12:00:49

要分成 1000“ ”X“ ”2000“

？

[linshiyin2]大地 12:01:18

绘制圆弧及切线搞定了没？

[pzweng]路人 12:01:23

[qqimg]oldimg/{AFFED39E-0666-1BAA-54DA-612142DA7A09}.jpg[/qqimg]

把100×200变成了两段,100和200两段

[雨的节奏][雨的节奏] 12:02:06

明白了、这个也行，等会

凡心 12:06:51

[qqimg]oldimg/{170AA7C1-140C-3AA2-2AF8-00705AC8B79B}.jpg[/qqimg]怎么把p1设成原点坐标0,0呢？

[ds-limt]-厨师木 12:07:47

将符号变成字符串的函数是哪个去了？

[linshiyin2]大地 12:08:49

rtos

[ds-limt]-厨师木 12:09:12

不是

[linshiyin2]大地 12:09:16

符号？

[pzweng]路人 12:09:31

vl-prin1-to-string

吃饭去

[ds-limt]-厨师木 12:09:39

对

明经快报

[kwok][kwok]巭隼 12:56:33

框选多段线顶点删除?

明经快报

[kewyst]………… 13:16:36

[qqimg]oldimg/{7BB8800E-FE55-4708-9088-2232FCB7F218}.jpg[/qqimg]

日月星 13:18:19

用什么做的？

[kewyst]………… 13:18:38

cad

磕磕绊绊总算上路了

日月星 13:19:08

三维的？

日月星 13:20:12

[yarp]潜水 13:21:06

我写过一个用等高线自动生成3D的。

日月星 13:21:32

指定路径拉伸吧

明经快报

[chenjian2159]且听 13:48:08

CAD搞的？

偏爱云~小吴 13:52:47

牛人很多

有没有用坐标生成模型的

[tiyi8888]永远痛 13:55:33

我用坐标生成模型的

日月星 13:56:20

三维建模能用程序写出来吗？

偏爱云~小吴 13:57:08

牛人

如何关联点与点之间的联系

【7299969】人生 13:58:33

怎么生产

[tiyi8888]永远痛 14:04:37

没有程序，手工连

【7299969】人生 14:05:51

那不能找错吗

明经快报

[阿然][阿然] 14:48:28

兄弟们我来了

明经快报

[pzweng]路人 15:03:22

刚放假回来？

[阿然][阿然] 15:05:38

不是，最近一直加班，忙死了

[pzweng]路人 15:06:29

难怪这些天没人影