如何获取某个直径标注的dimtofl值？

sunfj

我现在用下述语句实现了快速改变某个直径或半径标注的是否显示内部尺寸线，但这是两个命令，一个命令是显示，一个命令是关闭。我想改成一个命令，执行这一个命令后，直接改变这个标注尺寸的内部尺寸线，也就是说，如果他是显示的，则让它不显示，如果他是不显示的，则门他显示。大神们，看这个应该怎么办？是不是得先获取到这个标注的dimtofl值？
(defun c:k1 (/ en1 name)
(setq en1 (ssget ":S"))
(setq name (ssname en1 0))
(vla-put-ForceLineInside (vlax-ename->vla-object name) :vlax-false);关闭直径尺寸线内部显示
)
(defun c:k2 (/ en1 name)
(setq en1 (ssget ":S"))
(setq name (ssname en1 0))
(vla-put-ForceLineInside (vlax-ename->vla-object name) :vlax-true);打开直径尺寸线内部显示
)

start4444

(defun c:k1 (/ en1 name)
(setq en1 (ssget ":S"))
(setq name (ssname en1 0))
(if (= (vla-get-ForceLineInside (vlax-ename->vla-object name)) :vlax-true) (vla-put-ForceLineInside (vlax-ename->vla-object name) :vlax-false) (vla-put-ForceLineInside (vlax-ename->vla-object name) :vlax-true))
)

sunfj

是这样的。谢谢。