[求助]请郑立楷前辈御驾亲临修改 “文字对齐”的程序

yangw761 发表于 2008-5-30 21:58:00

本帖最后由作者于 2008-6-4 20:57:44 编辑 上面的这个程序也是在论坛下载的，最近在做送审图，非常有用，只是有个小小的遗憾，希望高手帮忙解决。做引线标注的时候，使用本程序后，不但可以将文字对齐，也可以将引线进行拉伸也对齐先谢谢了

xxsheng 发表于 2008-5-31 09:52:00

看见上面谁写的没有?通缉他出来,,好像就是这里的头写的,,,,冒犯他老人家可是死罪,,所以标题最好写上有请<pre>作者：郑立楷本人御驾亲临修改,,,,,,,,,,</pre>

vladimirputin 发表于 2019-9-2 14:27:42

不错的程序，谢谢楼主分享啊

yzh898 发表于 2024-6-28 14:40:57

好用，谢谢分享。

yangw761 发表于 2008-5-30 22:04:00

就是希望文字和引线一起对齐，但同时引线的引出位置没有变化。原来的程序是对文字和引线同时进行了移动命令，这样虽然也可以和文字一起对齐，但是引出点的位置也跟着变化了。希望修改后，文字进行移动，引线进行拉伸。

yangw761 发表于 2008-6-3 22:07:00

继续求助

mccad 发表于 2008-6-4 12:24:00

程序是我n年前写的，现在已经好多年没有用过AUTOLISP来写程序了，因为现在所从事的工作与AutoCAD关系不大。你再说详细一些，看我还能不能写得出来，呵呵。

byghbcx 发表于 2008-6-4 15:21:00

将你不想选择的图元过滤掉,第四行改成(setq selobjs (ssget '((-4 . "<not") (0 . "leader") (-4 . "not>"))))即可

xxxtttxxx 发表于 2008-6-4 16:56:00

用那个vba的对象对齐均布程序，应该能够满足这个需求吧

xiaoquansb 发表于 2008-6-4 19:23:00

我用过常青藤里的对象对齐，引线会自动对齐的，应该跟楼上说的差不多

yangw761 发表于 2008-6-4 20:39:00

就是在做引线标注的时候，希望所有的引线尾端和文字都能对齐。用原来的程序，也可以实现，但是是对引线进行了移动命令，导致引线的引出位置发生变化。希望修改后的程序，对文字进行移动，对引线进行拉伸。

haiya139 发表于 2010-9-29 08:08:00

好东西，支持楼主

页: [1] 2

明经CAD社区's Archiver