[LISP程序]：请高手看一下这个lisp程序是否有问题

zsg2015

请高手看一下此lisp程序哪里不对，做一下修改，上传，谢谢！

lzj511

这里下载东西很难啊，你弄个文件在这里，还要下载，一般会员下载都受限制的，最好把程序贴出来

zsg2015

(defun C:bian()
(setq num1 nil)
(setq num2 nil)
(setq num3 nil)
(setq M1 (ssget '((0 . "TEXT"))))
(if (= (sslength M1) 2)
(progn
(setq what (entget(ssname M1 0)))
(setq num1 (cdr (assoc 1 what)))
(if (= (substr num1 1 2) "Q3")
     (setq num1 (substr num1 5))
)
(setq what (entget(ssname M1 1)))
(setq num2 (cdr (assoc 1 what)))
;改重量
(chan-2 num1 num2)
(chang2 num1 num2)
(chanl2 num1 num2)
)
)
(if (= (sslength M1) 3)
(progn
(setq what (entget(ssname M1 0)))
(setq num1 (cdr (assoc 1 what)))
  (if (= (substr num1 1 2) "Q3")
     (setq num1 (substr num1 5))
)
(setq what (entget(ssname M1 1)))
(setq num2 (cdr (assoc 1 what)))
  (setq what (entget(ssname M1 2)))
(setq num3 (cdr (assoc 1 what)))
;改重量
(chanwenzhou-3 num1 num2 num3)
(chang3 num1 num2 num3)
(chanl3 num1 num2 num3)
)
)
)
(defun chan-2(a b / a1 a2 a3)
(if (= (substr a 1 1) "-")
     (progn
     (setq a1 (atoi(substr a 2)))
     (setq a1length (strlen (rtos a1 2 0)))
     (setq a2 (atoi(substr a (+ 3 a1length))))
     (setq a2length (strlen (rtos a2 2 0)))
     (setq a3 (atoi(substr a (+ 4 a1length a2length))))     

(setq oneeight(* a1 a2 a3 0.00000785))
(setq oneeighttext(rtos oneeight 2 1))
(setq alleighttext(rtos (* oneeight (atoi b)) 2 1))
(princ oneeighttext)
(princ)
(princ alleighttext)
(setq eight1 (entsel "\n请选单重: "))
(setq what (entget (car eight1)))
(setq what (subst (cons 1 oneeighttext) (assoc 1 what) what))
(entmod what)
(setq eight2 (entsel "\n请选总重: "))
(setq what (entget (car eight2)))
(setq what (subst (cons 1 alleighttext) (assoc 1 what)what))
(entmod what)
)
))
(defun chanwenzhou-3(a b c / a1 a2 b1)
(if (= (substr a 1 1) "-")
     (progn
     (setq a1 (atoi(substr a 2)))
     (setq a1length (strlen (rtos a1 2 0)))
     (setq a2 (atoi(substr a (+ 3 a1length))))
(setq b1 (atoi b))
(setq oneeight(* a1 a2 b1 0.00000785))
(setq oneeighttext(rtos oneeight 2 1))
(setq alleighttext(rtos (* oneeight (atoi c)) 2 1))
(princ oneeighttext)
(princ)
(princ alleighttext)
(setq eight1 (entsel "\n请选单重: "))
(setq what (entget (car eight1)))
(setq what (subst (cons 1 oneeighttext) (assoc 1 what) what))
(entmod what)
(setq eight2 (entsel "\n请选总重: "))
(setq what (entget (car eight2)))
(setq what (subst (cons 1 alleighttext) (assoc 1 what)what))
(entmod what)
)))
(defun chan-3(a b c / a1 a2 b1)
(if (= (substr a 1 1) "-")
     (progn
     (setq a1 (atoi(substr a 2)))
     (setq a1length (strlen (rtos a1 2 0)))
     (setq a2 (atoi(substr a (+ 5 a1length))))
(setq b1 (atoi b))
(setq oneeight(* a1 a2 b1 0.00000785))
(setq oneeighttext(rtos oneeight 2 1))
(setq alleighttext(rtos (* oneeight (atoi c)) 2 1))
(princ oneeighttext)
(princ)
(princ alleighttext)
(setq eight1 (entsel "\n请选单重: "))
(setq what (entget (car eight1)))

(setq what (subst (cons 1 oneeighttext) (assoc 1 what) what))
(entmod what)
(setq eight2 (entsel "\n请选总重: "))
(setq what (entget (car eight2)))
(setq what (subst (cons 1 alleighttext) (assoc 1 what)what))
(entmod what)
)))
(defun chang2(a b / a1 a2 a3)
(if (= (substr a 1 1) "%")
     (progn
     (setq a1 (atof(substr a 4)))
     (setq a1length (strlen (rtos a1 2 0)))
     (setq a2 (atof(substr a (+ 5 a1length))))
     (setq a2length (strlen (rtos a2 2 0)))
     (setq a3 (atof(substr a (+ 6 a1length a2length))))     
(if (= a3 0)
  (progn
   (setq oneeight(* (/ a1 2) a2 (/ a1 2) 0.00000785 3.141593))
   (setq oneeighttext(rtos oneeight 2 1))
   (setq alleighttext(rtos (* oneeight (atoi b)) 2 1))
   (princ oneeighttext)
   (princ)
   (princ alleighttext)
   (setq eight1 (entsel "\n请选单重: "))
   (setq what (entget (car eight1)))

   (setq what (subst (cons 1 oneeighttext) (assoc 1 what) what))
   (entmod what)
   (setq eight2 (entsel "\n请选总重: "))
   (setq what (entget (car eight2)))
   (setq what (subst (cons 1 alleighttext) (assoc 1 what)what))
   (entmod what)
   )
  (progn
(setq oneeight(* (- a1 a2) a2 a3 0.00000785 3.141593))
(setq oneeighttext(rtos oneeight 2 1))
(setq alleighttext(rtos (* oneeight (atoi b)) 2 1))
(princ oneeighttext)
(princ)
(princ alleighttext)
(setq eight1 (entsel "\n请选单重: "))
(setq what (entget (car eight1)))

(setq what (subst (cons 1 oneeighttext) (assoc 1 what) what))
(entmod what)
(setq eight2 (entsel "\n请选总重: "))
(setq what (entget (car eight2)))
(setq what (subst (cons 1 alleighttext) (assoc 1 what)what))
(entmod what)
))
)
))
(defun chang3(a b c / a1 a2 a3)
   
(if (= (substr a 1 1) "%")
     (progn
     
     (setq a1 (atof(substr a 4)))
     (setq a1length (strlen (rtos a1 2 0)))
     (setq a2 (atof(substr a (+ 5 a1length))))
     (princ a1)
     (setq a3 (atoi b))
      (if (= a2 0)
  (progn
   (setq oneeight(* (/ a1 2) a3 (/ a1 2) 0.00000785 3.141593))
   (setq oneeighttext(rtos oneeight 2 1))
   (setq alleighttext(rtos (* oneeight (atoi c)) 2 1))
   (princ oneeighttext)
   (princ)
   (princ alleighttext)
   (setq eight1 (entsel "\n请选单重: "))
   (setq what (entget (car eight1)))

   (setq what (subst (cons 1 oneeighttext) (assoc 1 what) what))
   (entmod what)
   (setq eight2 (entsel "\n请选总重: "))
   (setq what (entget (car eight2)))
   (setq what (subst (cons 1 alleighttext) (assoc 1 what)what))
   (entmod what)
   )
  (progn
(setq oneeight(* (- a1 a2) a2 a3 0.00000785 3.141593))
(setq oneeighttext(rtos oneeight 2 1))
(setq alleighttext(rtos (* oneeight (atoi c)) 2 1))
(princ oneeighttext)
(princ)
(princ alleighttext)
(setq eight1 (entsel "\n请选单重: "))
(setq what (entget (car eight1)))

(setq what (subst (cons 1 oneeighttext) (assoc 1 what) what))
(entmod what)
(setq eight2 (entsel "\n请选总重: "))
(setq what (entget (car eight2)))
(setq what (subst (cons 1 alleighttext) (assoc 1 what)what))
(entmod what)
))
)
))
(defun chanl3(a b c / a1 b1 c1)

(if (= (substr a 1 1) "L")
     (progn
     (setq a1 a)
     
     (cond
      ((= a1 "L40X3") (setq mieight 1.852))
      ((= a1 "L40x3") (setq mieight 1.852))
      ((= a1 "L40X4") (setq mieight 2.422))
      ((= a1 "L40x4") (setq mieight 2.422))
      ((= a1 "L40X5") (setq mieight 2.976))
      ((= a1 "L40x5") (setq mieight 2.976))
      ((= a1 "L45X3") (setq mieight 2.088))
      ((= a1 "L45x3") (setq mieight 2.088))
      ((= a1 "L45X4") (setq mieight 2.736))
      ((= a1 "L45x4") (setq mieight 2.736))
      ((= a1 "L45X5") (setq mieight 3.369))
      ((= a1 "L45x5") (setq mieight 3.369))
      ((= a1 "L45X6") (setq mieight 3.985))
      ((= a1 "L45x6") (setq mieight 3.985))
      ((= a1 "L50X3") (setq mieight 2.332))
      ((= a1 "L50x3") (setq mieight 2.332))
      ((= a1 "L50X4") (setq mieight 3.059))
      ((= a1 "L50x4") (setq mieight 3.059))
      ((= a1 "L50X5") (setq mieight 3.77))
      ((= a1 "L50x5") (setq mieight 3.77))
      ((= a1 "L50X6") (setq mieight 4.465))
      ((= a1 "L50x6") (setq mieight 4.465))
      ((= a1 "L56X3") (setq mieight 2.624))
      ((= a1 "L56x3") (setq mieight 2.624))
      ((= a1 "L56X4") (setq mieight 3.446))
      ((= a1 "L56x4") (setq mieight 3.446))
      ((= a1 "L56X5") (setq mieight 4.251))
      ((= a1 "L56x5") (setq mieight 4.251))
      ((= a1 "L56X8") (setq mieight 6.568))
      ((= a1 "L56x8") (setq mieight 6.568))
      ((= a1 "L63X4") (setq mieight 3.907))
      ((= a1 "L63x4") (setq mieight 3.907))
      ((= a1 "L63X5") (setq mieight 4.822))
      ((= a1 "L63x5") (setq mieight 4.822))
      ((= a1 "L63X6") (setq mieight 5.721))
      ((= a1 "L63x6") (setq mieight 5.721))
      ((= a1 "L63X8") (setq mieight 7.469))
      ((= a1 "L63x8") (setq mieight 7.469))
      ((= a1 "L63X10") (setq mieight 9.151))
      ((= a1 "L63x10") (setq mieight 9.151))
      ((= a1 "L70X4") (setq mieight 4.372))
      ((= a1 "L70x4") (setq mieight 4.372))
      ((= a1 "L70X5") (setq mieight 5.397))
      ((= a1 "L70x5") (setq mieight 5.397))
      ((= a1 "L70X6") (setq mieight 6.406))
      ((= a1 "L70x6") (setq mieight 6.406))
      ((= a1 "L70X7") (setq mieight 7.398))
      ((= a1 "L70x7") (setq mieight 7.398))
      ((= a1 "L70X8") (setq mieight 8.373))
      ((= a1 "L70x8") (setq mieight 8.373))
      ((= a1 "L75X5") (setq mieight 5.818))
      ((= a1 "L75x5") (setq mieight 5.818))
      ((= a1 "L75X6") (setq mieight 6.905))
      ((= a1 "L75x6") (setq mieight 6.905))
      ((= a1 "L75X7") (setq mieight 7.976))
      ((= a1 "L75x7") (setq mieight 7.976))
      ((= a1 "L75X8") (setq mieight 9.03))
      ((= a1 "L75x8") (setq mieight 9.03))
      ((= a1 "L75X10") (setq mieight 11.089))
      ((= a1 "L75x10") (setq mieight 11.089))
      ((= a1 "L80X5") (setq mieight 6.21))
      ((= a1 "L80x5") (setq mieight 6.21))
      ((= a1 "L80X6") (setq mieight 7.376))
      ((= a1 "L80x6") (setq mieight 7.376))
      ((= a1 "L80X7") (setq mieight 8.525))
      ((= a1 "L80x7") (setq mieight 8.525))
      ((= a1 "L80X8") (setq mieight 9.658))
      ((= a1 "L80x8") (setq mieight 9.658))
      ((= a1 "L80X10") (setq mieight 11.87))
      ((= a1 "L80x10") (setq mieight 11.87))
      ((= a1 "L90X6") (setq mieight 8.35))
      ((= a1 "L90x6") (setq mieight 8.35))
      ((= a1 "L90X7") (setq mieight 9.656))
      ((= a1 "L90x7") (setq mieight 9.656))
      ((= a1 "L90X8") (setq mieight 10.946))
      ((= a1 "L90x8") (setq mieight 10.946))
      ((= a1 "L90X10") (setq mieight 13.476))
      ((= a1 "L90x10") (setq mieight 13.476))
      ((= a1 "L90X12") (setq mieight 15.94))
      ((= a1 "L90x12") (setq mieight 15.94))
      ((= a1 "L100X6") (setq mieight 9.366))
      ((= a1 "L100x6") (setq mieight 9.366))
      ((= a1 "L100X7") (setq mieight 10.83))
      ((= a1 "L100x7") (setq mieight 10.83))
      ((= a1 "L100X8") (setq mieight 12.28))
      ((= a1 "L100x8") (setq mieight 12.28))
      ((= a1 "L100X10") (setq mieight 15.12))
      ((= a1 "L100x10") (setq mieight 15.12))      
      ((= a1 "L100X12") (setq mieight 17.898))
      ((= a1 "L100x12") (setq mieight 17.898))
      ((= a1 "L100X14") (setq mieight 20.611))
      ((= a1 "L100x14") (setq mieight 20.611))
      ((= a1 "L100X16") (setq mieight 23.26))
      ((= a1 "L100x16") (setq mieight 23.26))
      ((= a1 "L110X7") (setq mieight 11.928))
      ((= a1 "L110x7") (setq mieight 11.928))
      ((= a1 "L110X8") (setq mieight 13.532))
      ((= a1 "L110x8") (setq mieight 13.532))
      ((= a1 "L110X10") (setq mieight 16.69))
      ((= a1 "L110x10") (setq mieight 16.69))
      ((= a1 "L110X12") (setq mieight 19.782))
      ((= a1 "L110x12") (setq mieight 19.782))
      ((= a1 "L110X14") (setq mieight 22.809))
      ((= a1 "L110x14") (setq mieight 22.809))
      ((= a1 "L125X8") (setq mieight 15.504))
      ((= a1 "L125x8") (setq mieight 15.504))
      ((= a1 "L125X10") (setq mieight 19.133))
      ((= a1 "L125x10") (setq mieight 19.133))
      ((= a1 "L125X12") (setq mieight 22.696))
      ((= a1 "L125x12") (setq mieight 22.696))
      ((= a1 "L125X14") (setq mieight 26.193))
      ((= a1 "L125x14") (setq mieight 26.193))
      ((= a1 "L140X10") (setq mieight 21.488))
      ((= a1 "L140x10") (setq mieight 21.488))
      ((= a1 "L140X12") (setq mieight 25.522))
      ((= a1 "L140x12") (setq mieight 25.522))
      ((= a1 "L140X14") (setq mieight 29.49))
      ((= a1 "L140x14") (setq mieight 29.49))
      ((= a1 "L140X16") (setq mieight 33.39))
      ((= a1 "L140x16") (setq mieight 33.39))
      ((= a1 "L160X10") (setq mieight 24.729))
      ((= a1 "L160x10") (setq mieight 24.729))
      ((= a1 "L160X12") (setq mieight 29.391))
      ((= a1 "L160x12") (setq mieight 29.391))
      ((= a1 "L160X14") (setq mieight 33.987))
      ((= a1 "L160x14") (setq mieight 33.987))
      ((= a1 "L160X16") (setq mieight 38.518))
      ((= a1 "L160x16") (setq mieight 38.518))
      ((= a1 "L180X12") (setq mieight 33.159))
      ((= a1 "L180x12") (setq mieight 33.159))
      ((= a1 "L180X14") (setq mieight 38.383))
      ((= a1 "L180x14") (setq mieight 38.383))
      ((= a1 "L180X16") (setq mieight 43.542))
      ((= a1 "L180x16") (setq mieight 43.542))
      ((= a1 "L180X18") (setq mieight 48.634))
      ((= a1 "L180x18") (setq mieight 48.634))
      ((= a1 "L200X14") (setq mieight 42.894))
      ((= a1 "L200x14") (setq mieight 42.894))
      ((= a1 "L200X16") (setq mieight 48.68))
      ((= a1 "L200x16") (setq mieight 48.68))
      ((= a1 "L200X18") (setq mieight 54.401))
      ((= a1 "L200x18") (setq mieight 54.401))
      ((= a1 "L200X20") (setq mieight 60.056))
      ((= a1 "L200x20") (setq mieight 60.056))
      ((= a1 "L200X24") (setq mieight 71.168))
      ((= a1 "L200x24") (setq mieight 71.168))
      ((= a1 "L 40x3") (setq mieight 1.852))
      ((= a1 "L 40x4") (setq mieight 2.422))
      ((= a1 "L 40x5") (setq mieight 2.976))
      ((= a1 "L 45x3") (setq mieight 2.088))
      ((= a1 "L 45x4") (setq mieight 2.736))
      ((= a1 "L 45x5") (setq mieight 3.369))
      ((= a1 "L 45x6") (setq mieight 3.985))
      ((= a1 "L 50x3") (setq mieight 2.332))
      ((= a1 "L 50x4") (setq mieight 3.059))
      ((= a1 "L 50x5") (setq mieight 3.77))
      ((= a1 "L 50x6") (setq mieight 4.465))
      ((= a1 "L 56x3") (setq mieight 2.624))
      ((= a1 "L 56x4") (setq mieight 3.446))
      ((= a1 "L 56x5") (setq mieight 4.251))
      ((= a1 "L 56x8") (setq mieight 6.568))
      ((= a1 "L 63x4") (setq mieight 3.907))
      ((= a1 "L 63x5") (setq mieight 4.822))
      ((= a1 "L 63x6") (setq mieight 5.721))
      ((= a1 "L 63x8") (setq mieight 7.469))
      ((= a1 "L 70x4") (setq mieight 4.372))
      ((= a1 "L 70x5") (setq mieight 5.397))
      ((= a1 "L 70x6") (setq mieight 6.406))
      ((= a1 "L 70x7") (setq mieight 7.398))
      ((= a1 "L 70x8") (setq mieight 8.373))
      ((= a1 "L 75x5") (setq mieight 5.818))
      ((= a1 "L 75x6") (setq mieight 6.905))
      ((= a1 "L 75x7") (setq mieight 7.976))
      ((= a1 "L 75x8") (setq mieight 9.03))
      ((= a1 "L 80x5") (setq mieight 6.21))
      ((= a1 "L 80x6") (setq mieight 7.376))
      ((= a1 "L 80x7") (setq mieight 8.525))
      ((= a1 "L 80x8") (setq mieight 9.658))
      ((= a1 "L 90x6") (setq mieight 8.35))
      ((= a1 "L 90x7") (setq mieight 9.656))
      ((= a1 "L 90x8") (setq mieight 10.946))
      ((= a1 "L100x6") (setq mieight 9.366))
      ((= a1 "L100x7") (setq mieight 10.83))
      ((= a1 "L100x8") (setq mieight 12.28))
      ((= a1 "L110x7") (setq mieight 11.928))
      ((= a1 "L110x8") (setq mieight 13.532))
      ((= a1 "L125x8") (setq mieight 15.504))
     )
(setq b1 (atoi b))
(setq oneeight(* mieight b1 0.001))
(setq oneeighttext(rtos oneeight 2 1))
(setq alleighttext(rtos (* oneeight (atoi c)) 2 1))
(princ oneeighttext)
(princ)
(princ alleighttext)
(setq eight1 (entsel "\n请选单重: "))
(setq what (entget (car eight1)))

(setq what (subst (cons 1 oneeighttext) (assoc 1 what) what))
(entmod what)
(setq eight2 (entsel "\n请选总重: "))
(setq what (entget (car eight2)))
(setq what (subst (cons 1 alleighttext) (assoc 1 what)what))
(entmod what)
)))
(defun chanl2(a b / a1 b1 c1 i llength)

(if (= (substr a 1 1) "L")
     (progn
      (setq i (- (strlen a) 1))
      (while (/= (substr a i 1) "x")
            (setq i (- i 1))
      )
      (setq llength (atoi (substr a (1+ i) (strlen a))))
      (setq i (- i 1))
     (setq a1 (substr a 1 i))
     
     (cond
      ((= a1 "L40x3") (setq mieight 1.852))
      ((= a1 "L40x4") (setq mieight 2.422))
      ((= a1 "L40x5") (setq mieight 2.976))
      ((= a1 "L45x3") (setq mieight 2.088))
      ((= a1 "L45x4") (setq mieight 2.736))
      ((= a1 "L45x5") (setq mieight 3.369))
      ((= a1 "L45x6") (setq mieight 3.985))
      ((= a1 "L50x3") (setq mieight 2.332))
      ((= a1 "L50x4") (setq mieight 3.059))
      ((= a1 "L50x5") (setq mieight 3.77))
      ((= a1 "L50x6") (setq mieight 4.465))
      ((= a1 "L56x3") (setq mieight 2.624))
      ((= a1 "L56x4") (setq mieight 3.446))
      ((= a1 "L56x5") (setq mieight 4.251))
      ((= a1 "L56x8") (setq mieight 6.568))
      ((= a1 "L63x4") (setq mieight 3.907))
      ((= a1 "L63x5") (setq mieight 4.822))
      ((= a1 "L63x6") (setq mieight 5.721))
      ((= a1 "L63x8") (setq mieight 7.469))
      ((= a1 "L63x10") (setq mieight 9.151))
      ((= a1 "L70x4") (setq mieight 4.372))
      ((= a1 "L70x5") (setq mieight 5.397))
      ((= a1 "L70x6") (setq mieight 6.406))
      ((= a1 "L70x7") (setq mieight 7.398))
      ((= a1 "L70x8") (setq mieight 8.373))
      ((= a1 "L75x5") (setq mieight 5.818))
      ((= a1 "L75x6") (setq mieight 6.905))
      ((= a1 "L75x7") (setq mieight 7.976))
      ((= a1 "L75x8") (setq mieight 9.03))
      ((= a1 "L75x10") (setq mieight 11.089))
      ((= a1 "L80x5") (setq mieight 6.21))
      ((= a1 "L80x6") (setq mieight 7.376))
      ((= a1 "L80x7") (setq mieight 8.525))
      ((= a1 "L80x8") (setq mieight 9.658))
      ((= a1 "L80x10") (setq mieight 11.87))
      ((= a1 "L90x6") (setq mieight 8.35))
      ((= a1 "L90x7") (setq mieight 9.656))
      ((= a1 "L90x8") (setq mieight 10.946))
      ((= a1 "L90x10") (setq mieight 13.476))
      ((= a1 "L90x12") (setq mieight 15.94))
      ((= a1 "L100x6") (setq mieight 9.366))
      ((= a1 "L100x7") (setq mieight 10.83))
      ((= a1 "L100x8") (setq mieight 12.28))
      ((= a1 "L100x10") (setq mieight 15.12))
      ((= a1 "L100x12") (setq mieight 17.898))
      ((= a1 "L100x14") (setq mieight 20.611))
      ((= a1 "L100x16") (setq mieight 23.253))
      ((= a1 "L110x7") (setq mieight 11.928))
      ((= a1 "L110x8") (setq mieight 13.532))
      ((= a1 "L110x10") (setq mieight 16.69))
      ((= a1 "L110x12") (setq mieight 19.782))
      ((= a1 "L110x14") (setq mieight 22.809))
      ((= a1 "L125x8") (setq mieight 15.504))
      ((= a1 "L125x10") (setq mieight 19.133))
      ((= a1 "L125x12") (setq mieight 22.696))
      ((= a1 "L125x14") (setq mieight 26.193))
      ((= a1 "L140x10") (setq mieight 21.488))
      ((= a1 "L140x12") (setq mieight 25.522))
      ((= a1 "L140x14") (setq mieight 29.49))
      ((= a1 "L140x16") (setq mieight 33.39))
      ((= a1 "L160x10") (setq mieight 24.729))
      ((= a1 "L160x12") (setq mieight 29.391))
      ((= a1 "L160x14") (setq mieight 33.987))
      ((= a1 "L160x16") (setq mieight 38.518))
      ((= a1 "L180x12") (setq mieight 33.159))
      ((= a1 "L180x14") (setq mieight 38.383))
      ((= a1 "L180x16") (setq mieight 43.542))
      ((= a1 "L180x18") (setq mieight 48.634))
      ((= a1 "L200x14") (setq mieight 42.894))
      ((= a1 "L200x16") (setq mieight 48.68))
      ((= a1 "L200x18") (setq mieight 54.401))
      ((= a1 "L200x20") (setq mieight 60.056))
      ((= a1 "L200x24") (setq mieight 71.168))
     )
(setq oneeight(* mieight llength 0.001))
(setq oneeighttext(rtos oneeight 2 1))
(setq alleighttext(rtos (* oneeight (atoi b)) 2 1))
(princ oneeighttext)
(princ)
(princ alleighttext)
(setq eight1 (entsel "\n请选单重: "))
(setq what (entget (car eight1)))
(setq what (subst (cons 1 oneeighttext) (assoc 1 what) what))
(entmod what)
(setq eight2 (entsel "\n请选总重: "))
(setq what (entget (car eight2)))
(setq what (subst (cons 1 alleighttext) (assoc 1 what)what))
(entmod what)
)))

秋枫

随便说两句，
没有仔细看你的程序，但浏览了一下，在这里看不下去了：
……
(cond
((= a1 "L40x3") (setq mieight 1.852))
((= a1 "L40x4") (setq mieight 2.422))
((= a1 "L40x5") (setq mieight 2.976))
((= a1 "L45x3") (setq mieight 2.088))
((= a1 "L45x4") (setq mieight 2.736))
((= a1 "L45x5") (setq mieight 3.369))
((= a1 "L45x6") (setq mieight 3.985))
((= a1 "L50x3") (setq mieight 2.332))
((= a1 "L50x4") (setq mieight 3.059))
((= a1 "L50x5") (setq mieight 3.77))
((= a1 "L50x6") (setq mieight 4.465))
……

呃……我建议直接建立一个查询数据表：
(setq datalist '(("L40x3" . 1.852) ("L40x4" . 2.422) ("L40x5" . 2.976) ...))
然后 (setq mieight (cdr (assoc a1 datalist))) 查询一下就行了，不需要这么多条件判断

carrot1983

能编出这样子的程序，很有耐心！
再努力把论坛一些好的代码学习一遍。
应该会写出很不错的程序。

ghl_729

太长了 列害