2013-07-17 明经 AutoLISP 编程②(177027547) 群聊记录：求高手指导 困恼很久 很多其他的插件都想这么做 就是不知道怎么写 http

明经快报

[fjutcivil]水泥匠 11:25:33

求高手指导 困恼很久 很多其他的插件都想这么做 就是不知道怎么写
http://bbs.mjtd.com/forum.php?mo ... &fromuid=410443

明经快报

黑玫瑰箭心 13:27:13

CAD词典好像是存储CAD中一些辅助图像信息的临时资料用的，在vbnet开发中有应用解释，但是修改是要小心，不然会引擎Acad系统崩溃的。

明经快报

[gmstcn]囧囧圣堂 15:40:47

请教下CAD的loft命令在lisp里面怎么调用才能不显示对话框？

[gmstcn]囧囧圣堂 15:41:24

不能静默执行就没法批量处理了

明经快报

[梦起岚山]纯一 16:28:11

请问想实现如下功能如何写

把文字对齐到某条线

[vormittag]桔子 16:29:13

搜一下吧，一大把啊。

[梦起岚山]纯一 16:29:21

我没有找到

呵呵

搜了

我再试试哈

[梦起岚山]纯一 16:30:49

桔子

你有没有呀

[vormittag]桔子 16:32:38

把线的角度算一下，文字的转角改一下，有需要再挪动一下文字，这个是很简单的lisp练习了。

[梦起岚山]纯一 16:32:51

。。。

我是新手啊

不需要改角度的

直接就是和某条线对齐就行

[gmstcn]囧囧圣堂 16:33:58

@[梦起岚山]纯一 你又没说线是不是与WCS正交的

我还在寻思你要怎么个对齐法呢

[梦起岚山]纯一 16:34:21

线是和文字垂直的

就是离得有点远

比较多

[gmstcn]囧囧圣堂 16:34:40

那就(VLA-MOVE

[梦起岚山]纯一 16:34:59

你能帮我改一个参考吗

[vormittag]桔子 16:35:00

那就更简单了，直接挪一下不就行了。

[梦起岚山]纯一 16:35:08

工作量太大了

好多呢

想直接点击线，然后点击文字就直接对齐

不想一个一个拖动了

[gmstcn]囧囧圣堂 16:35:45

(SSGET 创建选择集

[vormittag]桔子 16:35:55

这个程序的简单程度超过了刚才那个。

[梦起岚山]纯一 16:36:06

哦

新手啊

我是做结构的

LISP是业余爱好

[qqimg]201307/{E3ADB26D-3DF1-C691-9940-6A7F170A1856}.jpg[/qqimg]

[vormittag]桔子 16:36:59

想编程，这是挺好的练习，想求程序，走错地方了。

[梦起岚山]纯一 16:37:00

比如把那个水平的文字在向右边挪动一点

呵呵

我知道啊

我都来了好久了

咱们的规矩我懂

[梦起岚山]纯一 16:37:59

[qqimg]201307/{4F591BAE-AB2E-FECC-6F5E-F6082022BB77}.gif[/qqimg]就是不会做。。。

[gmstcn]囧囧圣堂 16:38:21

@[梦起岚山]纯一 “一点”是多少？

[梦起岚山]纯一 16:38:53

我想的是把最后文字和线的距离固定一个定值

这样就比较统一

[梦起岚山]纯一 16:39:30

150

和线距离150

[gmstcn]囧囧圣堂 16:40:36

哪条线

哎

[梦起岚山]纯一 16:40:47

右边那条线

呵呵

这个表示的是梁的负筋

[gmstcn]囧囧圣堂 16:41:04

右边哪条线

[梦起岚山]纯一 16:41:39

竖直的梁的左侧的线

呵呵

明经快报

[gmstcn]囧囧圣堂 16:52:10

这样手操作工作量还是不少

[梦起岚山]纯一 16:52:33

那也比一个一个拖动好吧

因为我好多的文字是和同一条直线对齐

[gmstcn]囧囧圣堂 16:52:54

每个文字对齐的线都是不同的

[梦起岚山]纯一 16:52:56

这样我只用点击一次直线

[gmstcn]囧囧圣堂 16:53:04

哦，那还好点

[梦起岚山]纯一 16:53:08

然后选择文字就行了

明经快报

[梦起岚山]纯一 18:05:01

[qqimg]201307/{81E4FAFA-D083-7D20-7678-12E0A414EA4A}.jpg[/qqimg]

明经通道

@明经通道