[LISP程序]：隆重推出:批量改线宽。是不是好程序你自己看!

urljit

在实际的工作中有许多工作要做，可是不一定非要遵循条条框框，自己来个创新吧！于是就有了这个不起眼的程序，希望你能喜欢，也希望提出宝贵意见！fsrd@2911.net

zy_zyx429

不错，还比较实用！

eachy

最初由 urljit 发布
[B]在实际的工作中有许多工作要做，可是不一定非要遵循条条框框，自己来个创新吧！于是就有了这个不起眼的程序，希望你能喜欢，也希望提出宝贵意见！fsrd@2911.net [/B]

作的不错，不过在CAD2004下除了Circle用标准的 Pedit 和 Matchprop 都可以做到。

陌生人

没错，不好好利用pedit/m真是浪费了。
发一个

1. ;|pem.lsp=利用pedit/m重新编写多义线变宽--------------------------------------陌生人.2003.12
   
2. 版本：v1.0 2004.1.1暂时不支持ellipse，spline
   
3. 命令：pem
   
4. 功能：1.多义线宽度刷子;
   
5.             2.多条分别变宽度;
   
6.             3.多条连接;
   
7.             4.支持对circle的处理
   
8. |;
   
9. Command:  PEM
   
10. 选择编辑实体(*line,arc,circle):
    
11. Select objects: Specify opposite corner: 4 found
    
12. Select objects:
    
13. 统一宽度/J-连接/C－宽度刷子:c
    
14. 选择宽度参照多义线:
    
15. 。。
    
16. Select objects:
    
17. 统一宽度/J-连接/C－宽度刷子:j
    
18. 焊接模糊值<>: Specify second point:
    
19. 。。
    

复制代码

urljit

多谢各位高人的指点，获益非浅！我主要面向2000的用户开发的上述产品。

陌生人

不好意思，4贴上次传错文件，无法运行。
现补一个正常的

uug

上述的pem不错，很好用

zhangzongwei

可以至少对我有用

urljit

可惜我用不了pem，因为我没有acad2004。不过，我相信肯定好用！

blue

完全安装,运行mpedit就可以批量改线宽

ydf7332462

来一个批量改宽（ 含多义线的子段），如何？

urljit

最初由 ydf7332462 发布
[B]来一个批量改宽（ 含多义线的子段），如何？ [/B]

您的意思是……，再明确一下！

陌生人

他的意思是批量改多义线子线段的宽度（每个子线段可定义不同宽度的）

urljit

如果要这样，考虑的问题就多了，如：这么多pline是相同的段数吗？如果是还好，不是呢？一段呢？再说，批量改单独pline的段的宽度有什么实际意义吗？我不知道老兄的专业是？

陌生人

也不是不可以写出来。不过楼上的朋友说的也有道理，写出来有多大用处？如果有，我倒是可以考虑考虑。