怎么总是返回nil

德哥

(command "dimangular" "" hmbz1 hmd1 hmd2 "t" hmbz pause)
;(setq a (entlast))
(setq ss (cdr (assoc 11 (entget (entlast)))))
(princ "\n")
(initget "Next Yes Exit")
(setq loop (getkword "连续标注Next/继续标注Yes/退出Exit:"))
entlast始终返回nil a=nil 帮忙看一下

meflying

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


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

德哥

问题解决了！谢谢！最后代码 (command "dimangular" "" hmbz1 hmd1 hmd2 "t" hmbz pause)
(command "")
;(setq a (entlast))
(setq ss (cdr (assoc 10 (entget (entlast)))))
(setq a (distance ss hmbz1)) (command "dimangular" "" hmbz1 hmd1 hmd2 "t" hmbz pause)
可以生成标注，也不知道是怎么回事，在后面加一个回车(command "")就搞定了。
还得麻烦meflying师兄了。

meflying

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


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