2013-05-29 明经 AutoLISP 编程(102918348) 群聊记录：[image={647A09C4-94C1-1C8F-EF79-FF3359

明经快报

[zhuquanmao]关中 08:25:32

[qqimg]oldimg/{647A09C4-94C1-1C8F-EF79-FF3359FDC1D2}.jpg[/qqimg]怎么把他正过来？

[ds-limt]-厨师木 08:26:24

ucs,w

plan,w

[zhuquanmao]关中 08:26:57

真还没用过这个命令

厨师画图也这么厉害

[ds-limt]-厨师木 08:27:56

嗯，我是画锅

[阿然][阿然] 08:29:04

http://bbs.mjtd.com/thread-90335-1-1.html现在大佬们都不讨论这样的内容了

明经快报

[linshiyin2]大地 08:59:17

是最高尚宫吧

明经快报

[zhuquanmao]关中 09:21:14

为啥我自定义的菜单每次都需要重新加载一遍才能出现 WIN7+理正

[kwok][kwok]巭隼 09:29:55

请问一下，怎么在点表的每个点上画一条垂直线?

[夏生生][x_s_s_1]生无可恋 09:31:10

垂直点表？

[夏生生][x_s_s_1]生无可恋 09:32:02

垂直于谁？

[夏生生][x_s_s_1]生无可恋 09:32:52

一个点的垂直线有无数条

[kwok][kwok]巭隼 09:32:56

newplst 这个表生成的一条线，然后想在每个点处再画一条垂直的线

一品缘 09:33:00

[qqimg]oldimg/{5D1435D8-F0DF-8A91-6B99-4DCD44B6DED7}.gif[/qqimg]

急求高手能帮我遍这种出来

[夏生生][x_s_s_1]生无可恋 09:33:39

不可能只画一条，会有两条

[kwok][kwok]巭隼 09:33:42

newplst 这个表生成的一条线，然后想在每个点处再画一条垂直的线,也就是垂直由点表生成的线

[kwok][kwok]巭隼 09:35:11

那为什么画圆就只有一个圆，上面发的码是在论坛找到的，就是不到画垂直线的

[夏生生][x_s_s_1]生无可恋 09:35:37

[qqimg]oldimg/{08E53D3A-BAF4-8C82-131B-B7C33F19A820}.jpg[/qqimg]

哥你是学啥的

[kwok][kwok]巭隼 09:36:19

不会过样，点表生成的是直线

[夏生生][x_s_s_1]生无可恋 09:37:12

所谓垂线至少有两个必要条件垂直于谁，所过点

你自己想想你的问题成立不

[kwok][kwok]巭隼 09:38:45

[qqimg]oldimg/{BB22783B-9188-B4E7-C153-54AC152FBB0F}.jpg[/qqimg]

[kwok][kwok]巭隼 09:40:14

画圆是解决了，现在想画一线垂直线，在已有多段线的每个端点newplst

[夏生生][x_s_s_1]生无可恋 09:44:48

组成两个点表，相应的可以表一元素1和表二元素1可形成一条直线，然后求出该直线的angle，polar你需要的距离角度为angle+(/ pi 2)

[夏生生][x_s_s_1]生无可恋 09:45:20

你的明白？

[kwok][kwok]巭隼 09:46:33

我想加个点
(setq p3 (polar p1 (* pi 0.5) 1000))定这条线的长度，然后点表以这个来画，可以不

[夏生生][x_s_s_1]生无可恋 09:47:23

你的线是平行于X轴的呢？

你的线是不平行于X轴的呢？

[kwok][kwok]巭隼 09:47:37

是的确

[夏生生][x_s_s_1]生无可恋 09:47:48

先要有角度

[夏生生][x_s_s_1]生无可恋 09:48:37

按照我刚才的思路可以做到这样的效果[qqimg]oldimg/{B26BF537-B967-528F-81C1-78D1E9B818C8}.jpg[/qqimg]

明经快报

[夏生生][x_s_s_1]生无可恋 09:59:00

[qqimg]oldimg/{39DF1DF6-62E2-DC4B-185F-C5145C2878EB}.jpg[/qqimg]

[夏生生][x_s_s_1]生无可恋 10:01:28

你如果需要再处理这些线的话可以将entmake改为entmakex

[kwok][kwok]巭隼 10:01:39

谢谢

[夏生生][x_s_s_1]生无可恋 10:01:47

不客气

[kwok][kwok]巭隼 10:02:41

我在学论坛里的一个lsp把多线段展直并画垂直线

[夏生生][x_s_s_1]生无可恋 10:05:13

画展开线吧

圆弧部分不好处理

[kwok][kwok]巭隼 10:06:05

是的，

[vormittag]桔子 10:10:10

每一段长度求出来画直线不就结了？

[夏生生][x_s_s_1]生无可恋 10:12:19

对于拟合的可以先判断点距小于多少的点删除

[328302216][328302216]小莫 10:13:48

怎么得到多行文字的方框坐标？用textbox好像只能得到单行文字的方框对角点坐标！！

[328302216][328302216]小莫 10:16:25

明经快报

[阿然][阿然] 10:30:17

试一试多行文字的42和43组码

[328302216][328302216]小莫 10:33:39

嗯  谢谢 阿然兄

[夏生生][x_s_s_1]生无可恋 10:35:14

阿然兄，请问(bpoly pt [ss vector])中的向量是任意的吗

[阿然][阿然] 10:37:42

我原来理解的是bpoly用的是射线法测试闭合区域，给了vector就是给他指定几个方向做射线

也不知道是不是这样

[夏生生][x_s_s_1]生无可恋 10:38:30

谢谢，您这么一解释感觉应该是的

[阿然][阿然] 10:39:00

还是要大佬出来总结发言下才是王道

[夏生生][x_s_s_1]生无可恋 10:39:41

还有bhatch这两个函数折磨我很久了，现在还是用command呢

[阿然][阿然] 10:40:05

hatch我用vla的方法

[夏生生][x_s_s_1]生无可恋 10:41:14

[夏生生][x_s_s_1]生无可恋 10:42:33

hatch这鬼东西entmake搞死人

我搞了个很不理想

尤其是渐变色部分

[阿然][阿然] 10:43:11

我这个不通用，你看着改吧

[夏生生][x_s_s_1]生无可恋 10:43:33

谢谢了，通用很难

[夏生生][x_s_s_1]生无可恋 10:44:26

考虑的东西太多，研究了他的组码，对于二次曲线比较困难

明经快报

一品缘 11:30:30

有谁能帮我写这样的一个程序：在多个封闭区域的多段线的情况下把它们桥接起来成为一个整体，而且桥接的两条线的距离是0.1MM，如下图GIF动态图片所表示，桥接后仍然是多段线！
[qqimg]oldimg/{CDDC1D37-FF55-C980-CF22-1D77C87A8D64}.gif[/qqimg]

[kwok][kwok]巭隼 11:33:01

画双线修剪，闭合?

一品缘 11:33:17

对了

一品缘 11:33:47

就是你说的这种效果

[夏生生][x_s_s_1]生无可恋 11:33:50

给我一包烟，我帮你写

一品缘 11:34:13

呵呵呵，烟不是问题

关键是你能不能帮我写

[kwok][kwok]巭隼 11:34:55

好象论坛有双线修剪的，闭合用pedit,

[阿然][阿然] 11:35:27

桥接以后两个闭合框是同一个闭合线？

一品缘 11:35:38

是的

[夏生生][x_s_s_1]生无可恋 11:36:07

桥接以后两个闭合框是同一个闭合线不会写

[lisp](car (entsel)) 11:36:08

明经里面的e2002是谁呀?

[夏生生][x_s_s_1]生无可恋 11:36:14

只能遮挡

[lisp](car (entsel)) 11:36:16

我很想联系他

@e2002

[阿然][阿然] 11:36:39

难度不大，是体力活

[夏生生][x_s_s_1]生无可恋 11:36:52

搞基友？

[蔡__洛]不快乐 11:37:00

好事

[夏生生][x_s_s_1]生无可恋 11:37:09

看他的图都断开了，如何还统一闭合线

[阿然][阿然] 11:37:13

无基不欢

[蔡__洛]不快乐 11:37:23

这个东西 是建筑还是 机械领域的东西？

[阿然][阿然] 11:37:33

感觉象电路板

[蔡__洛]不快乐 11:37:44

不懂

[bmy07]白欣 11:37:54

“NAME=城西大道” 如何去掉"NAME=" 变成"城西大道"

一品缘 11:37:58

是线切割

[kwok][kwok]巭隼 11:37:59

应是用来切割的

[bmy07]白欣 11:38:05

有没有这种函数

[蔡__洛]不快乐 11:38:07

不安装.net组件能用ActiveX不？

[lisp](car (entsel)) 11:38:07

有谁知道如何用autocad来调用vim?

[夏生生][x_s_s_1]生无可恋 11:38:34

搜索=然后substr

[bmy07]白欣 11:38:50

没有其他方法吗

[lisp](car (entsel)) 11:39:22

有谁知道如何用autocad来调用vim?

[夏生生][x_s_s_1]生无可恋 11:39:23

vl-string族的函数看看，方法在里面

[bmy07]白欣 11:39:34

好的

看睥

看看，谢谢

[蔡__洛]不快乐 11:40:19

直接（substr "" "NAME=" “NAME=城西大道”)

[夏生生][x_s_s_1]生无可恋 11:40:28

vl-string－search配合substr的方法就可以解决您的问题

貌似不行

[夏生生][x_s_s_1]生无可恋 11:41:37

substr不是这么用的[qqimg]oldimg/{8DDF1234-A583-BB12-C7D6-84CE80FAB840}.jpg[/qqimg]

[蔡__洛]不快乐 11:42:11

哈哈 搞错了

记成subst了

[bmy07]白欣 11:42:52

[bmy07]白欣 11:43:30

找到了 vl-string-left-trim

[阿然][阿然] 11:43:54

(substr "NAME=城西大道" 6)

[蔡__洛]不快乐 11:44:17

从字符串的开始删除指定字符

(vl-string-left-trim character-set string)
参数

character-set

字符串，列出要被删除的字符。

string

字符串，从中删除 character-set。

返回值

字符串，包含 string 的子字符串，其中所有 charac ter-set 中的字符都已被删除。

示例

_$ (vl-string-left-trim "  " "  STR ")
"STR "
_$ (vl-string-left-trim "12456789" "12463CPO is not R2D2")
"3CPO is not R2D2"
_$ (vl-string-left-trim " " "     There are too many spaces here")
"There are too many spaces here"

[bmy07]白欣 11:44:17

好像这个也可以

[夏生生][x_s_s_1]生无可恋 11:45:23

对于不定式我那种方法还是比较好的

[bmy07]白欣 11:45:47

嗯，谢谢大家

[阿然][阿然] 11:46:39

(substr "NAME=城西大道" (+ (vl-string-position (ascii "=") "NAME=城西大道") 2))

[蔡__洛]不快乐 11:47:25

soga

[阿然][阿然] 11:48:21

(defun tt( str chr)
(substr str (+ (vl-string-position (ascii chr) str) 2))
)

(tt "NAME=城西大道" "=")

[bmy07]白欣 11:51:16

想删除哪都可以

[夏生生][x_s_s_1]生无可恋 11:53:37

要丰满一点就要先判断全角半角

一品缘 11:54:10

谁有双线修剪的LISP程序啊？？急求！！

明经快报

ya雀无声 12:12:49

有一个历史难题

[qqimg]oldimg/{8A1A4F3A-BE8C-5185-4A51-845B2462E8A3}.jpg[/qqimg]

[qqimg]oldimg/{B2383431-9598-2BB2-48DD-D72F82798E62}.jpg[/qqimg]这个怎么样快速剪成上面那个图一样

不分图层

明经快报

[邹锋]Tony 12:35:35

如何 将一个图元，从0,0,0 升到 0,0, DIST

明经快报

一品缘 12:51:24

[qqimg]oldimg/{D78EC342-A612-1B77-8957-33C183A1A42A}.gif[/qqimg]搞了这么久，没人能做得出如图所示双线修剪？？？

一品缘 12:53:24

郁闷啊

[夏生生][x_s_s_1]生无可恋 12:54:12

自己搞，郁闷啥啊

求人不如求己

一品缘 12:54:36

呵呵，不会啊

[邹锋]Tony 12:58:50

？vlax-3d-point

明经快报

[ds-limt]-厨师木 13:08:57

ucs,w