[求助]如何读一个实数，写入扩展数据中？

lei6699 · 发表于 2004-3-25 22:51:00

下面的为什么不能实现？
(setq ment (entlast))
(setq mlist (entget ment))
(setq mreal (getreal "\n弯矩值:"))
(setq mapp "moment")
(setq mxdata (cons '1040 mreal))
(setq x1 (list -3 (append (list mapp) (list mxdata))))
(setq mlist (append (entget entname) (list x1)))
(entmod mlist)

meflying · 发表于 2004-3-26 08:24:00

entname哪儿来的？应该是ment吧（(entget entname)处）
没有注册"moment"
要(regapp mapp)

lei6699 · 发表于 2004-3-27 14:20:00

我更正了，怎么还是不行
请给一个例子吧

BDYCAD · 发表于 2004-3-27 15:21:00

(DEFUN C:TEST ()
   (setq ment (entlast))
   (setq mlist (entget ment))
   (setq mreal (getreal "\n彎矩值:"))
   (if (= (regapp "moment") NULL)
   (regapp "moment")
   )
   (setq mapp "moment")
   (setq mxdata (cons '1040 mreal))
   (setq x1 (list -3 (append (list mapp) (list mxdata))))
   (setq mlist (append mlist (list x1)))
   (entmod mlist)
   (PRINC)
)

lei6699 · 发表于 2004-3-27 16:07:00

谢谢斑竹，还想问一下：
1。为什么要判断 (if (= (regapp "moment") NULL)
(regapp "moment") )
2。(car (entsel)) 选取刚生成的图形，跟(entlast)都是返回图元名，对吧？
3。为什么有的例子里面有加(1002 "{") (1002 "}") ,有什么作用?
谢谢帮忙回答~~