求助

文化人的剑

求助


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

alin

2. (defun c:test(/ a b c el)
3.    (setq a (read (cdr (assoc 1 (entget (car (entsel "\n选A: "))))))
4.   b (read (cdr (assoc 1 (entget (car (entsel "\n选B: ")))))))
5.    (if (and (numberp a) (numberp b))
6.        (progn
7.        (setq c (rtos (* (float a) (float b)))
8.                  el (entget (car (entsel "\n选C: "))))
9.        (entmod (subst (cons 1 c) (assoc 1 el) el))
10.        )
11.    )
12.    (princ)
13. )

(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) )

文化人的剑

多谢alin老兄.

文化人的剑

再次请教一下,如何控制C的小数位数为2 位或1位,用上述函数计算时,小数的位数不确定


非常感谢!

xhf

自己看看LSP函数，这些都是比较简单的。

meflying

(setq c (rtos (* (float a) (float b)))


->


        (setq c (rtos (* (float a) (float b) 2 4));控制4为小数

文化人的剑

非常感谢楼上的老兄