2013-08-01 明经 AutoLISP 编程(102918348) 群聊记录：午夜咖啡哥 在吗

明经快报

[AMKYUD][AMKYUD]??? 15:38:13

从一个点到一直线通过捕捉垂足画垂线，怎样写啊？

[AMKYUD][AMKYUD]??? 15:39:09

(command "line" p10 (setq p11 (osnap p10 "_end,_per"))  "")好像不行

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

最近距离？

[AMKYUD][AMKYUD]??? 15:41:02

垂足

[cie0588][cie0588] 15:43:03

vlax-curve-getClosestPointTo获得最近的点，
用这个是不是好些。

[AMKYUD][AMKYUD]??? 15:43:36

我要的是垂足

[AMKYUD][AMKYUD]??? 15:44:24

从p10做p3-p7直线的垂线，垂足是p11

[cie0588][cie0588] 15:45:10

点到直线最近的距离 不就是垂足啊

[AMKYUD][AMKYUD]??? 15:45:59

是哦。谢谢大家

明经快报

[AMKYUD][AMKYUD]??? 16:05:45

原来vlisp也有指针的概念

明经快报

[AMKYUD][AMKYUD]??? 16:17:56

[qqimg]201308/{5F1FFEE6-9B2D-AEF6-1676-38133ED57F31}.jpg[/qqimg]

[XQL]强 16:18:29

vlisp

[AMKYUD][AMKYUD]??? 16:20:19

大家有没有好的vlisp资料推荐？
这个《Visual+LISP程序设计(AutoCAD+2006)》太难看懂了

[AMKYUD][AMKYUD]??? 16:21:44

清华大学出版社的这个《Visual LISP程序设计(AutoCAD 2006)》太难看懂了

[XQL]强 16:22:10

容易

[AMKYUD][AMKYUD]??? 16:22:55

因人而异

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

分享来看看

[AMKYUD][AMKYUD]??? 16:23:45

你没有？

[XQL]强 16:23:56

我的百度网盘有LISP资料

大家去下载

vlxload 9582837886
http://pan.baidu.com

[500w008]宝林 16:25:00

[qqimg]201308/{D0F17804-8604-38EF-5E0D-C8BC5087A9DF}.jpg[/qqimg]

[500w008]宝林 16:25:36

求过多边形线框内一点 并返回 黄色线长度

谁有这样一段代码

[阿然][阿然] 16:31:09

(defun 函数名 nil
  (......)
)

[pzweng][pzweng]路人 16:31:58

有

什么意思

有完整的没有

明经快报

[阿然][阿然] 16:48:02

恩

[yeahyeah]王晓平 16:55:38

lisp函数嵌套是否限定使用的函数数量？

command矩阵ar时后面的L是什么意思？

[阿然][阿然] 16:55:58

entlast的意思

[阿然][阿然] 16:58:56

所有出现

[qqimg]201308/{FE028809-5F10-76A0-BA8E-DB5F50989926}.jpg[/qqimg]选择对象的时候

都可以用l响应

[阿然][阿然] 17:00:05

[qqimg]201308/{0B58E7C5-6C34-EECB-7B2C-F1CE544628E9}.jpg[/qqimg]

[yeahyeah]王晓平 17:01:23

用手机看图片看不见，回家了在跟你们说

[yeahyeah]王晓平 17:02:16

今天下班前我想设计个程序还设计失败了，还有问题问大家

[flytoday]过^-^客 17:06:46

[阿然][阿然] 17:07:23

等失败当妈了，你就成功了

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

阿然，这是干嘛的

[阿然][阿然] 17:15:40

得到当前document

就是不懂为什么要这么写

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

就这个功能？

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

(vla-get-activedocument (vlax-get-acad-object))这句不就得了？

defun的语法都没这样定义

[阿然][阿然] 17:17:16

只知道这么写第一次运行(LM:acdoc)的时候会一步一步执行，第二次的时候直接就返回值，不运行了

[500w008]宝林 17:18:52

[qqimg]201308/{5768F3E4-BF36-DD95-1347-58D68AB394E7}.jpg[/qqimg]

[linshiyin2]大地 17:24:56

cad2010、11、12、13、14哪个版本好用？

[阿然][阿然] 17:26:28

[qqimg]201308/{A78E529C-3F1D-52B8-80D1-8709DD2F31D4}.jpg[/qqimg]用这个

[pzweng][pzweng]路人 17:26:48

这个行吗

[linshiyin2]大地 17:26:59

我知道这个

[阿然][阿然] 17:27:01

行，支持到2013了

[linshiyin2]大地 17:27:24

高版本的cad哪个好用

[阿然][阿然] 17:28:08

99%只做2D图，2004就够了

[linshiyin2]大地 17:28:25

败给你们了

[linshiyin2]大地 17:29:18

我觉得还是2008好用，，04不习惯，

要直接支持2010格式，所以，高版本哪个好用12还是10

[阿然][阿然] 17:29:51

啊？

[pzweng][pzweng]路人 17:29:58

我这里下载不了

[vormittag]桔子 17:30:15

12比10好

[pzweng][pzweng]路人 17:30:47

正版软件是不是每年都要交钱？

[NetBee]网蜂 17:30:48

唉，有些图用10转低版本，用2006打开出图。

[linshiyin2]大地 17:30:50

09到10质的变化

12如何呢？

[yeahyeah]王晓平 17:32:00

一堆bug才能看出调试的功力不是么

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

(defun LM:acdoc nil
    (vla-get-activedocument (vlax-get-acad-object))
)

阿然看一下

[linshiyin2]大地 17:32:10

[qqimg]201308/{6EC90019-C053-6A12-15AB-50320ACB1E70}.jpg[/qqimg]

[yeahyeah]王晓平 17:32:44

[yeahyeah]王晓平 17:33:45

我的保存直接设置的就是2004版本的，放置业主打不开

防止

一切只为了更好地为业主服务

[duotu007]查理 17:40:46

这个没多少钱的

我们自己都开了，H600的，精博附件

[duotu007]查理 17:48:23

晕，发错地方了，不好意思

[pzweng][pzweng]路人 17:53:23

要发到哪？

[yeahyeah]王晓平 17:59:54

看见图片了！谢谢阿然！

[XQL]强 18:01:07

opendcl  课程 18点10分开始

上课的联系

[yeahyeah]王晓平 18:10:28

到哪上啊？免费吗

[XQL]强 18:10:53

免费

[yeahyeah]王晓平 18:12:15

不知道到哪上

明经快报

[yeahyeah]王晓平 18:31:05

(defun c:mcir3()
   (setq pa (getpoint "第一点:"))
   (setq pb (getpoint "第二点:"))
   (setq mpt (osnap pts "m2p"))
   (command "pasteclip" mpt)  
   (prin1)

)

[yeahyeah]王晓平 18:33:21

我的想法是这样的：先带基点复制一个图元，然后执行这个命令，要想达到的效果是在两点之间的中点处粘贴剪贴板中的图元对象，试了没成功。。。

[yeahyeah]王晓平 18:34:10

那位老师帮着看下，怎么回事。。

[yeahyeah]王晓平 18:35:11

桔子老师救我。。

[yeahyeah]王晓平 18:35:42

;先带基点复制一个图元，然后执行这个命令，要想达到的效果是在两点之间的中点处粘贴剪贴板中的图元对象

明经快报

[yeahyeah]王晓平 18:46:11

为什么这个不行呢  (setq mpt (osnap pts "m2p"))

[yeahyeah]王晓平 18:55:40

我的cad快捷键书上说的

[yeahyeah]王晓平 18:56:17

比如mid是捕捉线的中点

[yeahyeah]王晓平 18:58:48

http://zhidao.baidu.com/question/102944897.html

[vormittag]桔子 19:00:02

[vormittag]桔子 19:01:18

你还不如这么写
   (捕捉中点) 或者 (buzhuozhongdian)

[yeahyeah]王晓平 19:01:50

那也行

[yeahyeah]王晓平 19:08:38

[yeahyeah]王晓平 19:10:40

哈哈哈！我知道怎么回事了！变量pts没有，变量错误了

[yeahyeah]王晓平 19:15:47

谢谢大家！

明经快报

[优先级][oldenn]河马 19:52:14

[qqimg]201308/{29B85022-BD7C-E2F2-3CB8-5A009BFCC947}.jpg[/qqimg]为什么有些填充图案在特性里面不能显示面积？

[qqimg]201308/{F587C654-DA3A-0228-F366-DC29BFDE4DD4}.jpg[/qqimg]

[楚留香] 19:53:19

是的

我就有个程序总是时不时出问题

没明白原因

后来发现就是有些填充面积提取不出来

有些能提取出来

[why1025][7299969]人生 19:55:06

[ZZXXQQ] 19:55:12

直接用命令AREA就行

[优先级][oldenn]河马 19:56:17

命令: area
指定第一个角点或 [对象(O)/加(A)/减(S)]: o
选择对象:
选定的对象没有面积

[优先级][oldenn]河马 19:57:19

[qqimg]201308/{685C74BA-80C2-2297-57BE-3428F6987235}.jpg[/qqimg]生产的填充边界

生成的填充边界

明经快报

[piecewave]阿波菲 21:33:16

请问如何选择压盖块的线

[236004]张牙舞爪 21:35:20

SSGET F

[piecewave]阿波菲 21:40:38

那是选经过线的块

明经快报

[野狼谷]笨鸟 21:53:09

哦，这个功能不错啊

[优先级][oldenn]河马 22:01:56

[qqimg]201308/{C7364E67-7806-0F15-8DAC-07D41F4936E1}.jpg[/qqimg]

[ZZXXQQ] 22:02:47

路径不对，设置后重新编译菜单

[]Tony 22:05:43

这样的话会出错，所以想加个判断

[]Tony 22:08:06

不知怎么用lambda这个函数

明经快报

[aroom]aroom 22:20:09

先判别，后取值
(if (setq al (assoc aa pl)) (setq  entext (cdr al)))

[]Tony 22:23:25

哦，明白，理角了，如果IF成立，就取值

妙

[]Tony 22:25:18

[qqimg]201308/{8D6F9707-1992-5DAB-B5AA-165FA73D3832}.jpg[/qqimg]

[野狼谷]笨鸟 22:29:58

[qqimg]201308/{C7364E67-7806-0F15-8DAC-07D41F4936E1}.jpg[/qqimg]
我也出现过这个问题，后来重装cad了

[]Tony 22:30:30

傻

[yeahyeah]王晓平 22:40:16

[qqimg]201308/{C7364E67-7806-0F15-8DAC-07D41F4936E1}.jpg[/qqimg]发生这情况怎么办啊

[ZZXXQQ] 22:40:40

[ZZXXQQ](1468225785)  22:02:23
路径不对，设置后重新编译菜单

[yeahyeah]王晓平 22:41:02

我今天倒是没发生这情况，而是CAD那面失灵了，我只好把CAD统统关了

怎么设置路径