[API应用程序]：点选设定标注样式。

eachy

2. 
   
3. ;;使用前需加载XDRX_API
   
4. (defun c:xdimstyle (/ e)
   
5.   (princ (strcat "\n当前标注样式：" (getvar "dimstyle")))
   
6.   (if (setq e (xdrx_entsel "\n选择已有标注样式: " '((0 . "dimension"))))
   
7.     (progn
   
8.       (command "-dimstyle" "r" (xdrx_getentdxf 3))
   
9.       (princ
   
10.         (strcat "\n当前标注样式已设置为：" (xdrx_getentdxf 3))
    
11.       )
    
12.     )
    
13.   )
    
14.   (princ)
    
15. )

<br /> ;;使用前需加载XDRX_API<br /> (defun c:xdimstyle (/ e)<br />   (princ (strcat "\n当前标注样式：" (getvar "dimstyle")))<br />   (if (setq e (xdrx_entsel "\n选择已有标注样式: " '((0 . "dimension"))))<br />     (progn<br />       (command "-dimstyle" "r" (xdrx_getentdxf 3))<br />       (princ<br />         (strcat "\n当前标注样式已设置为：" (xdrx_getentdxf 3))<br />       )<br />     )<br />   )<br />   (princ)<br /> )

chen10jing

能不能把这个程序修改一下，让它可以先选择后执行，目前这个总是先发命令，然后才能选择，这样比较麻烦单一，有时先选择了，就不行了。

请eachy版主帮忙，把这么好的东东能否改为可以先选择后执行的那种，完美之极。