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

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

下面的为什么不能实现？


(setq ment (entlast))<BR>(setq mlist (entget ment))<BR>(setq mreal (getreal "\n弯矩值:"))<BR>       (setq mapp "moment")<BR>(setq mxdata (cons '1040 mreal))


<BR>(setq x1 (list -3 (append (list mapp) (list mxdata))))<BR>(setq mlist (append (entget entname) (list x1)))<BR>        (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 ()<BR>       (setq ment (entlast))<BR>       (setq mlist (entget ment))<BR>       (setq mreal (getreal "\n彎矩值:"))<BR>       (if (= (regapp "moment") NULL)<BR>                       (regapp "moment")<BR>       )<BR>       (setq mapp "moment")<BR>       (setq mxdata (cons '1040 mreal))<BR>       (setq x1 (list -3 (append (list mapp) (list mxdata))))<BR>       (setq mlist (append mlist (list x1)))<BR>       (entmod mlist)<BR>       (PRINC)<BR>)

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

谢谢斑竹，



还想问一下：


1。为什么要判断 (if (= (regapp "moment") NULL)<BR>                       (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
页: [1] 2
查看完整版本: [求助]如何读一个实数，写入扩展数据中？