2013-06-29 明经 AutoLISP 编程(102918348) 群聊记录：建立矩形和元的表，程序分二次建立

明经快报

[236004]张牙舞爪 01:45:41

建立矩形和元的表，程序分二次建立

明经快报

[OWEN7][qqou7]ya雀无声 09:20:02

WOWAN兄，你的刷子能不能用在 超级刷里，包括刷块，刷半径 等

明经快报

[7299969]人生 09:47:07

在哪呢

明经快报

[偏爱云~小吴] 10:01:52

Cad图太大如何快速打开2m其实也不算太大是吧

明经快报

[zxl01615]大森林 10:27:20

各位大侠，请教一个问题，在2008里面插入的图片路径怎么改成相对路径

[zxl01615]大森林 10:29:52

[qqimg]oldimg/{AB63E9EE-38CA-8A9D-995B-4CAC55F2D919}.jpg[/qqimg]

[kwok][kwok]巭隼 10:32:35

[qqimg]oldimg/{E7C38636-DA80-F28E-C491-6DFBE220F6E4}.jpg[/qqimg]er

[zxl01615]大森林 10:33:47

文件夹打包后发给别人，别人就打不开

就显示上面截图信息

[kwok][kwok]巭隼 10:34:24

那还什么绝对路径，文件放在一起就行

绝对路径别人会找不到路径的

[zxl01615]大森林 10:35:25

怎么设成相对路径呢

现在好像是绝对路径

不知道怎么设置

所以请教一下怎么处理

谢谢

[zxl01615]大森林 10:36:43

我是把图片都放到一个文件里面了

[kwok][kwok]巭隼 10:36:44

点你那个图片名，右键，找到路径，在里面选

[【KAIXIN】] [【KAIXIN】]炫翔 10:42:12

直接 OP设支持路径

明经快报

[Casa小宝]Cas 11:47:12

请问vs2002去哪里找呀

[VBALISPER]恐龙 11:47:47

据说网上没有了.

[Casa小宝]Cas 11:48:50

[qqimg]oldimg/{CA638F25-AA22-1F07-9083-A66ECAA317DA}.gif[/qqimg]

明经快报

[mmh1][mmh1]漫步地球 13:42:02

[qqimg]oldimg/{308C71B1-4E9F-099E-EB5D-7C47F94E7B9C}.jpg[/qqimg]
求一个摆正程序：
比如一个45度放置的矩形，根据其中一边摆正到0度，要求操作是：先选择对象，然后选择摆正线（就是沿着这条线摆正到0度）！
矩形为LWPOLYLINE线

[198526]DZ 13:43:07

旋转命令里不是有一个参照

[alwtyp][alwtyp] 13:45:07

如果是只有0度，还是编程快点。如果要到任何角度，还是用旋转的参照

[mmh1][mmh1]漫步地球 13:45:53

主要是LWPOLYLINE线，炸开后，再合成放回到集合里，不知道怎么弄

[vormittag]桔子 13:46:14

炸开干嘛？

[mmh1][mmh1]漫步地球 13:46:39

不炸开怎么得到线的角度？

[alwtyp][alwtyp] 13:46:46

前两天在论坛上看到一个程序，好像就用做这个，你再找找

[vormittag]桔子 13:46:52

任何形状的多段线都能很容易的摆过去。

[alwtyp][alwtyp] 13:47:38

旋转命令中的参照

[vormittag]桔子 13:47:45

不过就是一个变换而已。

[mmh1][mmh1]漫步地球 13:49:25

[qqimg]oldimg/{892A403D-4E55-12C2-93F0-10890E68BE92}.jpg[/qqimg]

如何求得线的角度？

[alwtyp][alwtyp] 13:53:01

你还是再学一下"旋转"这个命令

[mmh1][mmh1]漫步地球 13:53:59

帮忙写个，我试试，我不太理解
是rotate命令吗？

[vormittag]桔子 13:54:55

求拾取时的线上最近点的参数，参数取整，参数取整+1, 求这两个整参数的点，转换到对象坐标系然后求角度。

[mmh1][mmh1]漫步地球 14:02:00

最近点的参数是指什么？不是很理解，LWPOLYLINE线其中该点的这段线吗？

[alwtyp][alwtyp] 14:04:03

你先把rotate执行一下

[vormittag]桔子 14:04:43

vlax-curve-getClosestPointTo
vlax-curve-getParamAtPoint
你把这两个函数看一下。

[mmh1][mmh1]漫步地球 14:04:50

好的

明经快报

[ahwx0814]雨中漫 14:57:38

[qqimg]oldimg/{A01FB6D2-006F-15E5-FAA7-D5E70EE65860}.jpg[/qqimg][qqimg]oldimg/{0648F852-D77E-54A4-ED7F-CE781AB1F947}.jpg[/qqimg]

程序搞定

[mmh1][mmh1]漫步地球 14:58:07

我只是举个例子而已，平时的图很多东西的

[mmh1][mmh1]漫步地球 14:59:28

我也还差一点点

[kwok][kwok]巭隼 15:01:24

结合ALIGN取得最近点和最近端点自动转成也可以吧

[alwtyp][alwtyp] 15:03:44

用ROTOTE结合参照也一样

[mmh1][mmh1]漫步地球 15:05:00

参照没有点

[alwtyp][alwtyp] 15:05:31

参照也要有点

[mmh1][mmh1]漫步地球 15:05:59

问题是我选的是线，不选点

[ahwx0814]雨中漫 15:07:38

计算最长边，然后最长边放平

[mmh1][mmh1]漫步地球 15:08:02

(DEFUN C:Y2()
  (setq en (entsel))
  (setq ena (vlax-ename->vla-object(car en)))
  (setq p0 (vlax-curve-getClosestPointTo ena (car en)))
  (setq a (vlax-curve-getParamAtPoint ena p0))
  (setq a1 (+ (fix a) 1))
  (setq p1 (vlax-curve-getPointAtParam ena a1))
  (setq j (angle p0 p1))
  )
奇怪：
错误: 参数类型错误: 二维/三维点: 

[alwtyp][alwtyp] 15:08:36

我是说你如果不是有很多这样的东西要处理，只要ROTOTE就可以，如果多，要需要单独编个程序

[mmh1][mmh1]漫步地球 15:09:13

不多，一次就几百个

[仲文玉][仲文玉]wygjx 15:09:25

[ahwx0814]雨中漫 15:09:28

你发吧图发个给我

[vormittag]桔子 15:11:55

(cdr en)

(cadr en)

[阿然][阿然] 15:12:25

用command rotate不行？

[vormittag]桔子 15:13:16

数量多就很慢了。

[mmh1][mmh1]漫步地球 15:13:56

line线的话一直在用，就是有个同事问LWPOLYLINE线能不能不打散然后沿着这条线摆正

[mmh1][mmh1]漫步地球 15:14:46

选的经常是矩形之类的一边

[mmh1][mmh1]漫步地球 15:15:37

[qqimg]oldimg/{C70FFCEF-9905-3907-184A-AD66F287B2E3}.jpg[/qqimg]
比如这样的，最下面就是个LWPOLYLINE线画的矩形

[ahwx0814]雨中漫 15:16:01

这个也简单

[mmh1][mmh1]漫步地球 15:17:16

本来想先选中，然后打散矩形然后得到角度，再合并回去。放入选集中，再旋转

[vormittag]桔子 15:17:18

这些东西都是变换。

[vormittag]桔子 15:19:15

[qqimg]oldimg/{45E9FB5A-17BC-E715-0C8C-D817A53299D0}.jpg[/qqimg]

搞明白一些变换以后，这种都非常简单。

[yarp]潜水 15:19:48

桔子，cad没有提供这种变换吧？

[ahwx0814]雨中漫 15:20:06

这个不是变换，只是旋转

[阿然][阿然] 15:20:14

等比变化都有

不等比的没有

[vormittag]桔子 15:20:55

这些都是用点连成的线，只要对各点进行矩阵变换就可以了。

[阿然][阿然] 15:20:57

vla-TransformBy

[vormittag]桔子 15:21:04

然后重新生成。

[vormittag]桔子 15:21:44

vla-TransformBy 的变换很有限。

[vormittag]桔子 15:22:38

它所能应用的变换矩阵是有条件的。

不等比的变换和错切变换就不行。

[vormittag]桔子 15:24:41

旋转也是一种变换。

[yarp]潜水 15:26:54

哦。

[mmh1][mmh1]漫步地球 15:32:22

(DEFUN C:Y2()
  (setq ss (ssget))
  (setq en (entsel))
  (setq ena (vlax-ename->vla-object(car en)))
  (setq p0 (vlax-curve-getClosestPointTo ena (cadr en)))
  (setq a (vlax-curve-getParamAtPoint ena p0))
  (setq a1 (+ (fix a) 1))
  (setq p1 (vlax-curve-getPointAtParam ena a1))
  (command "rotate" ss "" p0 "r" p0 p1 0)
(princ)
  )
大师果然犀利啊，一句话就解决了！

明经快报

[偏爱云~小吴] 15:59:28

这个程序干嘛用的

明经快报

[vormittag]桔子 16:11:20

变换是一个挺有意思的东西，可以做成这样：
[qqimg]oldimg/{A933CD10-76D6-AB41-DBC6-B1C3D99F6521}.gif[/qqimg]

[kwok][kwok]巭隼 16:12:59

高层次的