多个AMPOWERDIM

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

你好

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

非常感谢。

copy


(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) 
)

[编程交流] 多个AMPOWERDIM

发表回复

精选推荐