2013-05-07 明经 AutoLISP 编程②群(177027547) 群聊记录：[face74.gif]

明经快报

[【KAIXIN】][【KAIXIN】]炫翔 08:14:56

明经快报

傅琳博夏侯博植安淮辜赵 09:15:11

急聘网上兼职

工资300元/小时

+q270308502

工资一单一结

[pzweng]天蝎 09:15:59

这么好的事

[pzweng]天蝎 09:17:34

[qqimg]oldimg/{73372D49-BFF3-10D9-38AB-F6CF2C397CCE}.jpg[/qqimg]

[不死猫][nonsmall]不死猫 09:22:19

？ ？

[梦里水香] 09:25:27

太智能了

[梦里水香] 09:26:06

[qqimg]oldimg/{64A234EE-8657-DA63-B7F4-C7718460F461}.gif[/qqimg]

[不死猫][nonsmall]不死猫 09:26:54

[qqimg]oldimg/{A0DB6509-708E-E74A-B21E-AAA2B26C9BDC}.jpg[/qqimg]

[梦里水香] 09:27:32

再试试..

[qqimg]oldimg/{719024F2-16B9-C2E4-C3EF-952FC34925D2}.gif[/qqimg]

[pzweng]天蝎 09:28:07

我是无名小卒

小明不认识我

[梦里水香] 09:29:33

[qqimg]oldimg/{F55D4572-FEA0-6263-E860-DA3EB8EA4F8F}.gif[/qqimg]好厉害，我的群里也要弄一个。。

明经快报

[海盗曹]海盗曹 09:46:08

cre8or 09:50:37

[hao3ren]青珩 09:55:08

咋没反应啊

[429014673]無痕 09:55:49

挂了

和光同尘 09:59:26

真的是没有反应的

明经快报

[031346]七里台 11:05:23

列位大虾，能用CAD发短信吗？

编程小白 11:10:03

CAD发短信？有这么先进的吗，

上木下鱼 11:10:42

不是先进，是这位台兄无聊

和光同尘 11:11:31

真的是非常无聊

[vormittag]桔子 11:12:03

去玩emacs吧，这个应该可以。

[vormittag]桔子 11:15:50

有句夸张的话说：Emacs是伪装成编辑器的操作系统。细细想来，这句话并不夸张。

[vormittag]桔子 11:16:25

Emacs其实是个Lisp的解释器，因此可以用Lisp灵活地扩展。 Lisp是什么东西，这同样是种很有生命力的编程语言。在C语言还没有发明的年代，MIT的人工智能实验室写ITS操作系统时，一部分用的是汇编语言，还有一部分就是用的Lisp。现在，Lisp仍在人工智能研究领域广泛使用着。

有这么牛逼的扩展语言，注定Emacs向着无所不能的方向发展。渐渐地，人们用Emacs不再限于写程序，写文档，而且在Emacs里管理文件系统，运行终端，收邮件，上网，听音乐……，真是一发不可收拾。甚至，有人用Emacs控制咖啡机煮咖啡。

笑对人生 11:20:26

各位大侠，帮助看看，我写了一个剪切小程序，怎么有些部分剪切不掉，什么原因

[qqimg]oldimg/{F0D938A3-5048-D6E0-185C-6C9DBC6BF352}.jpg[/qqimg]

笑对人生 11:21:21

[qqimg]oldimg/{874247C9-4F37-F968-990A-75C9EFD13279}.jpg[/qqimg]

(defun tr-pl()
       (setq n 0 m 1)
       (setq pt1 (nth n ptlists) pt2 (nth m ptlists))
       (setq ptmid (polar pt1 (angle pt1 pt2) (/ (distance pt1 pt2) 2)))
       (command "offset" 0.001 entname1 ptmid "")
       (setq entname2 (entlast))
       (setq ptlists (get-pl-ptlist entname2) n 0)
       (command "trim" entname1 "" "f")
       (while (nth n ptlists)
              (command (nth n ptlists))
              (setq n (1+ n))            
       )
       (command "" "")
       (command "erase" entname2 "")
       (if s2 
          (command "erase" s2 "")
       )
 )
 (defun get-pl-ptlist(entname)
        (setq entlist (entget entname)) 
        (setq n 0 ptlists nil ent_list t)
        (while ent_list 
             (setq en (nth n entlist))
             (setq ptlist (cdr en))
             (if (= (car en) 10)
                 (setq ptlists (cons ptlist ptlists))
             )
             (setq n (1+ n) ent_list (nth n entlist))
       )
       (setq ptlists (reverse ptlists))
)

笑对人生 11:22:22

剪切后图形中有几部分剪切不掉

笑对人生 11:23:25

[qqimg]oldimg/{9E39172C-574B-BCE3-2837-5DAAB31A432B}.jpg[/qqimg]

笑对人生 11:24:11

提示：Object does not intersect an edge.
Object does not intersect an edge.
Object does not intersect an edge.
No intersections in the interior of the curve.

明经快报

cre8or 12:11:52

为什么现在画室内大把人开始用inventor?具体好在哪？

明经快报

Tiger 12:23:25

【提示：此用户正在使用Q+ Web：http://webqq.qq.com/】

inventor便宜呗

算是比较低端的三维设计软件

明经快报

cre8or 12:46:15

3d方面不打算看 我只想知道inventer在cad方面的好处

Tiger 12:51:07

inventor就是个三维设计软件,纯画图那还不如autocad呢

cre8or 12:51:25

那不看它了

我只是看到它画大样之类的似乎比较快

Tiger 12:52:47

inventor出图也是先建立三维模型,然后产生出各种视图

cre8or 12:54:30

和cad建模一样？

Tiger 12:55:22

你说的cad是指autocad?

cre8or 12:58:13

是

Tiger 12:59:49

那完全不一样

Tiger 13:00:36

inventor是三维设计,可以动态模拟机械运动

cre8or 13:00:51

恩 看来也有好处

Tiger 13:00:51

autocad是纯静态的三维

cre8or 13:01:00

我不需要运动

我只需要精确 线少

cre8or 13:01:54

cad那模型经常乱加线 出大样还要一根一根删

明经快报

笑对人生 14:08:59

哦