[LISP程序]：修改线宽

civil_liyan · 发表于 2003-5-20 20:36:03

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

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

×

本人现在使用的修改线宽的Lisp程序

(defun c:LW()
      (setq s (getvar "cmdecho"))
      (setvar "cmdecho" 0)
      (setq s0 (ssget))
      (setq PLI nil)
      (while (not PLI)
            (setq PLI (getreal " 请输入多义线的宽度: "))
      )
      (setq i 0)
      (while (ssname s0 i)
            (if (= (cdr (assoc 0 (entget (ssname s0 i)))) "POLYLINE")
               (progn
                     (setq e1 (entget (ssname s0 i)))
                     (setq e1 (subst (cons 40 PLI) (assoc 40 e1) e1))
                     (setq e1 (subst (cons 41 PLI) (assoc 41 e1) e1))
                     (entmod e1)
                     (entupd (ssname s0 i))
               )
               (command"pedit" (ssname s0 i) "y" "w" pli "x")
            )
            (setq i (1+ i))
      )
      (setvar "cmdecho" s)
)
普通直线改为多义线，但对多义线不好用。
请大家支持。

aeo · 发表于 2003-5-21 22:31:28

多看看论坛的贴子,改宽度,处理多义线的贴很多.

oldhope · 发表于 2003-5-21 23:49:11

其实在ACAD14以上版本改线宽不用这么麻烦，我这有一个当年在R12时编的改线宽程序CW.LSP，在R14时做了点改动，很好用，对多义线也好使。

心梦相随 · 发表于 2003-5-23 20:49:36

一楼的朋友对付LWPOLYLINE不就不怎么行了吗.//

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

[LISP程序]：修改线宽

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

相关帖子

浏览过的版块