2013-05-17 明经 AutoLISP 编程(102918348) 群聊记录：[image={03193A22-8573-1D17-37B4-1ED64B

明经快报

[mccad][MCCAD] 08:37:16

[qqimg]oldimg/{03193A22-8573-1D17-37B4-1ED64BF719B7}.jpg[/qqimg]问题不是机器常开的问题。是经常有人向小明发一些不良信息，小明也就回敬了不良信息，被TX搞下线

所以如果再出现这种问题，可能我会将小明的智能聊天功能取消掉

只保留网站特有的聊天功能

明经快报

[ddbb2008]笨笨 08:50:38

群主，还是保留小明的聊天功能吧

明经快报

[安柱]坐标零点 09:27:42

[qqimg]oldimg/{E797BD5E-7538-132E-9B25-B3FED5BD590E}.jpg[/qqimg]
[qqimg]oldimg/{1B4FA730-101F-0646-A0B3-CA0793095D84}.jpg[/qqimg]
刚完成的3D图

[brainstorm]19468944 09:29:25

你是做工业设计的

[雨的节奏][雨的节奏] 09:30:09

[qqimg]oldimg/{55F209EA-8353-17FC-885A-45E432F436B5}.gif[/qqimg]320*480

明经快报

[安柱]坐标零点 09:51:57

混日子而已

[雨的节奏][雨的节奏] 09:52:25

这分辨率、、

[安柱]坐标零点 09:52:47

也有高的

这些都是客户需求的

[雨的节奏][雨的节奏] 09:53:18

是国内的山寨厂吗

[安柱]坐标零点 09:53:32

好眼力

[alexanderlili][alexanderlili]友缘 09:55:26

请问高手为什么我每次打开vlisp环境都自动打开一个以前写过的lsp（不是上一次保存的文件）？只要这个文件存在就会打开

明经快报

[328302216][328302216]小莫 10:11:49

[qqimg]oldimg/{B39D6C5F-5A88-D984-8845-3F966D547820}.jpg[/qqimg]怎么求包围圈内一点到包包围圈的最近距离？

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

vlax-curve-getClosestPointTo

[328302216][328302216]小莫 10:18:00

  我试试

明经快报

孑孓空灵 10:35:10

有管道专业的吗？

[328302216][328302216]小莫 10:44:53

@[x_s_s_1]生无可恋 ok了 谢谢

[夏生生][x_s_s_1]生无可恋 10:45:55

不客气

[仑通]仑通 10:52:20

[qqimg]oldimg/{CF93EBC0-1F5E-7550-C016-2DBF61790793}.gif[/qqimg]

[328302216][328302216]小莫 10:54:28

[qqimg]oldimg/{4555942A-6110-1FCE-DBC0-A6D9510BA59E}.jpg[/qqimg]

[no13bus]13公交车 10:55:19

农民也挺好的

明经快报

[328302216][328302216]小莫 14:45:05

(defun c:zxzd()
  (setq p0(entsel "选择直线"))
    (SETQ 1 (CDR (ASSOC 10 p0))
         2 (CDR (ASSOC 11 p0))
)
  (setq p3(distance p1 p2))
  (princ)
  )

这个怎么提示关联列表错误

[雨的节奏][雨的节奏] 14:45:39

[328302216][328302216]小莫 14:46:13

是哪的问题？

[雨的节奏][雨的节奏] 14:46:17

(defun c:zxzd()
  (setq p0(entsel "选择直线"))
    (SETQ 1 (entget (CDR (ASSOC 10 p0)))
         2 (entget (CDR (ASSOC 11 p0))
))
  (setq p3(distance p1 p2))
  (princ)
  )

[328302216][328302216]小莫 14:46:33

久了 前面的又忘了

[雨的节奏][雨的节奏] 14:47:25

(vla-get-length (vlax-ename->vla-object (car (entsel))))

(setq p3 (vla-get-length (vlax-ename->vla-object (car (entsel))))) ;so easy

[328302216][328302216]小莫 14:49:04

(defun c:zxzd()
  (setq p0(entsel "选择直线"))
    (SETQ 1 (entget (CDR (ASSOC 10 p0)))
         2 (entget (CDR (ASSOC 11 p0))
))
  (setq p3(distance p1 p2))
  (princ)
  )
这个也不行啊

[雨的节奏][雨的节奏] 14:50:06

(defun c:zxzd()
  (setq p0 (car (entsel "选择直线")))
    (SETQ 1  (CDR (ASSOC 10(entget  p0))))
         2 (CDR (ASSOC 11 (entget p0)))
))
  (setq p3(distance p1 p2))
  (princ)
  )

[【KAIXIN】] [【KAIXIN】]炫翔 14:50:54

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

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

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

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

乱用函数

[雨的节奏][雨的节奏] 14:51:40

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

那个cdr 要改成cadr

[雨的节奏][雨的节奏] 14:52:43

cdr是除去第一个元素、cadr是取得第二个元素、、

[LC100]建筑设计 14:53:34

Vlisp那有教程

[328302216][328302216]小莫 14:54:02

隔段时间前面学的很简单的东西又忘了 ...

[夏生生][x_s_s_1]生无可恋 14:54:09

[LC100]建筑设计 14:54:24

我也是。因为我不是天天编程。

[雨的节奏][雨的节奏] 14:54:28

[qqimg]oldimg/{55F209EA-8353-17FC-885A-45E432F436B5}.gif[/qqimg]

[LC100]建筑设计 14:54:35

我发现生无可恋是天天编程的

[仲文玉][仲文玉]wygjx 14:54:55

(defun c:zxzd ()
  (setq p0 (entget (car (entsel "选择直线"))))
  (SETQ    1 (CDR (ASSOC 10 p0))
    2 (CDR (ASSOC 11 p0))
  )
  (setq p3 (distance p1 p2))
  (princ p3)
  (princ)
)

[夏生生][x_s_s_1]生无可恋 14:54:57

[雨的节奏][雨的节奏] 14:55:17

(setq p3 (vla-get-length (vlax-ename->vla-object (car (entsel)))))

这样最快

[328302216][328302216]小莫 14:55:43

主要是这些函数久点不用又忘记是什么意思了，读书的时候英语我都是会读不知道中文意思...

已经OK了  谢谢 雨的节奏

[仲文玉][仲文玉]wygjx 14:56:08

[雨的节奏][雨的节奏] 14:56:43

(setq p0 (entget (car (entsel "选择直线"))))
  (SETQ    1 (CDR (ASSOC 10 p0))
    2 (CDR (ASSOC 11 p0))
  )

这样写好一点

[夏生生][x_s_s_1]生无可恋 14:58:27

(vlax-curve-getDistAtPoint en (vlax-curve-getEndPoint en))

[【KAIXIN】] [【KAIXIN】]炫翔 14:59:09

[qqimg]oldimg/{573F0C79-E1CE-7FD4-723B-A402B9FFE7E7}.jpg[/qqimg][qqimg]oldimg/{4C70BBA9-77B8-8F3D-F739-3CB7443DAF2A}.GIF[/qqimg]

VLAX不错

[328302216][328302216]小莫 14:59:40

用vl直接求对象的中心点有没有

[雨的节奏][雨的节奏] 15:00:41

vlax-curve-getDistAtPoint

这个不错

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

是不是只能先求出最小包围盒

[LC100]建筑设计 15:01:02

vlax也是可以保存在lisp文件里的是吧？

[夏生生][x_s_s_1]生无可恋 15:01:14

不错了，知道distance，我以前都是用(sqrt(x10-x11)2+(y10-y11)2)

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

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

数学方法

[夏生生][x_s_s_1]生无可恋 15:01:52

(sqrt((x10-x11)2+(y10-y11)2))

[雨的节奏][雨的节奏] 15:01:59

生无可恋好像挺闲的、、、

[328302216][328302216]小莫 15:02:23

最近才发现原来通用函数是那么的方便啊

[仑通]仑通 15:02:35

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

还不晚

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

什么是通用函数啊

[仲文玉][仲文玉]wygjx 15:02:42

[仑通]仑通 15:02:47

有了通用函数 理想容易实现些

[夏生生][x_s_s_1]生无可恋 15:02:54

闲JJ看了一上午的涵洞

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

通用的自定义函数

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

什么叫作通用函数

哪种叫作通用函数啊，能否举例说明

[328302216][328302216]小莫 15:03:37

不知道可不可以说是子程序

[夏生生][x_s_s_1]生无可恋 15:03:47

谁有防空洞的图？

画稀我了

[仑通]仑通 15:04:30

这个就是通用函数

[夏生生][x_s_s_1]生无可恋 15:04:38

[vormittag]桔子 15:04:47

做的东西太高端了，防空洞。

[夏生生][x_s_s_1]生无可恋 15:05:08

桔子兄上午出去了？

[雨的节奏][雨的节奏] 15:05:17

[qqimg]oldimg/{55F209EA-8353-17FC-885A-45E432F436B5}.gif[/qqimg]我一直都在记事本写程序的

[cie0588][cie0588] 15:05:31

;;;通用函数 两个数相加
(defun jia (a b)
  (+ a b)
)
$ (jia 1 2)
3
这就是通用函数

[夏生生][x_s_s_1]生无可恋 15:05:35

有个煤老板别墅后面有山，要连通一下

[雨的节奏][雨的节奏] 15:06:04

那通用函数得等到比较精通的时候再写

[cie0588][cie0588] 15:06:17

防空洞 要井建专业设计吧

[夏生生][x_s_s_1]生无可恋 15:06:33

本人现在没专业

[cie0588][cie0588] 15:06:44

更厉害

[vormittag]桔子 15:06:46

一上午都在开会，下午在准备礼拜一要开的会。

[夏生生][x_s_s_1]生无可恋 15:06:59

天天开会好幸福哦

你们会是有点多

[vormittag]桔子 15:07:21

你这得找隧道专业的。

[夏生生][x_s_s_1]生无可恋 15:07:21

要沟通

[雨的节奏][雨的节奏] 15:07:27

我在vlisp里面写，不习惯、、、、到现在我还不会调试程序、、、写完后都是用大脑调试的

[夏生生][x_s_s_1]生无可恋 15:07:51

我也不会调试，哪天要学学

[vormittag]桔子 15:07:55

上午是院内的会，周一是项目的会。愁人啊

[雨的节奏][雨的节奏] 15:08:20

不知道有木有人像我一样在记事本里写程序啊、、、

[328302216][328302216]小莫 15:08:35

[qqimg]oldimg/{5567B5B0-3ADF-3077-D619-43F963A22A13}.jpg[/qqimg]

[雨的节奏][雨的节奏] 15:08:36

我觉得我很悲哀啊、、、哎、、、感觉不会再爱了

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

LISPLINK

[夏生生][x_s_s_1]生无可恋 15:08:38

都是逐条试验，一般的还行，到了grread那个烦啊

[雨的节奏][雨的节奏] 15:10:04

明经快报

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

[qqimg]oldimg/{FD74876F-41CA-6C95-6131-CEA8D85B09A7}.jpg[/qqimg]

写个程序都能失恋啊

[LC100]建筑设计 15:29:53

他是写程序给女孩子用了。后来那女的发现他写的程序都不含***的。所以就不爱了

[ken_1_1] 15:30:11

[qqimg]oldimg/{D454ACEC-B792-9E61-D9D8-0AC9656CF40F}.jpg[/qqimg]

[xiabin68]测绘 15:31:20

这是个什么东东，

[q530496591][q530496591]小菜鸟 15:31:53

房吧。

[雨的节奏][雨的节奏] 15:32:23

[qqimg]oldimg/{9C82569F-6B47-B707-96C1-87E97BDE297B}.jpg[/qqimg]

正解

[q530496591][q530496591]小菜鸟 15:32:45

不含什么？

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

555

明经快报

[lisp](car (entsel)) 16:33:35

fas与vlx文件,有什么区别呀?为什么我用lisp源文件既生成了fas又生成了vlx呢?还生成了一个prv,为什么生成了两个呢?

[蔡__洛]不快乐 16:37:06

fas是vlx的编译的代码部分  vlx还包括 txt dcl html fas等其他文件

[lisp](car (entsel)) 16:37:57

那为什么我用一个lisp文件,然后编辑之后得到的fas与vlx都能独立运行呢?

[蔡__洛]不快乐 16:38:28

其实vlx运行 就是运行打包在里面的fas而已 所以是一样的 哈哈哈

[q530496591][q530496591]小菜鸟 16:39:02

[LC100]建筑设计 16:42:08

上班上到想睡觉

[q530496591][q530496591]小菜鸟 16:43:51

闲还不爽啊

来下象棋。

[ds-limt]-厨师木 16:44:57

10公里长的线路，按200米长度一副图到布局，怎么弄啊？

[LC100]建筑设计 16:45:30

我不是闲到想睡觉，是忙到想睡觉。

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

哈哈！

[夏生生][x_s_s_1]生无可恋 16:51:04

先在模型分块，再到布局中zoom就行了

明经快报

[328302216][328302216]小莫 17:04:44

象棋几级了？上段了没

[ds-limt]-厨师木 17:05:16

太多了

[LC100]建筑设计 17:06:59

我的很高级了。

[LC100]建筑设计 17:07:30

我经常跟高手走象棋经常赢

基本上没输入过

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

[LC100]建筑设计 17:08:40

失礼，我说高手经常赢我

[328302216][328302216]小莫 17:10:29

[LC100]建筑设计 17:11:05

[qqimg]oldimg/{514E8F56-87E1-5828-5039-A6897CF423C8}.gif[/qqimg]

[q530496591][q530496591]小菜鸟 17:12:10

我经常输

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

[qqimg]oldimg/{F8D9516A-25A0-E72E-46D1-8A4D269BC6AF}.gif[/qqimg]

[vormittag]桔子 17:12:47

没啥，我跟老聂泰森比围棋和拳击都能赢。

拳击赢老聂，围棋赢泰森。

[LC100]建筑设计 17:13:24

电子游戏吧

[q530496591][q530496591]小菜鸟 17:13:47

桔子兄说的我都不认识

[328302216][328302216]小莫 17:14:11

桔子兄 围棋几段了  弈城号多少？有空切磋一下

[雨的节奏][雨的节奏] 17:14:26

[qqimg]oldimg/{F5698CBC-BC9D-1719-B7F1-28B640E44EDB}.gif[/qqimg]

[vormittag]桔子 17:14:36

很菜

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

我17.9级

[vormittag]桔子 17:15:21

木有号。也就是能赢泰森的水准。

[cie0588][cie0588] 17:16:28

[qqimg]oldimg/{3579F2A0-A9CC-C93A-8B01-BFA996A72DDC}.jpg[/qqimg]已知红色和绿色2条曲线，红色线上任一点pt,pt处与红线垂直的angle我算出来了。怎么求pt、 angle 与绿线的交点?

[cie0588][cie0588] 17:17:04

画条线 求交点 再删掉这条线？

[cie0588][cie0588] 17:23:26

求助。。。。。

[cie0588][cie0588] 17:25:10

要下班了

[328302216][328302216]小莫 17:27:10

红色线上的点到绿色线的最近点吗？

[cie0588][cie0588] 17:27:22

不是

[夏生生][x_s_s_1]生无可恋 17:27:47

vla-intersectwith

[cie0588][cie0588] 17:27:58

就是因为不是最近点。我现在想到的就是画线求交点，再删掉

[夏生生][x_s_s_1]生无可恋 17:28:47

就是你这个方法

先画线，然后vla-intersectwith最后删除

[cie0588][cie0588] 17:29:55

图比较大的时候，运行的时候会看到一条线出来了，又没了。
不喜欢。

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

不会啊

哪有这么慢

[雨的节奏][雨的节奏] 17:30:24

弄成隐形的啊

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

那你就只有用数学方法了

[cie0588][cie0588] 17:30:47

怎么弄隐形？

[雨的节奏][雨的节奏] 17:30:56

好像是改DXF吧

你entmake一条线，弄隐形的、、

[LC100]建筑设计 17:32:11

用vlisp改组码怎么改

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

entmakex再entdel怎么都不会出现你说的看到一条线的情况

[cie0588][cie0588] 17:34:30

我用的是vla-add的方法。我用entmake 再试试

[夏生生][x_s_s_1]生无可恋 17:36:07

(cons 60 1)

(setq ent (subst (cons 60 1) (assoc 60 ent) ent))
   (entmod ent)

[夏生生][x_s_s_1]生无可恋 17:37:37

你的绿线有凸度没有？

[cie0588][cie0588] 17:37:59

绿线有凸度

[夏生生][x_s_s_1]生无可恋 17:38:28

你还是画射线吧

[cie0588][cie0588] 17:38:56

我都试下。群吗60我也试下。

[vormittag]桔子 17:39:44

构造线，射线有方向。

xline

[cie0588][cie0588] 17:41:37

3Q

[雨的节奏][雨的节奏] 17:41:43