2013-09-24 明经 AutoLISP 编程(102918348) 群聊记录：什么意思？

明经快报

[蔡__洛]不快乐 08:32:46

什么意思？

[tryhi]大海 08:32:46

主要是没事的时候翻翻

[emk]小8点 08:32:47

新的一天开始了

[pzweng][pzweng]路人 08:32:46

下次就不用捞 了

明经快报

[蔡__洛]不快乐 08:54:01

块内坐标变换的那个函数终于正确了！累死

[pzweng][pzweng]路人 08:54:22

look

[蔡__洛]不快乐 08:55:03

不是我的自己写的那个变换函数错 而是我执行逻辑错了

[蔡__洛]不快乐 08:55:48

等下发源码

[pzweng][pzweng]路人 08:57:06

trans这个函数不够用？

[蔡__洛]不快乐 08:57:37

完全不够  trans需要一个程序的ucs坐标

[pzweng][pzweng]路人 08:57:54

你这个什么都不要？

[蔡__洛]不快乐 08:58:39

只需要一个 任意点和一个转角

其实功能是一样的 只是不用设置ucs浪费机器资源

[pzweng][pzweng]路人 08:59:08

弄个例子看看

[myfrankie]长风 08:59:38

[qqimg]201309/{93583974-F716-6811-751A-C996F18BD38D}.jpg[/qqimg]保存时出现这个是怎么回事？

[lisp-study]jun 09:00:49

需要块的比例系数不呢？

[蔡__洛]不快乐 09:02:19

比例变化的处理 暂时没

[lisp-study]jun 09:03:21

我写过一个 但是有种情况不得行 就是插入的块好像转不了

你试过没？

[蔡__洛]不快乐 09:03:47

我之前也是 就是在折腾这个问题 怎了好久

[pzweng][pzweng]路人 09:03:48

用command

[蔡__洛]不快乐 09:04:03

其实就是变换算法不对

[lisp-study]jun 09:04:39

那怎么搞的 很期待你的函数

[lisp-study]jun 09:06:00

好

[蔡__洛]不快乐 09:08:27

嵌套块 也可以递归调用 得到

[lisp-study]jun 09:09:04

嵌套的没整

[蔡__洛]不快乐 09:09:54

比例缩放 没做 考虑下加进去

[pzweng][pzweng]路人 09:10:14

这个用于什么地方

能否举个例子

[蔡__洛]不快乐 09:10:40

我是在做一个文字碰撞的检查程序

必须检查块里面的文字是否也碰撞

[lisp-study]jun 09:11:27

有用的很

[蔡__洛]不快乐 09:12:13

是啊  每次老总都说图面 很乱 文字重叠 图大了就很恼火！所以做一个一劳永逸

[lisp-study]jun 09:12:36

这个还是不得行 有利有弊

[蔡__洛]不快乐 09:12:46

嗯

[pzweng][pzweng]路人 09:12:58

我不知道用在哪里

[lisp-study]jun 09:12:58

有时候你文字避让好了 说不定图纸表达就有问题了

[蔡__洛]不快乐 09:13:11

是的  这样画图就不认真了

[蔡__洛]不快乐 09:13:53

画地下室密密麻麻的标注 很恼火没办法

[lisp-study]jun 09:14:05

[@231682564,@[蔡__洛]不快乐] 交流交流避让思路 我以前也整过 画地下室的时候字高搞错了 把我整安逸了

[蔡__洛]不快乐 09:15:12

我写过避让的 是用region面域实现的

但是很慢 几个字还可以 多了就卡了

[lisp-study]jun 09:16:04

面域那得把图搞的很大啊

噢

我做了一个简单的移位

[蔡__洛]不快乐 09:16:54

没有 只是借助面域来判断处理 每次处理完之后就删掉 面域

[lisp-study]jun 09:17:18

噢

[yarp]潜水 09:17:20

可能用vlax-get-boundingbox啊。

这样就不用画面域了。

[lisp-study]jun 09:17:44

对 我就用的这个

txtbox

[pzweng][pzweng]路人 09:19:19

让文字不要让线挡住的吧

[蔡__洛]不快乐 09:19:45

我做的是文字不要压住文字

[pzweng][pzweng]路人 09:20:30

那文字会不会移动很远

[蔡__洛]不快乐 09:21:24

移动多远要根据实际情况算出来的嘛

[pzweng][pzweng]路人 09:24:02

这个应该不难吧

[pzweng][pzweng]路人 09:24:49

你到论坛找找这类的程序改改就行了

[蔡__洛]不快乐 09:26:29

避让不难 不外乎就是算个新点 然后移动过去而已

明经快报

[THH] 09:47:23

两张底图一样的图纸，但是画了不同的系统，现在要将两个系统合并到一个底图上，但是复制过去后，放大了，是什么原因？怎么办？

[pzweng][pzweng]路人 09:52:53

单位问题吧

[THH] 09:53:18

单位看过了，一样的，全局比例因子也一样！

[pzweng][pzweng]路人 09:58:52

什么放大了

是图还是尺寸

[THH] 09:59:42

复制过去后，本来在底图范围内的图，放大了三倍以上，都出了底图了

[pzweng][pzweng]路人 10:06:03

你缩小回来一下

[THH] 10:09:55

恩，图纸比例变了，标注动态变化的，所以没发现，

恩，把小的放大一下就醒了

谢谢

明经快报

[lisp-study]jun 10:22:44

请问多段线中的圆弧怎么获取中点啊

[pzweng][pzweng]路人 10:28:55

vlax

你找找

[cie0588][cie0588] 10:29:11

vlax-curve-

[lisp-study]jun 10:29:23

那个要obj

我是多段系

多段线  有直线 又有曲线的那种

很多个点的

[pzweng][pzweng]路人 10:30:49

也可以的

[cie0588][cie0588] 10:30:53

vlax-curve-
处理任意曲线。

[pzweng][pzweng]路人 10:30:56

你试试看

[lisp-study]jun 10:31:15

有点想法了 谢谢

[pzweng][pzweng]路人 10:31:52

客气啥子哟

[lisp-study]jun 10:32:30

[stoyer][stoyer] 10:33:19

(setq ArcCenterPT (polar (polar p1 (angle p1 p2) (/ (distance p1 p2) 2)) (- (angle p1 p2) (/ pi 2)) (* bulge (distance p1 p2) 0.5)))

[pzweng][pzweng]路人 10:33:55

这是干什么用的

[vormittag]桔子 10:34:10

(setq en (entsel)
        obj (vlax-ename->vla-object (car en))
         pt (trans (cadr en) 1 0)
         pt (vlax-curve-getClosestPointTo obj pt))
(vlax-curve-getPointAtParam obj 
     (+ 0.5 (fix (vlax-curve-getParamAtPoint  obj pt))))

[stoyer][stoyer] 10:34:18

求多段线上弧的中点啊。

[vormittag]桔子 10:35:34

得到的是世界坐标系下的点。

[pzweng][pzweng]路人 10:35:43

没有vlax开头是不行的

[stoyer][stoyer] 10:36:09

不会啊，我一直用得很好。

[pzweng][pzweng]路人 10:36:10

桔子考虑的很全

[vormittag]桔子 10:36:30

一样行，只不过麻烦点而已。

明经快报

[lisp-study]jun 10:56:32

[qqimg]201309/{767613DF-D0B7-AC4F-467D-EFE5745B6C28}.jpg[/qqimg]这个怎么回事啊？
用getpoint有返回值 但是用点值就不行了

[stoyer][stoyer] 10:57:24

点值要转成安全数组

[cie0588][cie0588] 10:57:43

精确地的问题吧

[lisp-study]jun 10:57:44

怎么转？

[pzweng][pzweng]路人 10:57:47

这个点不在线上

[cie0588][cie0588] 10:57:51

精确度

[pzweng][pzweng]路人 10:57:55

不要转

[cie0588][cie0588] 10:58:00

不需要转

[lisp-study]jun 10:58:12

值是一样的啊 怎么不在线上呢

[pzweng][pzweng]路人 10:58:18

精度

[阿然][阿然] 10:58:21

要先getclosestpointto

[lisp-study]jun 10:58:51

噢 还是精度的问题

明白了

[pzweng][pzweng]路人 10:59:00

(vlax-curve-getClosestPointTo curve-obj givenPnt [extend])

[lisp-study]jun 11:00:30

明白了 谢谢了

ok

[阿然][阿然] 11:03:15

桔子在不？

[vormittag]桔子 11:04:00

哎？

[阿然][阿然] 11:04:02

平面上一个点绕另一个点旋转，有啥好办法？

[vormittag]桔子 11:04:42

球。

[阿然][阿然] 11:04:52

就是xy平面上的事

[vormittag]桔子 11:05:07

那就是圆啊

[阿然][阿然] 11:05:19

知道你向量比较强，写几行给我呗

[lisp-study]jun 11:05:33

角度加polar不行么

[阿然][阿然] 11:05:37

一个点绕另一个点旋转后，得到新点

觉得角度加polar比较慢，所以想请桔子兄给看看

[vormittag]桔子 11:06:06

polar应该可以啊

[阿然][阿然] 11:06:25

polar肯定可以，我想有没有数学算法

[vormittag]桔子 11:14:23

两点间向量+长度比例为正切值的切向量，然后缩短向量长度为两点向量长度。

[vormittag]桔子 11:15:50

如果你中间计算的旋转角是正切值时可以这样做。

明经快报

[永不言弃]梦 12:26:48

请教一下，哪位大哥有检查高程点是否正确的相关程序，谢谢

明经快报

[tiyi8888]永远D痛 12:41:09

为什么要检查

如何对比呢

[永不言弃]梦 12:42:33

与等高线对比

明经快报

[hehoubin]Havis&哈维斯 14:04:29

终于来到了此群。。

[pzweng][pzweng]路人 14:04:40

群昵称修改为“[论坛用户名]网名”格式，如果你未加入明经CAD社区，请先到http://bbs.mjtd.com注册用户。

[hehoubin][hehoubin]哈维斯 14:08:31

已经改好。。

明经快报

[BB建筑师][R-BB勇] 14:27:15

有人研究过PL线直接附值不？例如一些报建通的原理。这种程序是如何实现的？

明经快报

[lisp-study]jun 15:24:19

请问多段线的重合部分怎么求？
[qqimg]201309/{2D7DF025-C36E-E4D0-4129-EB998DCAA335}.jpg[/qqimg]

[pzweng][pzweng]路人 15:25:23

判断点

[pzweng][pzweng]路人 15:25:54

4个点在一条线上

[lisp-study]jun 15:26:00

交点求出来了 然后怎么判断

[pzweng][pzweng]路人 15:26:11

不用求交点

把多线段的点全部提出来

[lisp-study]jun 15:26:23

我要求重合部分的长度

[pzweng][pzweng]路人 15:27:09

然后把(car pt)和(cdr pt)求出来

[pzweng][pzweng]路人 15:27:39

如果有4个点在一条直线上

要求交点的

不难，但是繁锁

[lisp-study]jun 15:28:23

这样得算多少次啊 很慢噢

[pzweng][pzweng]路人 15:29:06

他们不是有个删除重复线的程序吗

[lisp-study]jun 15:29:35

overkill？

[pzweng][pzweng]路人 15:30:08

我想里面就是判断这个的

[lisp-study]jun 15:30:27

直线好办撒 多段线难噢

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

你把多线段的点提出来就相当于直线了

[wqq8081]光辉岁月 15:31:00

有人要学徒吗？我一点也不会。不知道从哪学起。

[pzweng][pzweng]路人 15:31:15

相邻的两个点就是一条直线

如果有圆弧就没法子了

[lisp-study]jun 15:31:32

我知道 但是这样的话要比较很多次 很费资源的吧

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

应该不会

只能遍历了

[lisp-study]jun 15:32:56

就是啊 不想遍历的嘛

[永不言弃]梦 15:32:58

谢谢

请教一下，制作安装文件时怎样加载菜单文件[qqimg]201309/{30DEE375-43C6-934C-D44C-2FE2B4F30C4D}.jpg[/qqimg]

[vormittag]桔子 15:34:11

编写一个lsp加载菜单文件和程序。

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

你搞的太高级了吧，

[永不言弃]梦 15:34:48

不会写