tama010 发表于 2022-7-5 20:21:50

多个AMPOWERDIM

你好
 
当我试图文本覆盖由AMPOWERDIM创建的选定维度文本时,我注意到一些非常奇怪的事情。如果我在不退出命令的情况下使用AMPOWERDIM创建多个维度,我注意到覆盖将适用于创建的第一个维度,但其余维度将无法正确覆盖。有人知道发生了什么事吗?
 
非常感谢。

(vl-load-com)
(defun c:FOO (/ ss oDim s)
(if (setq ss (ssget ":S:E" '((0 . "DIM*"))))   
    (progn      
      (setq oDim (vlax-ename->vla-object (ssname ss 0)))      
      (prompt      
      (strcat "\nTextOverride: "               
          (if                  
         (and                     
             (vlax-property-available-p oDim 'textoverride)                  
             (/= "" (setq s (vla-get-textoverride oDim)))                  
             )
               s                  
               "<Empty String> "               
             )
         )      
         )   
       )   
   )   
(princ)
)
页: [1]
查看完整版本: 多个AMPOWERDIM