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

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 "}") ,有什么作用? 谢谢帮忙回答~~

lei6699 · 发表于 2004-3-27 17:30:00

再问一个很弱的问题~~

有2个实数数据，怎么区分存储？a=1.1 b=2.2

lei6699 · 发表于 2004-3-27 17:30:00

有2个实数，a=1.1 b=2.2 怎么存储？

meflying · 发表于 2004-3-27 17:56:00

1、如果已经注册了，就不要在白费劲了

2、对

3、和后面的问题，你都要去看帮助文件中DXF参考的介绍。。。

lei6699 · 发表于 2004-3-27 21:39:00

请问哪里有详细的组码表？

帮助文件没有类似pline的端点的组码~~

meflying · 发表于 2004-3-28 09:27:00

VLISP的帮助文件，DXF参考。。。

是LWPOLYLINE

账号		自动登录	找回密码
密码			注册