求助

文化人的剑 · 发表于 2004-9-6 18:51:00

求助
在cad2002中,如何用lisp定义一个函数,先选一个数a,再选一个数B,计算出A和B的乘积,再选另一个数C,将结果给C?

alin · 发表于 2004-9-6 19:56:00


(defun c:test(/ a b c el)
   (setq a (read (cdr (assoc 1 (entget (car (entsel "\n选A: "))))))
  b (read (cdr (assoc 1 (entget (car (entsel "\n选B: ")))))))
   (if (and (numberp a) (numberp b))
       (progn
       (setq c (rtos (* (float a) (float b)))
                 el (entget (car (entsel "\n选C: "))))
       (entmod (subst (cons 1 c) (assoc 1 el) el))
       )
   )
   (princ)
)