[LISP程序]：修改线宽的程序

baby1528

(DEFUN  c:CHW( / k vl wid plist ename newwid pline)
  (setvar "cmdecho" 0)
  (setvar "blipmode" 0)
  (setq k(getvar "handles"))
  (if (= k 0)  (command"handles" "on"))
  (initget 4 "0 0.1 0.2 0.3 0.4 0.5 0.25")
  (setq wid (getreal "\nObjects' old_width(0/0.1/0.2/0.3/0.4/0.5/0.25/1.0)<ALL>:"))
  (if (= wid nil)(setq wid 10))
  (initget (+ 1 4))
  (setq newwid (getreal "\nNew width:"))
  (cond
    ((= wid 0)
      (setq vl(ssget'((-4 . "<AND")
            (0 . "LWPOLYLINE")
            (40 . 0)
          (-4 . "AND>")
               )
        );ssget
      );setq
    )
    ((= wid 0.1)
      (setq vl(ssget'((-4 . "<AND")
            (0 . "LWPOLYLINE")
            (40 . 0.1)
          (-4 . "AND>")
               )
        );ssget
      );setq
          )
    ((= wid 0.2)
      (setq vl(ssget'((-4 . "<AND")
            (0 . "LWPOLYLINE")
            (40 . 0.2)
          (-4 . "AND>")
               )
        );ssget
      );setq
    )
    ((= wid 0.3)
      (setq vl(ssget'((-4 . "<AND")
            (0 . "LWPOLYLINE")
            (40 . 0.3)
           (-4 . "AND>")
               )
         );ssget
      );setq
          )
    ((= wid 0.4)
      (setq vl(ssget'((-4 . "<AND")
            (0 . "LWPOLYLINE")
            (40 . 0.4)
          (-4 . "AND>")
               )
            );ssget
      );setq
          )
    ((= wid 0.5)
      (setq vl(ssget'((-4 . "<AND")
            (0 . "LWPOLYLINE")
            (40 . 0.5)
          (-4 . "AND>")
             )
        );ssget
      );setq
    )
    ((= wid 0.3999)
      (setq vl(ssget'((-4 . "<AND")
            (0 . "LWPOLYLINE")
            (40 . 0.3999)
          (-4 . "AND>")
               )
        );ssget
      );setq
    )
    ((= wid 0.25)
      (setq vl(ssget'((-4 . "<AND")
            (0 . "LWPOLYLINE")
            (40 . 0.25)
          (-4 . "AND>")
               )
        );ssget
      );setq
    )
    ((= wid 1.0)
      (setq vl(ssget'((-4 . "<AND")
            (0 . "LWPOLYLINE")
            (40 . 1.0)
          (-4 . "AND>")
               )
        );ssget
      );setq
    )
    ((= wid 10)
      (setq vl(ssget'((0 . "LWPOLYLINE")));ssget
      );setq
          )
    (t
      (progn
        (print"...........Bad width value!")
        (setq k "fail")
      );progn
          )
  );cond
  (if (/= k "fail")
    (progn
      (setq vl(gethand vl))
      (foreach ename vl
        (setq ename(handent ename))
        (chplw ename newwid)
      );foreach
    );progn
  );if k
  (setvar "cmdecho" 1)
  (setvar "blipmode" 1)
  (princ)
);defun
(princ "\n***** 函数c:chw()已加载")

tyt510

鼓励一下 感谢楼主 很好用

qjcpj

一个小程序，需要写得这么烦吗？

xsjl123

请问前辈这个程序怎么样用啊~~~~~~?

zqb05

不能用