块中的圆如何先选择后标注直径

sfzyr · 发表于 2022-7-12 03:56:33

本帖最后由 sfzyr 于 2022-7-12 03:59 编辑

(defun c:dra ( / code)
(saverror)
(setq ent (entsel "选择圆弧或圆:"))
(setvar "cmdecho" 1)
(command ".dimradius" ent)
(while (wcmatch (getvar "cmdnames") (strcase "*dimradius*"))
(command pause)
)
(restore)
(princ)
)

当圆对象在块中，可以先dimradius，能选择，先选择，后用 (command ".dimradius" ent)，如何实现？？

tigcat · 发表于 2022-7-12 08:25:02

单选的话用nentsel

sfzyr · 发表于 2022-7-12 21:01:45

tigcat 发表于 2022-7-12 08:25
单选的话用nentsel

你可以试一下，没用

tigcat · 发表于 2022-7-12 22:50:59

本帖最后由 tigcat 于 2022-7-12 22:53 编辑

(command"dim1""rad" pause "" "")
;xyp1964发表于 2011-10-6 14:24

;下面是自己瞎写的
(command ".dimradius" (cadr(nentsel "选择圆弧或圆:")) "")

sfzyr · 发表于 2022-7-12 23:14:25

tigcat 发表于 2022-7-12 22:50
(command"dim1""rad" pause "" "")
;xyp1964发表于 2011-10-6 14:24

感谢，这个标注命令我还是太不能理解了，需要选择一个圆对象，用ENGSEL，把整个LIST表给这个标注命令也可以，现在你是把这个点给他也可以。有点不理解这个指令了

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

[提问] 块中的圆如何先选择后标注直径