2013-09-13 明经 AutoLISP 编程(102918348) 群聊记录：dwg wblock出来的文件有时选择对像很慢是什么问题

明经快报

[nameld001]中国草 08:48:58

dwg wblock出来的文件有时选择对像很慢是什么问题

[nameld001]中国草 08:51:32

已解决。

[pzweng][pzweng]路人 08:54:12

如何解决的

[啵浪鼓] 08:56:37

应该regen,purge相关吧

[VBALISPER]恐龙 08:57:18

wblock是什么?块吗?

[nameld001]中国草 08:59:46

刚才我用zoom,e就解决了

明经快报

[mmh1][mmh1]漫步地球 10:40:10

监视面板里加入了(getpoint)，表示悲剧了

陷入死循环

如何清除？

[198526]DZ 10:43:01

按ALT+TAB键 多按几次有可能能解决，但不懂原理

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

我就是刚才聊天的时候，突然停了，就清楚了

清除了

[198526]DZ 10:44:15

说明平时要多聊聊天

[mmh1][mmh1]漫步地球 10:44:41

那必须的，不过上班聊多了，领导发飙啊

[328302216][328302216]小莫 10:50:13

我发的贴小明这么不提示？
http://bbs.mjtd.com/thread-107587-1-1.html

高手帮看一下

[mmh1][mmh1]漫步地球 10:51:31

哥是新手就不看了！

[328302216][328302216]小莫 10:52:19

[mmh1][mmh1]漫步地球 10:52:28

明经快报

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

[qqimg]201309/{92458735-835A-3205-5263-3504DBAC0B7B}.jpg[/qqimg]

[328302216][328302216]小莫 11:03:22

看看说不定你也能学到点什么哦

[pzweng][pzweng]路人 11:03:57

DCL我忘光了

DCL比较简单

[328302216][328302216]小莫 11:05:05

就是不知道怎么弄lisp调用...

路人  现在都是 用ODCL了？

[pzweng][pzweng]路人 11:12:03

我写的东西自己用的

基本不用dcl

就输入命令就行了

如果要界面自己翻翻书就可以了

做个简单界面就行了

[328302216][328302216]小莫 11:13:13

还是弄成对话框的对于用户来说方便点

[lisp-study]jun 11:16:50

用飞诗的那个写dcl还是不错的

[Angel1995][Angel1995]Angel 11:18:05

请教下大家:

(list (car pt) (cadr pt) 0.0)

[NewB]长衫罩子龙 11:19:37

应该还有很多种吧

[Angel1995][Angel1995]Angel 11:19:48

求指点

[NewB]长衫罩子龙 11:20:22

比如 nth strcat reverse 等

[lisp-study]jun 11:20:34

你要做啥子 二维变三维？

[阿然][阿然] 11:20:40

2维点转三维？

[Angel1995][Angel1995]Angel 11:20:41

是的

嗯

感觉LIST太慢了

[阿然][阿然] 11:20:57

append cons

[Angel1995][Angel1995]Angel 11:21:12

append是最慢的

一般不敢用

[阿然][阿然] 11:21:53

[qqimg]201309/{D0D3014C-1E80-AAA5-31E2-BD37C9218772}.jpg[/qqimg]

[Angel1995][Angel1995]Angel 11:21:56

这里是添加

APPEND是最慢的

[阿然][阿然] 11:22:20

jun这个方法不行

[Angel1995][Angel1995]Angel 11:22:27

是的

[lisp-study]jun 11:22:31

不行？

[Angel1995][Angel1995]Angel 11:22:38

当然了

你那个只是计算

[lisp-study]jun 11:23:04

哦

[198526]DZ 11:23:30

自己写个自定义函数

[Angel1995][Angel1995]Angel 11:24:24

[【KAIXIN】] [【KAIXIN】]炫翔 11:24:54

不如

[mmh1][mmh1]漫步地球 11:25:06

问个非常简单的问题，
(setq an1 (cos an1))
(setq an2 (cos an2))
(eq an1 an2) 为空？为什么呢？

[Angel1995][Angel1995]Angel 11:25:13

[198526]DZ 11:25:46

你AN1之前的值是多少

你确定没表达错？

[mmh1][mmh1]漫步地球 11:25:55

an1 = 45° an2=45°

[阿然][阿然] 11:26:22

(equal an1 an2 1e-6)

[mmh1][mmh1]漫步地球 11:26:41

难道是精度问题？

[阿然][阿然] 11:27:52

试一试不就清楚了

[lisp-study]jun 11:28:31

是精度的问题 有误差的

[Angel1995][Angel1995]Angel 11:31:00

测试了  APPEND 与 LIST 的 两种方法速度差不多

[lisp-study]jun 11:31:52

结果

[Angel1995][Angel1995]Angel 11:32:08

差不多

[lisp-study]jun 11:32:15

你把时间放大N倍 看到更清楚点

[Angel1995][Angel1995]Angel 11:32:25

只可惜想不到CONS的办法

5为精度还不够大？

[lisp-study]jun 11:33:30

(rtos （* 1000 (- t2 t1)） 2 3) "秒"))

[【KAIXIN】] [【KAIXIN】]炫翔 11:34:57

瞎折腾

[【KAIXIN】] [【KAIXIN】]炫翔 11:35:48

实际秒数 要1000干啥

[【KAIXIN】] [【KAIXIN】]炫翔 11:36:32

怎么样也是乘以3600  小时

[328302216][328302216]小莫 11:36:54

开心老大  你不是也研究过猫老师的那个动态对话框吗，帮我看一下我的贴
http://bbs.mjtd.com/thread-107587-1-1.html

[【KAIXIN】] [【KAIXIN】]炫翔 11:37:21

后面没研究  好看不好吃

[328302216][328302216]小莫 11:37:58

我觉得动态的有时候挺方便的啊

[【KAIXIN】] [【KAIXIN】]炫翔 11:38:21

那么长的玩意，你得先优化下

请猫去看看吧

动态的DCL真没必要

[pzweng][pzweng]路人 11:38:54

这么长看了下就怕了

[【KAIXIN】] [【KAIXIN】]炫翔 11:38:56

[qqimg]201309/{2801A893-4811-8BA6-A4B3-860993DEF051}.gif[/qqimg]

[linshiyin2]大地 11:39:22

谁来搞搞多行文本框

显示信息真蛋疼

[328302216][328302216]小莫 11:39:59

[【KAIXIN】] [【KAIXIN】]炫翔 11:40:02

一直用飞诗的  或者LISP通用DCL函数

[lisp-study]jun 11:40:46

飞诗的不错

[【KAIXIN】] [【KAIXIN】]炫翔 11:41:04

好玩归好玩，实用与速度问题

一看你那程序就晕

分开管理  就一目了然

[linshiyin2]大地 11:41:33

真不知道lisp怎么考虑的文本框，弱爆了

[328302216][328302216]小莫 11:41:36

长 但是只要看修改按钮部分的应该就可以了

[【KAIXIN】] [【KAIXIN】]炫翔 11:42:30

你去问问猫吧，真不知道好用在哪里

[328302216][328302216]小莫 11:42:43

tt1  后面的都是猫老师的那个动态对话框程序了

[【KAIXIN】] [【KAIXIN】]炫翔 11:42:50

我个人喜欢调用已有玩意

[qqimg]201309/{5EC049CD-E1B3-2F5D-6519-77BA31E4AA44}.jpg[/qqimg]

用飞诗的组装修改替换  即可弄成大界面

[qqimg]201309/{83F637EA-0F46-443B-FE27-6CE3F95B481F}.gif[/qqimg]

[328302216][328302216]小莫 11:44:21

我这网速不行 图片没收到  ...

[【KAIXIN】] [【KAIXIN】]炫翔 11:44:41

http://xuanxiang.ys168.com/

[screwer][h2o] 11:46:25

可以只发图片不发源码？

[【KAIXIN】] [【KAIXIN】]炫翔 11:48:00

思路比较重要

如果只发源码 不谈思路 网上N多源码

[screwer][h2o] 11:48:43

哦，这样啊

[【KAIXIN】] [【KAIXIN】]炫翔 11:49:04

没写注释的源码 跟思路没啥区别

还是要自己去研究 读懂

[screwer][h2o] 11:49:53

主要是不熟悉群规

[【KAIXIN】] [【KAIXIN】]炫翔 11:50:31

群是用来讨论 不是用来发源码

[screwer][h2o] 11:50:36

思路我多的是

[【KAIXIN】] [【KAIXIN】]炫翔 11:50:43

论坛嘛 也许可以综合，也许....

有思路就好办 函数的组装就可以了

[328302216][328302216]小莫 11:53:25

[qqimg]201309/{B1AC14ED-DEF1-9DCA-5AC3-621B35A2B499}.gif[/qqimg]  搞这个真麻烦。。。如果不行我就不要修改按钮了  直接删除重新添加

[linshiyin2]大地 11:53:30

飞寺有多行文本？

[328302216][328302216]小莫 11:53:53

网速又慢...网站半天才开得起

明经快报

[ucuc2003][ucuc2003]易水 13:09:18

明经快报

[radgrant][radgrant]随风 13:19:20

3q

明经快报

[lisp新手]深呼吸 13:54:06

明经快报

[NetBee]网蜂 14:10:16

[qqimg]201309/{D7E06CF0-ABFD-59C2-2A0D-E5669C05059E}.jpg[/qqimg]

[q530496591][q530496591]小菜鸟 14:16:56

这不错

明经快报

[pzweng][pzweng]路人 14:27:32

请教个问题

有人吗

[pzweng][pzweng]路人 14:28:26

这个语句怎么写

[328302216][328302216]小莫 14:29:48

没研究过这个

明经快报

[VBALISPER]恐龙 14:51:48

找数学关系

[Angel1995][Angel1995]Angel 14:51:49

点1与点2有的时候是反过来的

[q3_2006]q2 14:52:10

3点有啥关系？

[Angel1995][Angel1995]Angel 14:52:20

(list(CAR pt1) (caDr pt2))

[q3_2006]q2 14:52:21

上图

[Angel1995][Angel1995]Angel 14:52:25

怎么不对呢

上图了啊

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

(list(CAR pt1) (caDr pt2) (caddr pt3))

[Angel1995][Angel1995]Angel 14:53:44

这样完全不对呀

[q3_2006]q2 14:55:10

ptn 是ptlst吧

这读的什么呀。。

[Angel1995][Angel1995]Angel 14:55:47

我求出的一直是第4点

第三点怎么？

[q3_2006]q2 14:56:03

看不懂

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

你在说什么

[q3_2006]q2 14:56:28

图，咱们言语能力都很差。。

看图说话来得快

[q3_2006]q2 14:58:19

x y 反了

[Angel1995][Angel1995]Angel 14:58:35

是呀

也可以先下面后上面

[Angel1995][Angel1995]Angel 14:59:59

好比 我点左下点 再点右上点


我点点右上点 再左下点

两种结果都要得出右下点

[328302216][328302216]小莫 15:00:40

取得两点的X坐标取大的，再取得两点多 Y坐标取小的

[Angel1995][Angel1995]Angel 15:01:28

有劳写写

我晕了这个

[q3_2006]q2 15:02:14

(setq pt3 (list(car pt2) (cadr pt1)))

[pzweng][pzweng]路人 15:05:49

呵呵

[Angel1995][Angel1995]Angel 15:07:08

如果PT1在前面呢?

[q3_2006]q2 15:07:27

什么叫在前面？

[Angel1995][Angel1995]Angel 15:07:44

先选 后选

我知道原因了 试试先

[q3_2006]q2 15:08:02

你上图，表达得不清楚

[VBALISPER]恐龙 15:09:06

[328302216]小莫(328302216)  15:00:35
取得两点的X坐标取大的，再取得两点多 Y坐标取小的

就是它了

[Angel1995][Angel1995]Angel 15:11:02

可以了

肯能是玩的太多了 晕了

谢谢大家

[【KAIXIN】] [【KAIXIN】]炫翔 15:11:57

明总刚刚发帖了 生命可贵，玩LISP别太认真

劳逸结合

[q3_2006]q2 15:13:04

太费劲就放弃

[328302216][328302216]小莫 15:18:24

小明睡着了吗 ?怎么没提示发贴

[LC100]建筑设计 15:18:58

[qqimg]201309/{CDB459BA-8100-77FA-36EF-52E7CDB71FBB}.jpg[/qqimg]

占了一个管理员的位

让我当一下管理员嘛。

[328302216][328302216]小莫 15:20:09

当管理有什么不一样？

[LC100]建筑设计 15:20:46

多个头像

[q3_2006]q2 15:20:51

比较累

[pzweng][pzweng]路人 15:20:57

呵呵

[LC100]建筑设计 15:22:18

上班没事做，好累啊。

[q3_2006]q2 15:22:47

天生贱骨头？？

[LC100]建筑设计 15:22:58

没

这几天没事做，突然间觉得过一分钟都好慢。

[enn09][enn09]Alex 15:23:25

我也是

[【KAIXIN】] [【KAIXIN】]炫翔 15:23:29

既然刚刚那朋友，说出了这个

我也研究了一个自定义函数

功能:计算两点的x y方向的距离

自定义函数1 虽然简洁但是速度不行

[pzweng][pzweng]路人 15:24:47

返回什么

[【KAIXIN】] [【KAIXIN】]炫翔 15:24:55

自定义函数2 虽然啰嗦 但是速度快

[【KAIXIN】] [【KAIXIN】]炫翔 15:25:35

计算两点的x y方向的距离 ,(x y)==>(613.734 737.774)

[pzweng][pzweng]路人 15:26:02

哦

[q3_2006]q2 15:26:21

垂直距离

[阿然][阿然] 15:26:46

没看明白

[【KAIXIN】] [【KAIXIN】]炫翔 15:26:49

[qqimg]201309/{E5FD0E7D-05A5-A81D-E24E-DA52C94B00BA}.jpg[/qqimg]

[阿然][阿然] 15:27:10

。。。distance * sin angle？

[VBALISPER]恐龙 15:27:22

X增量,Y增量

[【KAIXIN】] [【KAIXIN】]炫翔 15:27:42

用角度计算也许会更快

[阿然][阿然] 15:28:41

(defun deltaxy (pt1 pt2 / ang dist)(setq dist (distance pt1 pt2) ang (angle pt1 pt2))(list (* dist (sin ang))(* dist (cos ang))))

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

(list (distance ((list (car pt1) 0) (list (car pt2) 0)))
      (distance ((list 0 (cadr pt1)) (list 0 (cadr pt2)))))

[pzweng][pzweng]路人 15:30:57

(list (distance (list (car pt1) 0.0) (list (car pt2) 0.0))
      (distance (list 0.0 (cadr pt1)) (list 0.0 (cadr pt2))))

[阿然][阿然] 15:31:09

不是求xy的增量？

[【KAIXIN】] [【KAIXIN】]炫翔 15:31:30

是X Y 的垂直距离

pt1 pt2 都有跌倒的可能

[pzweng][pzweng]路人 15:31:51

得出的结果是(x-x1 y-y1)

[阿然][阿然] 15:31:54

垂直什么位置的距离？

[【KAIXIN】] [【KAIXIN】]炫翔 15:31:56

我知道角度是可以实现

得判断下

相交

[qqimg]201309/{DCA4246C-ED08-53D7-CBFF-B27B61893CD3}.jpg[/qqimg]

[阿然][阿然] 15:32:28

还是没明白

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

不是很理解

[【KAIXIN】] [【KAIXIN】]炫翔 15:33:24

是的

判断X坐标也不慢

[【KAIXIN】] [【KAIXIN】]炫翔 15:34:35

你先实现这个吧

;计算两点的x y方向的距离 ,(x y)==>(613.734 737.774)
;(xx-p-2ptXYDist p1 p2)
;(xx-p-2ptXYDist (GETPOINT)(GETPOINT))

我看看角度是否快些

[阿然][阿然] 15:35:05

x y方向的距离？

deltaX和deltaY？

[pzweng][pzweng]路人 15:35:27

他的意思应该是 x2 - x1

y2 - y1

差不多吧

是这个意思

[阿然][阿然] 15:36:17

是要正负值？

[pzweng][pzweng]路人 15:36:19

deltax/y

不需要

[lisp新手]深呼吸 15:36:30

没必要 ，直接 abs

[【KAIXIN】] [【KAIXIN】]炫翔 15:36:31

正

[阿然][阿然] 15:36:42

那就是坐标差值嘛

[【KAIXIN】] [【KAIXIN】]炫翔 15:36:49

速度最慢

[pzweng][pzweng]路人 15:37:16

阿然快

两个都是负值呢

[【KAIXIN】] [【KAIXIN】]炫翔 15:37:35

快要质量

[阿然][阿然] 15:37:47

。。。。和正负有啥关系啊

[pzweng][pzweng]路人 15:37:51

distance还是这个函数好

-10-10=-20

[阿然][阿然] 15:38:10

不是abs了

[【KAIXIN】] [【KAIXIN】]炫翔 15:40:07

[qqimg]201309/{E06075AF-A8DF-E401-DB81-17EDF1CA6286}.jpg[/qqimg];4.359秒

还没有这个快

目前下面这种方式最快

(defun xx-p-2ptXYDist (p1 p2 / ca1 ca2 p3)
 (if(>(setq ca1(car p1))(setq ca2(car p2)))
  (progn
   (setq p3(list ca1 (cadr p2)))
   (list(distance p2 p3)(distance p1 p3))
  )
  (progn
   (setq p3(list ca2 (cadr p1)))
   (list(distance p1 p3)(distance p2 p3))
  )
 )
)

[pzweng][pzweng]路人 15:40:51

a b c里面的c是干嘛用的

[【KAIXIN】] [【KAIXIN】]炫翔 15:41:37

因为后者没有遍历

[pzweng][pzweng]路人 15:41:47

这样不行吗

搞不懂写那么复杂干什么

[【KAIXIN】] [【KAIXIN】]炫翔 15:42:13

完整的写法要判断点1 与 点2的位置

[阿然][阿然] 15:42:24

多余

还没到追求速度的水平，能解决问题就好

[【KAIXIN】] [【KAIXIN】]炫翔 15:42:46

[198526]DZ 15:42:50

炫翔是个执着的人

[【KAIXIN】] [【KAIXIN】]炫翔 15:43:01

刚刚在讲速度

我试试角度的方法

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

我那个速度怎么样

更快吧

[【KAIXIN】] [【KAIXIN】]炫翔 15:43:29

如果遇到大量的玩意 速度就差很远了

[【KAIXIN】] [【KAIXIN】]炫翔 15:46:49

这个是受[qqimg]201309/{7706C2F7-2673-FCB7-5863-33A9446BD2AD}.jpg[/qqimg]的指点

既然要做通用函数 就用心玩到最好

[【KAIXIN】] [【KAIXIN】]炫翔 15:48:01

如果一个大程序，N个通用函数累计起来的 这速度...

[198526]DZ 15:48:15

我觉得路人那个也不错啊，慢在哪 学习下。请指点 谢谢！

[【KAIXIN】] [【KAIXIN】]炫翔 15:51:25

路人的 用时:3.187秒

炫翔的目前版本:用时:2.641秒

[pzweng][pzweng]路人 15:57:57

你的测试时间程序有问题吧

[【KAIXIN】] [【KAIXIN】]炫翔 15:58:06

角度的玩意 不弄了，光思路都觉得是慢的了

[fsxm]飞诗 15:58:07

[【KAIXIN】] [【KAIXIN】]炫翔 15:58:18

计算太多

[lisp新手]深呼吸 15:58:20

100w次

[【KAIXIN】] [【KAIXIN】]炫翔 15:59:20

你可以用COMMAND 与ENTMAKE 函数 去测试这个测试时间的函数

因为ENTMAKE 最快

[lisp新手]深呼吸 16:00:59

嘴最快

[【KAIXIN】] [【KAIXIN】]炫翔 16:02:16

LISP是算法语言

路人的 是层次太深

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

不明白

[【KAIXIN】] [【KAIXIN】]炫翔 16:03:10

LISP是不是从内到外执行？

[pzweng][pzweng]路人 16:03:12

command肯定不好用

明白了

可以这样写

[lisp新手]深呼吸 16:03:34

呵呵

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

(- (abs (car p1)) (abs (car p2)))

再abs一下

[lisp新手]深呼吸 16:04:33

不对的

[【KAIXIN】] [【KAIXIN】]炫翔 16:05:16

ABS最慢

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

不会吧

郁闷

[【KAIXIN】] [【KAIXIN】]炫翔 16:05:48

看看有谁的ABS比这快多少

[pzweng][pzweng]路人 16:06:03

你这个只用了1个

[lisp新手]深呼吸 16:06:16

只用一个才是对的

[lisp新手]深呼吸 16:06:59

(- (abs -100)(abs 300)) = -200
(- -100 300) = -400

[mmh1][mmh1]漫步地球 16:07:11

ssget 的时候把图缩小了，会选到ssget以外的东西

[lisp新手]深呼吸 16:07:37

(abs (- -100 300))=400

[pzweng][pzweng]路人 16:08:48

我理解错了

[lisp新手]深呼吸 16:08:58

是的

最终结果abs下即可

[lisp新手]深呼吸 16:15:17

命令: tt 用时:4秒

命令:
命令: tt 用时:3.859秒

命令:
命令: tt 用时:3.984秒

[lisp新手]深呼吸 16:15:59

和电脑硬件也有关，

[q3_2006]q2 16:16:21

还在玩这个呀。。怎么不用角度算，也许很快？

[pzweng][pzweng]路人 16:16:37

开心老大讲了不行

[q3_2006]q2 16:16:51

什么速度

[lisp新手]深呼吸 16:16:57

用角度也行

明经快报

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

[qqimg]201309/{9FDFC4FF-568B-B8CC-D437-0FA0635CD738}.jpg[/qqimg]

角度的方法

1与2 2与1 1与3 3与1  都要计算

[q3_2006]q2 16:30:33

为什么？

这个速度不会快

[328302216][328302216]小莫 16:32:44

速度这东西我从来不在乎，一个程序执行下来最多就一两秒，应该也不会用到循环上万次的那种！我觉得没必要所以的程序都考虑速度

[Sign88]宁波标志 16:33:48

如果一个程序 的速度让用户觉得难受 
你的程序基本就废了

[Sign88]宁波标志 16:35:07

我觉得速度很重要  不过这要了解  计算机运算哪些指令时具体是怎么做的   难呀

[q3_2006]q2 16:35:11

1000000 什么情况

[雨的节奏][雨的节奏] 16:35:33

速度太重要了

[qqimg]201309/{108D90C6-93A3-8EB3-019C-28DC0038BEA3}.GIF[/qqimg]

速度是瓶颈啊

[328302216][328302216]小莫 16:37:08

我意思是一般情况应该都不会用得到那种让用户等不急的程序，几乎都是那种用户感觉不到等待时间的那种

[Sign88]宁波标志 16:37:30

但你们是在讨论圆相交的问题吗？

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

(command ".audit" "Y")
这句是用在无名块转有名块，
有没有可以替代这句的

[q3_2006]q2 16:40:08

纠错。。

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

非得要用这句

[q3_2006]q2 16:42:13

试试呗。。注释掉看会怎样？

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

vla-auditinfo

[q3_2006]q2 16:43:14

为什么都抵触CAD命令

速度慢吗？？

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

vla-auditinfo还是一样

[pzweng][pzweng]路人 16:44:45

DXF 名     当前值               校验                    默认

在块符号表中发现无效的无名块“u”。
  转换到普通块“AUDIT_I_130913103642-8”。

 已核查 23      个块
阶段 1 已核查 868     个对象
阶段 2 已核查 868     个对象
阶段 3 已核查 6500    个对象
共发现 1 个错误，已修复 1 个

[328302216][328302216]小莫 16:48:33

audit  这个命令是讲无名块转换成普通块的吗？

没用过

[q3_2006]q2 16:49:01

CAD 纠错命令

[pzweng][pzweng]路人 16:49:05

修复

[328302216][328302216]小莫 16:53:11

修复的什么东西呢？

[q3_2006]q2 16:54:10

没研究

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

无名块转有名块你会吗

你试下就知道了