运算器代码修改，增加指定小数位数的功能

3wlds

以前在网上下载了一个运算器的代码很好用，就不是不能指定小数精度。哪位高手可以帮忙修改一下呢 ，增加指定精度的功能、代码如下呢
;;;运算器(缺省输入)
;;;       作者： langjs
;;;________________________________________________________________
(defun c:js ( / uu txt3 ent)  
(if (/= fuh "+"  fuh "-"  fuh "*" fuh "/"  )(setq fuh "*"  ))
(if (/= mos "a" mos "b")(setq  mos "a" ))
(setq txt1  (getstring (strcat "\n请输入运算符号[加(+)/减(-)/乘(*)/除(/)] <"  fuh ">:"   ) ))
(if (/= txt1 "+"  txt1 "-"  txt1 "*" txt1 "/" txt1 "" )(exit ))
(setq zz  (getstring (strcat "\n请输入模式[单步(A)/连续(B)] <" (strcase mos) ">:"   ) ))
(setq zz (strcase zz T))
(if (/= zz "a"  zz "b" zz "" )(exit ))
( if (= txt1 "") (setq  txt1 fuh ) (setq   fuh txt1)  )
( if (= zz "") (setq  zz mos ) (setq  mos zz )  )

(setq uu (strcat txt1 zz))
(cond
((= uu "+a") (h01 ))
((= uu "+b") (h02 ))
((= uu "*a") (h03 ))
((= uu "*b") (h04 ))
((= uu "-a") (h05 ))
((= uu "-b") (h06 ))
((= uu "/a") (h07 ))
((= uu "/b") (h08 ))

)       
(princ )
)

(defun h01 ( )
(princ "\n 单步加法运算:"  )
(princ "\n")
(setq ent (car (entsel "\n选择第一个加数：")))
        (setq txt2 (entget ent))
        (setq txt2 (atof (cdr (assoc 1 txt2)) ))
        (princ (rtos txt2)  )
(setq ent (car (entsel "\n选择第二个加数：")))
        (setq txt3 (entget ent))
        (setq txt3 (atof (cdr (assoc 1 txt3)) ))
        (princ (rtos txt3)  )
        (setq sum(+ txt2 txt3 ))
        (princ (strcat "\n两数的和为：" (rtos sum)  ))
        (setq ent (car (entsel "\n选择和数的位置：")))
       (princ "完成"  )
        (setq ent (entget ent))
         (setq ent  (subst (cons 1 (rtos sum  2 2) ) (assoc 1 ent) ent) )
      (entmod ent)
(princ)
)

(defun h02 (/ LEN MODELTXT SSTEXT TXTENT)
  (princ "\n 连续加法运算:"  )
  (prompt "\n请选择加数:")
  (setq sstext (ssget '((0 . "text,MTEXT"))))
  (if sstext
    (progn
      (setq sum  0.0 )
      (setq mm  0 )
     (princ "选择的加数：")
      (repeat
        (setq len (sslength sstext)   )
        (setq txtent (ssname sstext (setq len (1- len))))
     
        (setq modeltxt (cdr (assoc 1 (entget txtent))))

       (setq sum (+ sum  (atof modeltxt) ) )
        (setq mm (+ mm 1)   )  
       (princ  (strcat "\n   第" (itoa mm)  "加数:"  ))
       (princ modeltxt)   
      )
    )
  )
       (princ "\n累计的和为:"  )
      (princ (rtos sum ))
       (setq ent (car (entsel "\n选择和数的位置：")))
        (princ "\n完成"  )
         (setq ent (entget ent))
         (setq ent  (subst (cons 1 (rtos sum  2 2) ) (assoc 1 ent) ent) )
      (entmod ent)
  (princ)
)


(defun h03 ( )
(princ "\n 单步乘法运算:"  )
(princ "\n")
(setq ent (car (entsel "\n选择第一个因子：")))
        (setq txt2 (entget ent))
        (setq txt2 (atof (cdr (assoc 1 txt2)) ))
        (princ (rtos txt2)  )
(setq ent (car (entsel "\n选择第二个因子：")))
        (setq txt3 (entget ent))
        (setq txt3 (atof (cdr (assoc 1 txt3)) ))
        (princ (rtos txt3)  )
        (setq sum(* txt2 txt3 ))
        (princ (strcat "\n两数的积为：" (rtos sum)  ))
        (setq ent (car (entsel "\n选择积的位置：")))
       (princ "完成"  )
        (setq ent (entget ent))
         (setq ent  (subst (cons 1 (rtos sum  2 2) ) (assoc 1 ent) ent) )
      (entmod ent)
(princ)
)

(defun h04 (/ LEN MODELTXT SSTEXT TXTENT)
  (princ "\n 连续乘法运算:"  )
  (prompt "\n请选择因子:")
  (setq sstext (ssget '((0 . "text,MTEXT"))))
  (if sstext
    (progn
      (setq sum  1 )
      (setq mm  0 )
     (princ "选择的因子：")
      (repeat
        (setq len (sslength sstext)   )
        (setq txtent (ssname sstext (setq len (1- len))))
     
        (setq modeltxt (cdr (assoc 1 (entget txtent))))

       (setq sum (* sum  (atof modeltxt) ) )
        (setq mm (+ mm 1)   )  
       (princ  (strcat "\n  第" (itoa mm)  "因子:"  ))
       (princ modeltxt)   
      )
    )
  )
       (princ "\n累计的积为:"  )
      (princ (rtos sum ))
       (setq ent (car (entsel "\n选择积的位置：")))
        (princ "\n完成"  )
         (setq ent (entget ent))
         (setq ent  (subst (cons 1 (rtos sum  2 2) ) (assoc 1 ent) ent) )
      (entmod ent)
  (princ)
)

(defun h05 ( )
(princ "\n 单步减法运算:"  )
(princ "\n")
(setq ent (car (entsel "\n选择被减数：")))
        (setq txt2 (entget ent))
        (setq txt2 (atof (cdr (assoc 1 txt2)) ))
        (princ (rtos txt2)  )
(setq ent (car (entsel "\n选择减数：")))
        (setq txt3 (entget ent))
        (setq txt3 (atof (cdr (assoc 1 txt3)) ))
        (princ (rtos txt3)  )
        (setq sum(- txt2 txt3 ))
        (princ (strcat "\n两数的差为：" (rtos sum)  ))
        (setq ent (car (entsel "\n选择差数的位置：")))
       (princ "完成"  )
        (setq ent (entget ent))
         (setq ent  (subst (cons 1 (rtos sum  2 2) ) (assoc 1 ent) ent) )
      (entmod ent)
(princ)
)

(defun h06 (/ LEN MODELTXT SSTEXT TXTENT txt2 )
  (princ "\n 连续减法运算:"  )
(setq ent (car (entsel "\n选择被减数：")))
        (setq txt2 (entget ent))
        (setq txt2 (atof (cdr (assoc 1 txt2)) ))
        (princ (rtos txt2)  )
  (setq sstext (ssget '((0 . "text,MTEXT"))))
  (if sstext
    (progn
      (setq sum  0.0 )
      (setq mm  0 )
     (princ "选择减数：")
      (repeat
        (setq len (sslength sstext)   )
        (setq txtent (ssname sstext (setq len (1- len))))
     
        (setq modeltxt (cdr (assoc 1 (entget txtent))))

       (setq sum (- sum  (atof modeltxt) ) )
        (setq mm (+ mm 1)   )  
       (princ  (strcat "\n   第" (itoa  mm )  "减数:"  ))
       (princ modeltxt)   
      )
    )
  )
       (princ "\n累计的差为:"  )

(setq sum (+ txt2 sum ) )
      (princ (rtos  sum  ))
       (setq ent (car (entsel "\n选择差的位置：")))
        (princ "\n完成"  )
         (setq ent (entget ent))
         (setq ent  (subst (cons 1 (rtos sum  2 2) ) (assoc 1 ent) ent) )
      (entmod ent)
  (princ)
)


(defun h07 ( )
(princ "\n 单步除法运算:"  )
(princ "\n")
(setq ent (car (entsel "\n选择被除数：")))
        (setq txt2 (entget ent))
        (setq txt2 (atof (cdr (assoc 1 txt2)) ))
        (princ (rtos txt2)  )
(setq ent (car (entsel "\n选择除数：")))
        (setq txt3 (entget ent))
        (setq txt3 (atof (cdr (assoc 1 txt3)) ))
        (princ (rtos txt3)  )
        (setq sum(/ txt2 txt3 ))
        (princ (strcat "\n两数的商为：" (rtos sum)  ))
        (setq ent (car (entsel "\n选择商数的位置：")))
       (princ "完成"  )
        (setq ent (entget ent))
         (setq ent  (subst (cons 1 (rtos sum  2 2) ) (assoc 1 ent) ent) )
      (entmod ent)
(princ)
)

(defun h08(/ LEN MODELTXT SSTEXT TXTENT txt2 )
  (princ "\n 连续除法运算:"  )
(setq ent (car (entsel "\n选择被除数：")))
        (setq txt2 (entget ent))
        (setq txt2 (atof (cdr (assoc 1 txt2)) ))
        (princ (rtos txt2)  )
  (setq sstext (ssget '((0 . "text,MTEXT"))))
(if sstext
    (progn
      (setq sum  1 )
      (setq mm  0 )
     (princ "选择的除数：")
      (repeat
        (setq len (sslength sstext)   )
        (setq txtent (ssname sstext (setq len (1- len))))
     
        (setq modeltxt (cdr (assoc 1 (entget txtent))))

       (setq sum (* sum  (atof modeltxt) ) )
        (setq mm (+ mm 1)   )  
       (princ  (strcat "\n  第" (itoa mm)  "除数:"  ))
       (princ modeltxt)  
      )
    )
  )
       (princ "\n累计的商为:"  )

(setq sum (/ txt2 sum ) )
      (princ (rtos  sum  ))
       (setq ent (car (entsel "\n选择商的位置：")))
        (princ "\n完成"  )
         (setq ent (entget ent))
         (setq ent  (subst (cons 1 (rtos sum  2 2) ) (assoc 1 ent) ent) )
      (entmod ent)
  (princ)
)






;;;同变刷，将文本数字或者尺寸数值内容刷成源数值加上或减去同一个数值(缺省输入)
;;;________________________________________________________________
(defun c:tb ( / uu txt3 ent)  
(if (= chanshu001 nil )(setq chanshu001 -500.0  ))
(if (>= chanshu001 0.0 )(setq uu "+") (setq uu "")  )
(setq txt3 (atof (getstring (strcat "\n 同变刷:输入变化的值 <" uu (rtos chanshu001) ">:"   ) )))
(cond
((null txt3) (setq chanshu001 chanshu001))
((= txt3 0.0 ) (setq chanshu001 chanshu001))
(t (setq chanshu001 txt3)))       

    (while t
        (setq ent (car (entsel "\n选择目标文字或尺寸：")))
        (setq ent (entget ent))
       (cond
       ((= (cdr (assoc 1 ent)) "<>{}{}")    (setq txt2  (cdr (assoc 42 ent))) )
       ((= (cdr (assoc 1 ent)) "" )    (setq txt2  (cdr (assoc 42 ent)))    )
       (t     (setq txt2  (atof (cdr (assoc 1 ent)))))
       )     

        (if (>= chanshu001 0.0 )
        (setq ent  (subst (cons 1 (rtos  (+ txt2  (abs chanshu001)) 2 1) ) (assoc 1 ent) ent) )
        )  
        (if (< chanshu001 0.0 )
        (setq ent  (subst (cons 1 (rtos  (- txt2  (abs chanshu001)) 2 1 ) ) (assoc 1 ent) ent) )
        )  
        (entmod ent)
        )
)




;;;__________________________________________
;;; 相同刷，将文字或者尺寸内容改成源内容
;;;__________________________________________
(defun c:xt (/ LEN MODELTXT SSTEXT TXTENT)
  (prompt "\n 相同刷:请选择样本文字:")
  (setq sstext (ssget '((0 . "text,MTEXT"))))
  (if sstext
    (progn
      (setq modeltxt (cdr (assoc 1 (entget (ssname sstext 0)))))
      (repeat (setq len (sslength sstext))
(setq txtent (ssname sstext (setq len (1- len))))
(entmod
   (subst (cons 1 modeltxt)
   (assoc 1 (entget txtent))
   (entget (ssname sstext len))
   )
)
(entupd txtent)
      )
    )
  )

  (princ)
)


;;; 加一刷 将文本末尾的数字递增加1
;;;__________________________________________

(defun c:jy( )
(setq ent (car (entsel "\n 加一刷:选起始文字:")))
        (setq txt1 (entget ent))
        (setq txt1 (cdr (assoc 1 txt1)))


(setq  aa (atoi txt1))

(if (and (> aa 0 ) (= (itoa aa) txt1  )  )  (tj2 )  (tj1 )   )
(princ)
)

(defun tj1( / mm zz  pp txt2 ent kk txt3)
(setq  mm (strlen txt1))
(setq zz mm )
(while  (or (> (atoi (substr txt1 zz )) 0)  (=  (substr txt1 zz zz ) "0" ))  
(setq zz (- zz 1))
)
(setq pp  (substr txt1 (+ zz 1) ))
(setq txt2  (substr txt1 1  zz  ))
(setq kk (atoi pp) )
(while t
  (setq ent (car (entsel "\n选择目标文字：")))
(setq kk (+ kk 1 ))
(setq  txt3 (strcat txt2 (itoa kk)))
      (setq ent (entget ent))
       (setq ent  (subst (cons 1 txt3) (assoc 1 ent) ent)    )
      (entmod ent)
)
(princ)
)


(defun tj2 ( /  txt2 num txt3)
(setq num 0 )
(setq txt2 (atoi txt1))
(while t
(setq num (+ num 1  ))
(setq txt3 ( + txt2 num)  )
        (setq ent (car (entsel "\n选择目标文字或尺寸:")))
        (setq ent (entget ent))
        (setq ent  (subst (cons 1 (itoa txt3) ) (assoc 1 ent) ent) )
        (entmod ent)
        )
(princ)
)



;;; 线宽刷
;;;__________________________________________


(princ "\n**工具刷合集,自由软件,作者：国电南自 郎建山。**" )

(defun sz_s()
  (setq wd1 "\n当前匹配属性：" wd0 "不匹配属性：")
  (if (= sz_color 1) (setq wd1 (strcat wd1 " 颜色")) (setq wd0 (strcat wd0 " 颜色")))
  (if (= sz_layer 1) (setq wd1 (strcat wd1 " 图层")) (setq wd0 (strcat wd0 " 图层")))
  (if (= sz_ltype 1) (setq wd1 (strcat wd1 " 线形")) (setq wd0 (strcat wd0 " 线形")))
  (if (= sz_ltsca 1) (setq wd1 (strcat wd1 " 线形比例")) (setq wd0 (strcat wd0 " 线形比例")))
  (if (= sz_asywh 1) (setq wd1 (strcat wd1 " 变宽线形")) (setq wd0 (strcat wd0 " 变宽线形")))
  (if (= wd1 "\n当前匹配属性：") (setq wd1 "\n当前匹配属性：宽度")(setq wd1 (strcat wd1 "。")))
  (if (= wd0 "不匹配属性：") (setq wd0 "") (setq wd0 (strcat wd0 "。")))
  (princ (strcat "\n***" wd1 wd0))
  (initget "1 2 3 4 5")
  (setq setk(getkword "\n改变：颜色1/图层2/线形3/线形比例4/变宽线形5/<确认>："))
  (cond
    ((= setk "1") (if (= sz_color 1) (setq sz_color 0) (setq sz_color 1)) (sz_s))
    ((= setk "2") (if (= sz_layer 1) (setq sz_layer 0) (setq sz_layer 1)) (sz_s))
    ((= setk "3") (if (= sz_ltype 1) (setq sz_ltype 0) (setq sz_ltype 1)) (sz_s))
    ((= setk "4") (if (= sz_ltsca 1) (setq sz_ltsca 0) (setq sz_ltsca 1)) (sz_s))
    ((= setk "5") (if (= sz_asywh 1) (setq sz_asywh 0) (setq sz_asywh 1)) (sz_s))
    (t nil)
  )
)

(defun sz_b(num enum um / j b0 bj)
  (if (and (assoc num ei) enum)
    (setq ei (subst enum (assoc num ei) ei))
    (if enum
      (setq ei (reverse (cons enum (reverse ei))))
      (if (assoc num ei)
        (progn
          (setq j -1
                b0 nil
          )
          (repeat (length ei)
            (setq j (1+ j)
                  bj(nth j ei)
            )
            (if (/= bj (assoc num ei))
          (setq b0 (cons bj b0))
          (if um (setq b0 (cons (cons num um) b0)))
            )
          )
      (setq ei (reverse b0))
        )
      )
    )
  )
)

(defun sz_main()
  (setq len (sslength ss1)
    i   -1
    ent0(entget (car ent1))
    e62 (assoc 62 ent0)
    e8  (assoc 8 ent0)
    e6  (assoc 6 ent0)
    e48 (assoc 48 ent0)
    e43 (assoc 43 ent0)
    e90 (cdr (assoc 90 ent0))
  )
  (if (>= e90 3)
    (progn
      (repeat 3 (setq ent0 (subst (cons 11 (cdr (assoc 10 ent0))) (assoc 10 ent0) ent0)))
      (setq ent0 (reverse ent0)
            ent0 (reverse (cons (car ent0) (cdr (member (assoc 11 ent0) ent0))))
        ent0 (subst '(90 . 2) (assoc 90 ent0) ent0)
      )
      (repeat 2 (setq ent0 (subst (cons 10 (cdr (assoc 11 ent0))) (assoc 11 ent0) ent0)))
    )
  )
  (repeat len
    (setq i (1+ i)
      eni (ssname ss1 i)
      ei  (entget eni)
    )
    (cond
      ((= (cdr (assoc 0 ei)) "LWPOLYLINE")
       (sz_lwp)
      )
      ((= (cdr (assoc 0 ei)) "LINE")
       (sz_line)
      )
      ((= (cdr (assoc 0 ei)) "ARC")
       (sz_arc)
      )
      ((= (cdr (assoc 0 ei)) "CIRCLE")
       (sz_circle)
      )
      (t nil)
    )
  )
)

(defun sz_lwp()
  (if (= sz_color 1) (sz_b 62 e62 256))
  (if (= sz_layer 1) (setq ei (subst e8 (assoc 8 ei) ei)))
  (if (= sz_ltype 1) (sz_b 6 e6 "BYLAYER"))
  (if (= sz_ltsca 1) (sz_b 48 e48 1.0))
  (if (assoc 43 ei)
    (setq ei (subst e43 (assoc 43 ei) ei))
    (if (= sz_asywh 1)
      (setq ei (reverse (cons e43 (reverse ei))))
    )
  )
  (entmod ei)
  (entupd eni)
)

(defun sz_line(/ ei62 ei8 ei6 ei48 ei10 ei11)
  (setq ei62 (assoc 62 ei)
        ei8  (assoc 8 ei)
        ei6  (assoc 6 ei)
        ei48 (assoc 48 ei)
        ei10 (assoc 10 ei)
        ei11 (assoc 11 ei)
  )
  (setq ei (subst (assoc 5 ei) (assoc 5 ent0) ent0)
    ei (subst (cons 70 0) (assoc 70 ei) ei)
  )
  (if (= sz_color 0) (sz_b 62 ei62 256))
  (if (= sz_layer 0) (setq ei (subst ei8 (assoc 8 ei) ei)))
  (if (= sz_ltype 0) (sz_b 6 ei6 "BYLAYER"))
  (if (= sz_ltsca 0) (sz_b 48 ei48 1.0))
  (setq ei (subst (cons 12 (cdr ei10)) (assoc 10 ei) ei)
    ei (subst (cons 10 (cdr ei11)) (assoc 10 ei) ei)
    ei (subst ei10 (assoc 12 ei) ei)
  )
  (repeat 2 (setq ei (subst (cons 42 0.0) (assoc 42 ei) ei)))
  (entdel eni)
  (entmake ei)
)

(defun sz_circle(/ ei62 ei8 ei6 ei48 ei10 ei40 pt1 pt2)
  (setq ei62 (assoc 62 ei)
        ei8  (assoc 8 ei)
        ei6  (assoc 6 ei)
        ei48 (assoc 48 ei)
        ei10 (cdr (assoc 10 ei))
        ei40 (cdr (assoc 40 ei))
    pt1  (cons (- (car ei10) ei40) (cdr ei10))
    pt2  (cons (+ (car ei10) ei40) (cdr ei10))
  )
  (setq ei (subst (assoc 5 ei) (assoc 5 ent0) ent0)
    ei (subst (cons 70 1) (assoc 70 ei) ei)
  )
  (if (= sz_color 0) (sz_b 62 ei62 256))
  (if (= sz_layer 0) (setq ei (subst ei8 (assoc 8 ei) ei)))
  (if (= sz_ltype 0) (sz_b 6 ei6 "BYLAYER"))
  (if (= sz_ltsca 0) (sz_b 48 ei48 1.0))
  (setq ei (subst (cons 12 pt1) (assoc 10 ei) ei)
    ei (subst (cons 10 pt2) (assoc 10 ei) ei)
    ei (subst (cons 10 pt1) (assoc 12 ei) ei)
  )
  (repeat 2 (setq ei (subst (cons 42 1.0) (assoc 42 ei) ei)))
  (entdel eni)
  (entmake ei)
)

(defun sz_arc(/ ei62 ei8 ei6 ei10 ei48 ei40 ei50 ei51 pt1 pt2 lpt alf e42)
  (setq ei62 (assoc 62 ei)
        ei8  (assoc 8 ei)
        ei6  (assoc 6 ei)
        ei48 (assoc 48 ei)
        ei10 (cdr (assoc 10 ei))
        ei40 (cdr (assoc 40 ei))
        ei50 (cdr (assoc 50 ei))
        ei51 (cdr (assoc 51 ei))
    pt1  (list (+ (car ei10) (* ei40 (cos ei50)))
           (+ (cadr ei10) (* ei40 (sin ei50))) (caddr ei10))
    pt2  (list (+ (car ei10) (* ei40 (cos ei51)))
           (+ (cadr ei10) (* ei40 (sin ei51))) (caddr ei10))
    lpt  (/ (distance pt1 pt2) 2.0)
    alf  (- ei51 ei50)
  )
  (setq ei (subst (assoc 5 ei) (assoc 5 ent0) ent0)
    ei (subst (cons 70 0) (assoc 70 ei) ei)
  )
  (if (= sz_color 0) (sz_b 62 ei62 256))
  (if (= sz_layer 0) (setq ei (subst ei8 (assoc 8 ei) ei)))
  (if (= sz_ltype 0) (sz_b 6 ei6 "BYLAYER"))
  (if (= sz_ltsca 0) (sz_b 48 ei48 1.0))
  (setq ei (subst (cons 12 pt1) (assoc 10 ei) ei)
    ei (subst (cons 10 pt2) (assoc 10 ei) ei)
    ei (subst (cons 10 pt1) (assoc 12 ei) ei)
  )
  (if (or (> alf pi) (and (< alf 0) (> alf (- pi))))
    (setq e42 (/ (+ ei40 (sqrt (- (* ei40 ei40) (* lpt lpt)))) lpt)
      ei  (subst (cons 42 e42) (assoc 42 ei) ei)
    )
    (setq e42 (/ (- ei40 (sqrt (- (* ei40 ei40) (* lpt lpt)))) lpt)
      ei  (subst (cons 42 e42) (assoc 42 ei) ei)
    )
  )
  (entdel eni)
  (entmake ei)
)

(defun sz_ss()
  (setq wd1 "\n当前匹配属性：" wd0 "不匹配属性：")
  (if (= sz_color 1) (setq wd1 (strcat wd1 " 颜色")) (setq wd0 (strcat wd0 " 颜色")))
  (if (= sz_layer 1) (setq wd1 (strcat wd1 " 图层")) (setq wd0 (strcat wd0 " 图层")))
  (if (= sz_ltype 1) (setq wd1 (strcat wd1 " 线形")) (setq wd0 (strcat wd0 " 线形")))
  (if (= sz_ltsca 1) (setq wd1 (strcat wd1 " 线形比例")) (setq wd0 (strcat wd0 " 线形比例")))
  (if (= sz_asywh 1) (setq wd1 (strcat wd1 " 变宽线形")) (setq wd0 (strcat wd0 " 变宽线形")))
  (if (= wd1 "\n当前匹配属性：") (setq wd1 "\n当前匹配属性：宽度")(setq wd1 (strcat wd1 "。")))
  (if (= wd0 "不匹配属性：") (setq wd0 "") (setq wd0 (strcat wd0 "。")))
  (princ (strcat "\n***" wd1 wd0))
  (initget "Setting  ")
  (setq ent1(entsel "\n设置匹配属性S/<拾取参考宽度多义线：>"))
  (if (= ent1 "Setting")
    (progn
      (sz_s)
      (sz_ss)
    )
    (progn
      (if ent1
        (if (/= (type ent1) 'STR)
          (progn
            (if (/= (cdr (assoc 0 (entget (car ent1)))) "LWPOLYLINE") (sz_ss))
            (if (not (assoc 43 (entget (car ent1)))) (sz_ss))
          )
        )
        (sz_ss)
      )
    )
  )
)

(defun c:xk(/ ent1 ent0 wd0 wd1 setk ss1 len i e62 e8 e6 e48 e90 e43 ei eni)
  (command "color" (getvar "cecolor"))
  (if (not sz_color) (setq sz_color 1))
  (if (not sz_layer) (setq sz_layer 1))
  (if (not sz_ltype) (setq sz_ltype 1))
  (if (not sz_ltsca) (setq sz_ltsca 1))
  (if (not sz_asywh) (setq sz_asywh 0))
  (sz_ss)
  (if (/= (type ent1) 'STR)
    (progn
      (princ "\n拾取欲变宽度的线实体：")
      (setq ss1 (ssget '((-4 . "<OR")(0 . "CIRCLE")(0 . "LINE")(0 . "ARC")(0 . "LWPOLYLINE")(-4 . "OR>"))))   
      (if ss1
        (sz_main)
      )
    )
  )
  (princ)
)

(defun c:jg()
(alert "  《工具刷合集》\n    版本：V1.1 \n 自由软件，欢迎转载\n作者：国电南自 郎建山\n")
)

3wlds

自己先顶一个 ，拜托各位了