德哥 发表于 2005-3-3 22:15:00

怎么总是返回nil

(command "dimangular" "" hmbz1 hmd1 hmd2 "t" hmbz pause)<BR>                       ;(setq a (entlast))<BR>                                       (setq ss (cdr (assoc 11 (entget (entlast)))))<BR>               (princ "\n")<BR>               (initget "Next Yes Exit")<BR>               (setq loop (getkword "连续标注Next/继续标注Yes/退出Exit:"))<BR>


entlast始终返回nil


a=nil


帮忙看一下

meflying 发表于 2005-3-4 08:20:00

你确信这句能正确执行，并产生新的对象？


(command "dimangular" "" hmbz1 hmd1 hmd2 "t" hmbz pause)

德哥 发表于 2005-3-4 08:33:00

问题解决了！谢谢！最后代码


                               (command "dimangular" "" hmbz1 hmd1 hmd2 "t" hmbz pause)<BR>                       (command "")<BR>                       ;(setq a (entlast))<BR>                                       (setq ss (cdr (assoc 10 (entget (entlast)))))<BR>                                       (setq a (distance ss hmbz1))


        (command "dimangular" "" hmbz1 hmd1 hmd2 "t" hmbz pause)<BR>可以生成标注，也不知道是怎么回事，在后面加一个回车(command "")就搞定了。<BR>还得麻烦<A name=13029><FONT color=#990000><B>meflying</B></FONT></A>师兄了。

meflying 发表于 2005-3-4 09:51:00

这是你对这个命令的使用还不完全正确，command后面的参数无法一一对应命令提示行（包括空回车），按你的说法，应该就是最后少了一个空回车，改成如下试试：


(command "dimangular" "" hmbz1 hmd1 hmd2 "t" hmbz pause "")
页: [1]
查看完整版本: 怎么总是返回nil