数字奇数改红色，偶数改绿色

树櫴希德

数字奇数改红色，偶数改绿色

树櫴希德

1. ;; Set Attribute Values  -  Lee Mac 修改增强属性块属性
   
2. ;; Sets attributes with tags found in the association list to their associated values.
   
3. ;; blk - [vla] VLA Block Reference Object
   
4. ;; lst - [lst] Association list of ((<tag> . <value>) ... )
   
5. ;; Returns: nil
   
6. 
   
7. (defun LM:vl-setattributevalues ( blk lst / itm )
   
8.     (foreach att (vlax-invoke blk 'getattributes)
   
9.         (if (setq itm (assoc (vla-get-tagstring att) lst))
   
10.             (vla-put-textstring att (cdr itm))
    
11.         )
    
12.     )
    
13. )
    
14. 
    
15. ;(vla-get-tagstring (vlax-invoke (vlax-ename->vla-object (car (entsel))) 'getattributes) )
    
16. 
    
17. ; (vlax-invoke (vlax-ename->vla-object (car (entsel))) 'getattributes)
    
18. ;; Get Attribute Values  -  Lee Mac 获取增强属性块属性
    
19. ;; Returns an association list of attributes present in the supplied block.
    
20. ;; blk - [vla] VLA Block Reference Object
    
21. ;; Returns: [lst] Association list of ((<tag> . <value>) ... )
    
22. 
    
23. (defun LM:vl-getattributevalues ( blk )
    
24.     (mapcar '(lambda ( att ) (cons (vla-get-tagstring att) (vla-get-textstring att))) (vlax-invoke blk 'getattributes))
    
25. )
    
26. 
    
27. (setq lst '(("ZBG-BG" . "24444.85") ("SBG-BG" . "28888.81") ("SS-ZZ" . "8883.96") ("CDBG-BG"
    
28. . "") ("SS-CD" . "") ("CD-ZZ" . ""))
    
29. )
    
30. (LM:vl-setattributevalues (vlax-ename->vla-object (car (entsel))) lst )
    
31. 
    
32. (assoc "ZBG-BG" '(("ZBG-BG" . "24.85") ("SBG-BG" . "28.81") ("SS-ZZ" . "3.96") ("CDBG-BG" . "") ("SS-CD" . "") ("CD-ZZ" . "")))

;; Set Attribute Values  -  Lee Mac 修改增强属性块属性<br /> ;; Sets attributes with tags found in the association list to their associated values.<br /> ;; blk - [vla] VLA Block Reference Object<br /> ;; lst - [lst] Association list of ((<tag> . <value>) ... )<br /> ;; Returns: nil<br /> <br /> (defun LM:vl-setattributevalues ( blk lst / itm )<br />     (foreach att (vlax-invoke blk 'getattributes)<br />         (if (setq itm (assoc (vla-get-tagstring att) lst))<br />             (vla-put-textstring att (cdr itm))<br />         )<br />     )<br /> )<br /> <br /> ;(vla-get-tagstring (vlax-invoke (vlax-ename->vla-object (car (entsel))) 'getattributes) )<br /> <br /> ; (vlax-invoke (vlax-ename->vla-object (car (entsel))) 'getattributes)<br /> ;; Get Attribute Values  -  Lee Mac 获取增强属性块属性<br /> ;; Returns an association list of attributes present in the supplied block.<br /> ;; blk - [vla] VLA Block Reference Object<br /> ;; Returns: [lst] Association list of ((<tag> . <value>) ... )<br /> <br /> (defun LM:vl-getattributevalues ( blk )<br />     (mapcar '(lambda ( att ) (cons (vla-get-tagstring att) (vla-get-textstring att))) (vlax-invoke blk 'getattributes))<br /> )<br /> <br /> (setq lst '(("ZBG-BG" . "24444.85") ("SBG-BG" . "28888.81") ("SS-ZZ" . "8883.96") ("CDBG-BG" <br /> . "") ("SS-CD" . "") ("CD-ZZ" . ""))<br /> )<br /> (LM:vl-setattributevalues (vlax-ename->vla-object (car (entsel))) lst )<br /> <br /> (assoc "ZBG-BG" '(("ZBG-BG" . "24.85") ("SBG-BG" . "28.81") ("SS-ZZ" . "3.96") ("CDBG-BG" . "") ("SS-CD" . "") ("CD-ZZ" . "")))

树櫴希德

坐标系列表

1. (VL-LOAD-COM)
   
2. 
   
3.   (setq    AcadObject   (vlax-get-acad-object)
   
4. 
   
5.        AcadDocument (vla-get-ActiveDocument Acadobject)
   
6. 
   
7.        UCSColl       (vla-get-UserCoordinateSystems AcadDocument)
   
8. 
   
9.   )
   
10. 
    
11. 
    
12. ;(Setq LayerName (Vlax-Get UCSColl 'Name))
    
13. (setq blockNameLst nil)
    
14. (vlax-for block UCSColl
    
15.      (setq blockName (Vlax-Get block 'Name ))
    
16.      (setq blockNameLst (append blockNameLst (list blockName)))
    
17. )

(VL-LOAD-COM)<br /> <br />   (setq    AcadObject   (vlax-get-acad-object)<br /> <br />        AcadDocument (vla-get-ActiveDocument Acadobject)<br /> <br />        UCSColl       (vla-get-UserCoordinateSystems AcadDocument)<br /> <br />   )<br /> <br /> <br /> ;(Setq LayerName (Vlax-Get UCSColl 'Name))<br /> (setq blockNameLst nil)<br /> (vlax-for block UCSColl<br />      (setq blockName (Vlax-Get block 'Name ))<br />      (setq blockNameLst (append blockNameLst (list blockName)))<br /> )

tigcat

谢谢楼主分享