求大神修改下这个线宽加粗，这个程序每次执行选择了一个后就不能再选其他了

664571221

  求大神修改下，下面程序选择一个后就不能执行了，求改成可以多选
(defun c:XKJC( / sh s ss ww ssn)
    (princ"\n程序功能：支持*LINE,ARC,CIRCLE,ELLIPSE加粗")
    (setq sh (getvar "peditaccept"))
    (setvar "peditaccept" 0)
    (setvar "cmdecho" 0)
    (if (= jcxw_0 Nil) (setq jcxw_0 1))
    (setq ww (getdist (strcat "\n 请输入线宽 <" (rtos jcxw_0 2) ">: ")))
    (if (= ww nil) (setq ww jcxw_0))(setq jcxw_0 ww)
    (setq ss (ssget '((-4 . "<or")(0 . "LINE")(0 . "CIRCLE")(0 . "ARC")
                         (0 . "POLYLINE")(0 . "LWPOLYLINE")(-4 . "or>"))))
    (setq s 0) (command "undo" "be")
    (repeat (if ss (sslength ss) (progn (princ "\n 未选择对象。") 0))
       (setq ssn (ssname ss s) entyp (cdr (assoc 0 (entget ssn))))
       (cond ((= entyp "CIRCLE") (progn
           (setq rr (cdr (assoc 40 (entget ssn)))
                cen (cdr (assoc 10 (entget ssn))))
           (command "donut" (* 2 (- rr (/ ww 2))) (* 2 (+ rr (/ ww 2))) cen "")
           (command "erase" ssn "")))
           ((= entyp "LINE") (command "pedit" ssn "y" "w" ww ""))
    ((= entyp "ARC") (command "pedit" ssn "y" "w" ww ""))
           ((= entyp "LWPOLYLINE") (command "pedit" ssn "w" ww ""))
    ((= entyp "POLYLINE") (command "pedit" ssn "w" ww ""))
       )(setq s (1+ s))
     )(command "undo" "e")
     (setvar "peditaccept" sh)
    (princ)
)

duotu007

(defun c:tttt( / sh s ss ww ssn)
    (princ"\n程序功能：支持*LINE,ARC,CIRCLE,ELLIPSE加粗")
    (setq sh (getvar "peditaccept"))
    (setvar "peditaccept" 0)
    (setvar "cmdecho" 0)
    (if (= jcxw_0 Nil) (setq jcxw_0 1))
    (setq ww (getdist (strcat "\n 请输入线宽 <" (rtos jcxw_0 2) ">: ")))
    (if (= ww nil) (setq ww jcxw_0))(setq jcxw_0 ww)
    (while (setq ss (ssget '((-4 . "<or")(0 . "LINE")(0 . "CIRCLE")(0 . "ARC")
                         (0 . "POLYLINE")(0 . "LWPOLYLINE")(-4 . "or>"))))
    (setq s 0) (command "undo" "be")
    (repeat (if ss (sslength ss) (progn (princ "\n 未选择对象。") 0))
       (setq ssn (ssname ss s) entyp (cdr (assoc 0 (entget ssn))))
       (cond ((= entyp "CIRCLE") (progn
           (setq rr (cdr (assoc 40 (entget ssn)))
                cen (cdr (assoc 10 (entget ssn))))
           (command "donut" (* 2 (- rr (/ ww 2))) (* 2 (+ rr (/ ww 2))) cen "")
           (command "erase" ssn "")))
           ((= entyp "LINE") (command "pedit" ssn "y" "w" ww ""))
    ((= entyp "ARC") (command "pedit" ssn "y" "w" ww ""))
           ((= entyp "LWPOLYLINE") (command "pedit" ssn "w" ww ""))
    ((= entyp "POLYLINE") (command "pedit" ssn "w" ww ""))
       )(setq s (1+ s))
     ))(command "undo" "e")
     (setvar "peditaccept" sh)
    (princ)
)

maiko

;稍微改了下,当练练手,加了个错误处理

2. (defun c:tt ( / *error* s ss ww x sysvar values i )
   
3.   (defun *error* (msg)
   
4.     (mapcar 'setvar sysvar values)
   
5.     (princ)
   
6.   )
   
7.   (setq sysvar '(cmdecho peditaccept) values (mapcar 'getvar sysvar))
   
8.   (mapcar 'setvar '("CMDECHO" "PEDITACCEPT") '(0 1))
   
9.   (princ"\n程序功能：支持*LINE,ARC,CIRCLE加粗")
   
10.   (if (= jcxw_0 nil) (setq jcxw_0 1))
    
11.   (setq ww (getdist (strcat "\n 请输入线宽 <" (rtos jcxw_0 2) ">: ")))
    
12.   (if (= ww nil) (setq ww jcxw_0))(setq jcxw_0 ww)
    
13.   (command "undo" "be")
    
14.   (if (setq ss (ssget ":L" '((0 . "line,*POLYLINE,arc,CIRCLE"))))
    
15.     (repeat (setq i (sslength ss))
    
16.       (setq s (ssname ss (setq i (1- i))))
    
17.       (setq x (cdr (assoc 0 (entget s))))
    
18.       (cond
    
19.         ((wcmatch x "LINE,ARC")
    
20.           (command "_.pedit" s "_j" "" "_w" ww "")
    
21.         )
    
22.         ((wcmatch x "*POLYLINE")
    
23.           (vla-put-constantWidth (Vlax-Ename->Vla-Object s)ww)
    
24.         )
    
25.         ((eq x "CIRCLE")
    
26.           (setq rr (cdr (assoc 40 (entget s))) cen (cdr (assoc 10 (entget s))))
    
27.           (command "donut" (* 2 (- rr (/ ww 2))) (* 2 (+ rr (/ ww 2))) cen "")
    
28.           (entdel s)
    
29.         )
    
30.       )
    
31.     )
    
32.   )
    
33.   (command "undo" "e")
    
34.   (*error* nil)
    
35. )

(defun c:tt ( / *error* s ss ww x sysvar values i )<br />   (defun *error* (msg)<br />     (mapcar 'setvar sysvar values)<br />     (princ)<br />   )<br />   (setq sysvar '(cmdecho peditaccept) values (mapcar 'getvar sysvar))<br />   (mapcar 'setvar '("CMDECHO" "PEDITACCEPT") '(0 1))<br />   (princ"\n程序功能：支持*LINE,ARC,CIRCLE加粗")<br />   (if (= jcxw_0 nil) (setq jcxw_0 1))<br />   (setq ww (getdist (strcat "\n 请输入线宽 <" (rtos jcxw_0 2) ">: ")))<br />   (if (= ww nil) (setq ww jcxw_0))(setq jcxw_0 ww)<br />   (command "undo" "be")<br />   (if (setq ss (ssget ":L" '((0 . "line,*POLYLINE,arc,CIRCLE"))))<br />     (repeat (setq i (sslength ss))<br />       (setq s (ssname ss (setq i (1- i))))<br />       (setq x (cdr (assoc 0 (entget s))))<br />       (cond<br />         ((wcmatch x "LINE,ARC")<br />           (command "_.pedit" s "_j" "" "_w" ww "")<br />         )<br />         ((wcmatch x "*POLYLINE")<br />           (vla-put-constantWidth (Vlax-Ename->Vla-Object s)ww)<br />         )<br />         ((eq x "CIRCLE")<br />           (setq rr (cdr (assoc 40 (entget s))) cen (cdr (assoc 10 (entget s))))<br />           (command "donut" (* 2 (- rr (/ ww 2))) (* 2 (+ rr (/ ww 2))) cen "")<br />           (entdel s)<br />         )<br />       )<br />     )<br />   )<br />   (command "undo" "e")<br />   (*error* nil)<br /> )