2013-09-16 明经 AutoLISP 编程(102918348) 群聊记录：明经里面的悬赏贴怎么设为以解决？

明经快报

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

明经里面的悬赏贴怎么设为以解决？

[【KAIXIN】] [【KAIXIN】]炫翔 11:47:10

需要版主以上身份吧

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

额   那你能否帮我把http://bbs.mjtd.com/thread-107587-1-1.html
这个贴弄成已解决呢？
我在猫老师的指点下自己琢磨出来了

[q3_2006]q2 11:49:08

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

我现在不是版主了

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

哦...

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

玩好了？

[q3_2006]q2 11:50:19

来段演示呗。。

[328302216][328302216]小莫 11:50:24

主要是他里面有“隐藏”的变量

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

图像按钮可以？

点变量？

[328302216][328302216]小莫 11:50:52

现在还没完全弄好呢   只是思路问题解决了

[q3_2006]q2 11:51:23

必须的。。

[【KAIXIN】] [【KAIXIN】]炫翔 11:51:33

隐藏的变量  无非是循环得来的

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

呵呵  好 ！  不过可能还要过好些天才能弄好，明后天都有事可能没空弄

[【KAIXIN】] [【KAIXIN】]炫翔 11:52:16

循环 变量名加一 后面的内容跟着变

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

嗯嗯 就是循环得来的，因为原来有几个变量不太懂所以就卡在那里了

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

加一只是个最简单直接的

也可以是A B C D...

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

是几个函数

[【KAIXIN】] [【KAIXIN】]炫翔 11:53:09

嗯

思路通了 就好办

[q3_2006]q2 11:54:49

触类旁通

明经快报

[kwok][ww5w]行舟月下 12:35:05

请教一下，
(vl-cmdf "rename" "layer" "00" "a1")
(vl-cmdf "rename" "layer" "02" "a2")
上面这个改图层名的，如果不存在这个00图层时怎么自动怱略跳过?

[HNFSF](看海) 12:37:15

先判断

明经快报

[q3_2006]q2 12:55:16

(tblsearch "layer" layname)

明经快报

[kwok][ww5w]行舟月下 13:26:01

tblsearch可以同时查找多个图层名不?

[q3_2006]q2 13:26:41

应该不能吧。。

[kwok][ww5w]行舟月下 13:26:49

(tblsearch "layer" " 01, 02")这要可以不?

[q3_2006]q2 13:26:57

可以试试通配符

[kwok][ww5w]行舟月下 13:26:59

我试了一下好象不行

[pzweng][pzweng]路人 13:32:22

用foreach

明经快报

[OWEN7][qqou7]clever 14:30:17

http://bbs.mjtd.com/thread-107559-2-1.html

[tryhi]大海 14:30:19

http://bbs.mjtd.com/thread-107625-1-1.html

[OWEN7][qqou7]clever 14:30:20

[qqimg]201309/{1AD49BC0-7528-E289-FC70-32691B0BDFF1}.jpg[/qqimg]哎，贴个程序那么难呢

求 程序

[tryhi]大海 14:31:35

如何用一个多边形去切另外的多边形

[qqimg]201309/{25EF2164-0BB6-88DC-F116-0FC125E69DD4}.jpg[/qqimg]

白线的两个多边形是要准备切的，
红线是拿来切它们的，
绿线是生成的结果。

要切完之后生成的绿线跟原来的白线同一个图层，不知道怎么弄

明经快报

[tryhi]大海 15:54:14

请问一下变量支不支持数组的

或者类似数组

[pzweng][pzweng]路人 15:58:53

支

[tryhi]大海 16:07:21

请问格式怎样的

[yybu]yy 16:12:52

谁能给个64位的cad2004下载链接

[q530496591][q530496591]小菜鸟 16:13:52

这我也真不知

只听说过08以上的是64的

[yybu]yy 16:15:25

软件只支持2004,难道还要重装系统

[tryhi]大海 16:16:37

我用WIN7x64，还装CAD2002呢

[q530496591][q530496591]小菜鸟 16:17:15

听说有可以搞个双系统的

再装个32位的

明经快报

[tryhi]大海 16:27:39

使用region面域的时候有什么办法可以保留图层

比如有一个多段线是在1图层，但使用了region之后却变成了0图层，有什么办法可以避免

[pzweng][pzweng]路人 16:28:29

entlast

[tryhi]大海 16:30:07

懂了

[q3_2006]q2 16:35:38

CLAYER=1图层

明经快报

[LC100]建筑设计 16:48:16

[qqimg]201309/{EEE97493-E47C-665D-C9EF-E5A1088EAC2E}.jpg[/qqimg]

光标

[vormittag]桔子 16:48:49

ucs w

plan w

[LC100]建筑设计 16:49:25

哦。3ks

[caoyin][caoyin] 16:50:06

这种现象也有可能是光标角度被调整
SNAPANG 0

[LC100]建筑设计 16:52:10

改光标没什么，在拉伸命令框选的时候还是不能斜着用，只能画线，什么的。

[caoyin][caoyin] 16:52:30

哦

[caoyin][caoyin] 16:53:04

请教桔子兄，模型空间视图扭曲你是如何实现的

[vormittag]桔子 16:53:32

模型空间视图扭曲？

[caoyin][caoyin] 16:53:41

是的

[q3_2006]q2 16:53:46

有图吗，怎么个[qqimg]201309/{A9E51867-AAC4-644F-ACBC-74E83986EFBF}.jpg[/qqimg]法

[vormittag]桔子 16:54:01

没明白是什么意思。

[caoyin][caoyin] 16:54:15

扭曲前[qqimg]201309/{EA9E1F84-336A-108E-33B7-EECAB253F6A7}.jpg[/qqimg]

[qqimg]201309/{FFF26B4E-4768-C306-A9CF-347F6D89965B}.jpg[/qqimg]

扭曲后

[q3_2006]q2 16:54:56

这是旋转吧。。

[caoyin][caoyin] 16:55:16

[qqimg]201309/{33C8774B-CF77-9974-05F0-731EDAE601CA}.jpg[/qqimg]

原有对象没有编辑

[q3_2006]q2 16:55:55

ucs

[caoyin][caoyin] 16:56:05

只是视图扭曲，相当于布局中视口扭曲

[vormittag]桔子 16:56:07

自定义一个ucs，平面放在ucs的xy平面上，不是这样的么？

[caoyin][caoyin] 16:57:04

视口的扭曲是这个函数 vla-put-TwistAngle

等下 我发个图给你看看

[tryhi]大海 16:57:42

[qqimg]201309/{E57E30CC-E16C-6158-82CB-5D8309E408D1}.jpg[/qqimg]
这个多段线没办法用region面域，有没有解决的方法

[tryhi]大海 16:58:55

[qqimg]201309/{265BBB28-606C-AD90-5B3A-9EFA581D1176}.jpg[/qqimg]
这样画的

[caoyin][caoyin] 16:59:20

上传的文件中，视图扭曲了90度

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

你要将3维坐标显示出来才看得见嘛。

[caoyin][caoyin] 17:00:15

因为视口扭曲有现成的函数，视口扭曲不知道如何操作

[LC100]建筑设计 17:00:23

你说的这个是3维观察吧？

[caoyin][caoyin] 17:00:24

呵呵，不是旋转

[q3_2006]q2 17:00:33

UCS

[LC100]建筑设计 17:00:55

[qqimg]201309/{9D3D8C19-9502-B1EA-8674-4A6F9C1130E1}.jpg[/qqimg]

[caoyin][caoyin] 17:01:05

这样，你把文件中的对象复制到其他文档试试看

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

你要给这个东西给大家看啊。

[q3_2006]q2 17:01:39

这个费劲呀。。

[vormittag]桔子 17:01:53

这样不行么？

[caoyin][caoyin] 17:02:10

[qqimg]201309/{A7FF374D-92B7-A178-5423-56278664515D}.jpg[/qqimg]

[LC100]建筑设计 17:02:18

其它他是改了当前坐标系

[caoyin][caoyin] 17:02:23

从一个文档复制到一个新文档

就是上面两张截图

[LC100]建筑设计 17:02:54

你当前坐标系，跟新建的坐标系不一样。

[LC100]建筑设计 17:03:25

你输入plan w就变成正常的了。

[caoyin][caoyin] 17:03:50

是的

我的意思是LISP如何实现扭曲

[LC100]建筑设计 17:04:23

[qqimg]201309/{9828544B-305A-6B0A-2819-FB60FD8B2123}.jpg[/qqimg]

[vormittag]桔子 17:04:25

其实都没有变化，把新文档里建立一个原文档视图对应的ucs, 然后plan一下，就行了。

[LC100]建筑设计 17:04:33

输入plan 然后看提示

[vormittag]桔子 17:05:56

viewpoint 应该有表示当前视图的法向量吧。

[caoyin][caoyin] 17:06:18

LISP如何实现，桔子兄

[vormittag]桔子 17:06:54

我看看。

[vormittag]桔子 17:09:53

viewtwist 和viewdir 都是只读的系统变量，md

[caoyin][caoyin] 17:11:06

VLISP只提供了视口的扭曲函数

[vormittag]桔子 17:11:28

模型空间不能操作是吧？

[caoyin][caoyin] 17:11:37

是的

[vormittag]桔子 17:11:58

只能自定义ucs ，然后plan 了

[caoyin][caoyin] 17:12:12

哦

[caoyin][caoyin] 17:13:08

我都是用dview命令操作的

[caoyin][caoyin] 17:13:40

[qqimg]201309/{D86318AB-3D4E-F0F3-E1B7-911D2D487D1A}.jpg[/qqimg]

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

有什么用处

[vormittag]桔子 17:16:42

算出需要的ucs，然后plan， 自动的办法我只能想到这个。

[q3_2006]q2 17:23:26

(command "" "DVIEW" tw 90 "")

[q3_2006]q2 17:27:51

错了，这样 (COMMAND "DVIEW" "L" "" "TW" 90 "")

[LC100]建筑设计 17:28:29

TW台弯

[q3_2006]q2 17:28:53

tw指他说的扭曲

选项

明经快报

[VBALISPER]恐龙 18:53:58

cad2004有64位的吗

[LC100]建筑设计 18:54:00

不标这样了，怎么调回来。

plan w行了。

明经快报

[VBALISPER]恐龙 20:24:59

请问一下.VLISP里只有vla-get-Length,没有 vla-put-Length,是写掉了还是本来就没有这个

[ZZXXQQ] 20:25:58

PUT到哪里去？

[VBALISPER]恐龙 20:26:15

想修改线的长度.

[q530496591][q530496591]小菜鸟 20:26:18

他说改变长度的意思。

[VBALISPER]恐龙 20:27:09

Length 双精度；只读 
  线的长度。 
好象是不能改哈.

[pzweng][pzweng]路人 20:27:19

嗯

有ro就不能改

[ZZXXQQ] 20:27:29

可线条的种类很多，有的无法实现长度的改变

[q530496591][q530496591]小菜鸟 20:27:50

是改变什么的？直线还是弧啊？都不能改么？

[VBALISPER]恐龙 20:28:01

哦.多段线

[死者不舞] 20:30:01

哪位朋友有lisp读取excel的书，或者资料没有？

[q530496591][q530496591]小菜鸟 20:30:20

魔法书有啊

[浮世小半生]X 20:31:22

cad 自带的len命令就可以改长度啊

[VBALISPER]恐龙 20:33:45

浮世小半生,谢谢

[邹锋]Tony 20:33:51

[qqimg]201309/{547E4433-92F8-CA33-7733-1D094C251A6C}.jpg[/qqimg]

这是什么意思

[浮世小半生]X 20:35:18

嗯 真有礼貌

[zark]虚心请教 20:39:15

我只是忘了怎么展开了。

[vormittag]桔子 20:40:04

主要是这两个函数，一个是点积，一个是矩阵与向量的乘积。

至于放大和向量相加都很简单。

用一个lambda函数就可以了。

[zark]虚心请教 20:41:06

可是我都不懂怎么展开

全部还给老湿了

[qqimg]201309/{8F241E70-545E-ABD5-A5D4-2A755C93DD9C}.jpg[/qqimg]像这表达式，X2=。。。。。。

[vormittag]桔子 20:41:48

矩阵运算不会？

[zark]虚心请教 20:41:54

嗯

[vormittag]桔子 20:42:49

x2= (1+m)*(1*x1+wx*y1-wy*z1)+deltaX

[vormittag]桔子 20:43:24

矩阵行向量与列向量的点积。

[zark]虚心请教 20:43:43

应该是-WX*Y1吧

[vormittag]桔子 20:43:54

w就是欧米伽

[zark]虚心请教 20:43:57

有点想起来了

[vormittag]桔子 20:44:13

都是加

行列式计算才是有加有减

[zark]虚心请教 20:44:43

你括号里面WX好像要写成WZ

[zark]虚心请教 20:45:22

哦。大学没好好学，唉

[vormittag]桔子 20:45:26

矩阵里是行向量与 向量的点积。

[vormittag]桔子 20:45:56

[qqimg]201309/{5096B3E7-614E-1DFD-E311-0F322C197DF5}.jpg[/qqimg]

[zark]虚心请教 20:46:15

就是横*纵。都是+

谢谢哈

[zark]虚心请教 20:47:50

上面这个是七参数求解。