[LISP程序]：加粗线段、弧、圆的lsp

jinminga · 发表于 2004-2-27 22:30:16

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

不知在哪下载的一个小程序，可以批量加粗线段、多线、弧线、圆等到指定宽度。个人感觉挺好用的，于大家分享。用法：在cad里加载peditx.lsp，命令为pex。

penguin_072 · 发表于 2004-2-27 23:07:05

我加载了，为什么我不能用啊？

ricky · 发表于 2004-2-28 20:35:46

我也不能用，请解释一下怎么用

陌生人 · 发表于 2004-2-28 22:19:15

呵呵，好老的程序了，现在编起来已经不用那么麻烦

jinminga · 发表于 2004-2-29 21:27:52

程序是老了点，但我感觉还是满好用的。
加载了程序后在cad里调用的命令是pex，不用打文件名peditx。

xiangyiling · 发表于 2004-3-1 16:32:05

很好用！谢谢！！

whj1102 · 发表于 2004-3-1 17:09:23

1楼楼主说：[推荐：好多人要线宽程序，我收集了几个，挺好用的。还有图块统计和缩放的程序。 http://www.xdcad.net/forum/showt ... d=769298#post769298

jaker · 发表于 2004-3-2 15:49:50

我也有个简单的统计，不晓得和你有差别么！

whj1102 · 发表于 2004-3-4 16:12:10

贴上去看看啊

wxy5612236 · 发表于 2004-3-4 18:34:44

不知道怎么用呀，能不能讲一下

qzmptb · 发表于 2004-3-5 11:06:19

2002里面对pedit进行了改进，可以一次改变多个对象的属性，不象14里面只能改变一个

自由的鱼 · 发表于 2004-3-5 12:14:58

大家都把好的程序原代码贴上来吧！

sinorex · 发表于 2004-3-14 16:40:18

虽然旧了点，但还不错，特别是R14中更中。

tc405003 · 发表于 2004-3-18 08:26:46

(defun c:pJ (/ e  n1 )
   (setq e (ssget) )
         (setq n1 (sslength e))
      (repeat n1
         (command "pedit" e "y" "j" e "")
   ))
(defun c:pw (/ wide e n1 )
  (setq wide (getstring "\nEnter Width:"))
  (setq e (ssget))
  (setq n1 (sslength e))
  (repeat n1
(command "pedit" e "y" "w" wide "x")
  )
)

说明：PJ命令是将几条相接的线变为多义线，PW是改变线宽的命令

xmchy · 发表于 2004-3-18 11:06:38

晓东工具箱中也有

账号		自动登录	找回密码
密码			立即注册

[LISP程序]：加粗线段、弧、圆的lsp

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子