请教高人指点提取组码中的数值并计算。

ddisddis

我想实现以下目标：cad图中有两个图元，选中一个图元，获得此图元的两个组码所代表的数值分别是A,B（如组码为40,所代表数值为1600）。选中另外一个图元，获得此图元的一个组码所代表的数值C，然后再输入一个数值D。最后进行计算：
(A*B)/（C*D），并把此计算式和最后结果写在cad图中，即“(A*B)/（C*D）=计算结果”计算精度为小数点后三位。

请大侠指点.谢谢。

langjs

目的，方法，结果三要素都有了，不知道还差啥

yxp

好像我第一天学lisp就知道了。
用(setq ss1(entget (ssname (ssget) 0 )))  提取列表信息
用(assoc xxx ss1) 提取需要的xxx号组码

陨落

自己学学Lisp，稍微学一点就会这些了