2013-10-11 明经 AutoLISP 编程(102918348) 群聊记录：我装了2014

明经快报

[emk]小8点 08:13:48

我装了2014

明经快报

[why1025][7299969]人生 08:57:47

http://bbs.mjtd.com/forum.php?mo ... page%3D1&page=1

zheg这个怎么用啊

明经快报

[328302216][328302216]小莫 10:36:46

$reason  这个是表示什么的？好像不是变量

[小伟jeny]小伟 10:39:00

求教，图幅号该咋算那

明经快报

[myjping]七叶 10:51:48

请问如何得到对象的局部坐标系

明经快报

[vormittag]桔子 11:20:19

不存在什么对象的局部坐标系。自己定义。

[caoyin][caoyin] 11:27:50

估计说的是OCS

[丽丽星空] 11:34:57

通过编程连线两个点，在世界UCS是能连接的，但是自定义旋转了UCS就不正确了，该怎么办？

[vormittag]桔子 11:35:35

trans到世界坐标系

[丽丽星空] 11:36:29

自定义的UCS可能随时的更改，trans能否随时跟着改的？

[q3_2006]q2 11:38:19

块内的坐标转WCS，怎么转？？

[vormittag]桔子 11:39:02

转换矩阵转换。

[q3_2006]q2 11:39:32

不会。。有现成的函数吗？？

矩阵

[丽丽星空] 11:41:53

有无存储当前UCS的系统变量？我连线时恢复WCS，连线完后变会自定义UCS

[vormittag]桔子 11:43:32

存储当前UCS的是三个变量，都是只读。

[vormittag]桔子 11:44:44

直接把点在WCS和UCS中trans不就行了。干嘛要来回换UCS？

[丽丽星空] 11:45:29

嗯，我研究一下，谢谢 [vormittag]桔子

[wchsunshine][wchsunshine]Mr.王 11:47:32

[qqimg]201310/{AB61ED69-F26E-8E84-54C6-1FABE19C587A}.jpg[/qqimg]

[wchsunshine][wchsunshine]Mr.王 11:48:14

[qqimg]201310/{BC7FB31C-9DBE-24F3-C855-A9E84008A117}.jpg[/qqimg]

[wchsunshine][wchsunshine]Mr.王 11:49:16

求两个程序   请高手帮忙弄下 ,xiexie

[lisp-study]jun 11:51:41

请问 lisp的全局变量是不是没个lisp文件是单独的

[wchsunshine][wchsunshine]Mr.王 11:52:55

有人可以帮忙吗 ，可以给你辛苦费

[lisp-study]jun 11:55:44

记一个表哥运行？

表格运算？

[wchsunshine][wchsunshine]Mr.王 11:55:57

是的

主要是为了计算明细表的时候方便

[lisp-study]jun 11:56:34

你发个样图给我试试

[wchsunshine][wchsunshine]Mr.王 12:02:29

求程序，样图在群共享里面  麻烦高手帮忙看下  看能不能做 ，谢谢

明经快报

[cvbnm8888] 男人 12:59:01

这个应该比较简单吧

就是加减乘除

明经快报

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

纳闷

EXCEL不用

干嘛非要用CAD做这种破什子

[丽丽星空] 14:00:00

(trans pt3 1 0) 怎么转不了UCS？

[vormittag]桔子 14:00:34

从ucs转到wcs啊。

[丽丽星空] 14:01:12

或 (trans pt3 0 1)，都没反应

[vormittag]桔子 14:02:02

返回值不赋值，有啥用

(setq pt3 (trans pt3 0 1))

[丽丽星空] 14:02:42

……

范低级错误

[丽丽星空] 14:07:13

函数错误: (23016.2 7530.71 0.0)

[丽丽星空] 14:10:07

可以了，谢谢 [vormittag]桔子

明经快报

[野狼谷]笨鸟 14:20:56

求助：如何判断点pt是否在点表plist范围内?

有个取巧些的办法首选在此坐标点建立一个点图元利用选择集(ssget "CP" (list p1 p2 ....pn))
这个方法太麻烦

还有么别的简单办法

[hehoubin][hehoubin]哈维斯 14:21:34

[xzz007][xzz007]lisp编程 14:21:53

网上有哈

[野狼谷]笨鸟 14:22:15

哪？？

[xzz007][xzz007]lisp编程 14:22:29

明经

你去=搜索一下

[野狼谷]笨鸟 14:23:03

我的方法是：根据多边形的各个顶点，可以求出出多边形的最大最小范围，然后在这个范围外任意选一个点，比如最小x、y各减100得到的点。用这个点和你的已知点就有了一条直线。用这个直线和多边形的每个边求交点，记录交点个数。交点个数是奇数时点在多边形内，偶数时（包括0），点在多边形外。

这也是一个笨办法

[野狼谷]笨鸟 14:24:16

高手出来支招啊

[BirdSKY]飞鸟 14:24:28

好高深

[野狼谷]笨鸟 14:24:42

不高深吧

[野狼谷]笨鸟 14:26:24

[xzz007]lisp编程(66440902)  14:22:50
明经
你去=搜索一下
没收到啊！

[野狼谷]笨鸟 14:28:13

返回值是啥？

[xzz007][xzz007]lisp编程 14:29:32

有说明

[野狼谷]笨鸟 14:31:25

哦，好像他是利用射线判断射线与线框的交点 与这个点的距离关系

可能会有bug

[野狼谷]笨鸟 14:33:04

[qqimg]201310/{84FAA623-DFE8-D340-866A-3088F3B88DCF}.jpg[/qqimg]

[xzz007][xzz007]lisp编程 14:33:22

你可以测试一下

我没测试过

[野狼谷]笨鸟 14:33:32

嗯

[q3_2006]q2 14:37:33

感觉用选集更准确。。

[野狼谷]笨鸟 14:38:59

先试试看吧，

[cvbnm8888] 男人 14:42:56

我觉得可以这样

[cvbnm8888] 男人 14:44:13

把点列表画出一个闭合的多边形，然后设置视角高度，用这个点去提取多边形

如果成功，说明点在多边形内

如果不成功说明在外面

[野狼谷]笨鸟 14:44:59

视角高度？？

[q3_2006]q2 14:45:19

怎么做。。不懂

[cvbnm8888] 男人 14:45:31

就是保证多边都在框内

[cvbnm8888] 男人 14:46:53

（command zoom c pt 高度）

就是zoom命令

保证多边形都在cad编辑框内

[q3_2006]q2 14:49:59

这是什么原理，还是不懂。。

[cvbnm8888] 男人 14:50:09

就是利用boundary命令创建多边形

[q3_2006]q2 14:50:28

跟视角有啥关系？？

[cvbnm8888] 男人 14:50:34

如果点在多边形內就可以创建好多

如果多边没有全部在编辑框内

也会创建多边形失败

[q3_2006]q2 14:52:40

写代码上来吧。。真的看不懂。。只能测试程序。。

[cvbnm8888] 男人 14:52:51

。。。

[q3_2006]q2 14:52:59

也学一手。。方法好奇特。。

[cvbnm8888] 男人 14:53:13

办公室电脑不能上网

[cvbnm8888] 男人 14:56:33

你测试一下boundary命令就明白了

[q3_2006]q2 14:57:52

明白你说什么了。。呵呵。。

[q3_2006]q2 14:59:32

点在外面。。程序会是死循环吧。。。怎么处理。。

[cvbnm8888] 男人 15:01:13

entlast

[cvbnm8888] 男人 15:01:43

先entlast，得到一个图元名

[cvbnm8888] 男人 15:02:17

创建闭合圈，再entlast得到一个图元名

如果两个图元名不一致说明创建成功

[q3_2006]q2 15:03:11

那就是选集的方法呀。。

[cvbnm8888] 男人 15:03:49

选集？

[阿然][阿然] 15:04:36

面积法判断

[q3_2006]q2 15:04:59

网上都是这个面积法。。我不太懂。。

高手解释一下。。

[cvbnm8888] 男人 15:05:56

对哦，面积应该更简单

[阿然][阿然] 15:06:06

这种数学的东西桔子比较擅长

[cvbnm8888] 男人 15:08:13

把所有的点连接成闭合的多段线

然后用area得到面积

[野狼谷]笨鸟 15:09:24

经过测试，(defun dzdbxn (xdb xpt / fhz mxb myb n i mx my nn p1 p2 p12 pxy)
这个函数正常，不存在这个问题
[qqimg]201310/{84FAA623-DFE8-D340-866A-3088F3B88DCF}.jpg[/qqimg]

明经快报

[onandoff][onandoff] 15:34:54

[野狼谷]笨鸟 15:37:04

看帮助呗

明经快报

[tryhi]大海 16:01:27

(defun c:ccd()
(command"_pasteclip" "0,0" "")
  )


请问一下，我执行这句之后将窗口定位到这个图形上面