我是初学者请教
 

我是初学者请教
www.dimcax.com
我是初学者请教
(defun c:jj1(/ ss n en endata oldt tt newt newlist )
(prompt "select objects: ")
(setq ss (ssget '((0 . "text"))))/选定ss中的text图元
(setq n 0)
(setq k (getint "\n请输入计算结果保留小数位数<2>:"))
(if (= k nil) (setq k 2))
(if (= ttt nil) (setq ttt 0.0))
(setq tt (getreal (strcat "\n请输入增加的数值: <" (rtos ttt 2 k) ">:")))
(if (= tt nil) (setq tt ttt))
(setq ttt tt)
(repeat (sslength ss)/:循环次数是ss表里的元素数量
(setq en (ssname ss n))/:取ss里图元名称至en变量中
(setq endata (entget en))/：en图元名称至endata
(if (= (cdr (assoc 0 endata)) "text")/:如果表中有元素则执行下列内容
(progn/:下列命令并列执行
(setq oldt (atof(cdr (assoc 1 endata))))/:元素内容转换为实数赋给oldt变量
(setq newt (+ oldt tt))
(setq newlist (cons 1 (rtos newt 2 k)))
(setq endata (subst newlist (assoc 1 endata) endata))/:将new中的内容更新到endata图元中
(entmod endata) /:更新endata图元到图面
)
)
(setq n (1+ n))
)
(prin1)
)
里面的assoc 1 endata 和assoc 0 endata是什么意思啊？
d
去看看“dxf群码”吧
cad的帮助中就有
工资真的要涨了，心里更加爱党了，能给孩子奖赏了，见到老婆敢嚷了，敢尝海鲜鹅掌了，闲时能逛商场了，遇见美女心痒了，结果物价又涨了！
d
谢谢楼上的，已经弄清楚了
d