[求助]：（求助）怎么样才能一次性修改多义线的线宽？

tj3d3s

图画完后才发现钢筋的的宽度画得不对，一根根改起来太麻烦了，哪位大侠知有一次性都修改过来的绝招呀？

heliangdong

绝招有一个：CTRL+1调出“特性”，选中要改的多义线，在“特性”中改宽度

简单的才是真实的！

xyp1964

最初由 tj3d3s 发布
[B]图画完后才发现钢筋的的宽度画得不对，一根根改起来太麻烦了，哪位大侠知有一次性都修改过来的绝招呀？ [/B]

改线宽：http://www.xdcad.net/forum/attachment.php?s=&postid=2009307

adisonmaster

;*****************2;change the polyline width 改变线宽       
(DEFUN C:PW (/ pa ppa pb)
  (princ "\n请需要改变线宽选择直线:")
  (setq pa (ssget))
  (princ "\n输入线宽:")
  (setq ppa (getreal))
  (setq pb (sslength pa))
  (repeat pb
    (if        (= (cdr (assoc 0 (entget (ssname pa (- pb 1))))) "LINE")
      (command "pedit" (ssname pa (- pb 1)) "" "w" ppa "x")
    )
    (if
      (or (= (cdr (assoc 0 (entget (ssname pa (- pb 1))))) "POLYLINE")
          (= (cdr (assoc 0 (entget (ssname pa (- pb 1)))))
             "LWPOLYLINE"
          )
      )
       (command "pedit" (ssname pa (- pb 1)) "w" ppa "x")
    )
    (if        (= (cdr (assoc 0 (entget (ssname pa (- pb 1))))) "ARC")
      (command "pedit" (ssname pa (- pb 1)) "" "w" ppa "x")
    )
    (setq pb (- pb 1))
  )
)

heliangdong

CTRL+1调出“特性”，选中要改的多义线，在“特性”中改宽度，选得多就改的多，不用编程那么复杂吧
你把简单的东西复杂化了

xyp1964

最初由 heliangdong 发布
[B]CTRL+1调出“特性”，选中要改的多义线，在“特性”中改宽度，选得多就改的多，不用编程那么复杂吧
你把简单的东西复杂化了 [/B]

更简单：
gxk，输入宽度，选择物体确认。
对圆、圆弧、椭圆有效。

aichong

命令: pe
PEDIT 选择多段线或 [多条(M)]: m

选择对象: 找到 1 个

选择对象: 找到 1 个，总计 2 个

选择对象:

输入选项
[闭合(C)/打开(O)/合并(J)/宽度(W)/拟合(F)/样条曲线(S)/非曲线化(D)/线型生成(L)/放
弃(U)]: w

指定所有线段的新宽度: 100

（不适用于R14）

xuhaibo

在命令行输入PEDIT然后输入M就可以一次性选择多条线段

lastmem

输入QSELECT命令打开快速选择.
然后按你所画的PL的要求进行选择线.选中以后就可以在特性框里进行宽度的修改了.

rdhhb

(setq sj 0.6)  ;初始化数值
(defun c:er (/ sdg ddx aaa tjxglist)
  (graphscr)
  (setq sdg (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  ;(setq kuandu kd)
  
  (setq kuandustr (rtos sj))
  ;(initget "A")
  (setq aaa (getreal (strcat "\n〖默认宽度："kuandustr" mm‖回车为默认宽度〗或输入数值:")))
  (while
    (setq tjxglist
           '((-4 . "<or")
            (-4 . "<and")
            (0 . "ARC")
            (-4 . "and>")
            (-4 . "<and")
            (0 . "LWPOLYLINE")
            (-4 . "and>")
            (-4 . "<and")
            (0 . "line")
            (-4 . "and>")
            (-4 . "or>"))
        )
  (if aaa
    (progn      
      (setq ddx (ssget tjxglist))
      ;(setq sl (rtos (sslength ddx)))
      (if (not ddx)
        (VL-EXIT-WITH-ERROR (princ "*未选择对象或选择错误！对象包括：圆弧，直线，多段线*")))
      (vl-cmdf "_.pedit" "m" ddx "" "w" aaa "")
      (setq ggo (rtos aaa))
      (setq kuandustr (rtos aaa))
      (setq sj aaa)
      (princ (STRCAT "\n修改成功，现在宽度为：" ggo " 毫米"))(print)
      )
    (progn
      (setq ddx (ssget tjxglist))
      (if (not ddx)
        (VL-EXIT-WITH-ERROR (princ "*未选择对象或选择错误！对象包括：圆弧，直线，多段线*"))
        )
      ;(setq sl (rtos (sslength ddx)))
      (progn (vl-cmdf "_.pedit" "m" ddx "" "w" sj "")(setq ggo (rtos sj)))
      (princ (STRCAT "\n修改成功，现在宽度为：" ggo " 毫米"))(print)
             )
    ))
  ;;(if (not ddx)
  ;;  (progn (alert "\n对不起,您未选择多段线，请重试！")(print)(VL-EXIT-WITH-ERROR ""));(VL-EXIT-WITH-ERROR "") ;
  ;;  (progn (princ (STRCAT "\n修改成功，现在宽度为：" ggo " 毫米"))(print))
  ;;  )
  (setvar "cmdecho" sdg)
  (princ))