[编程交流] Lisp更改al的颜色

[font=Courier New][size=2]Sub EsWerdeDunkel()
   Dim Entity As AcadEntity, Blockdef As AcadBlock, Blockref As AcadBlockReference
   For Each Entity In ThisDrawing.ModelSpace:  Entity.Color = 254: Next Entity
   
   For Each Blockdef In ThisDrawing.Blocks
       If Blockdef.IsLayout = False Then For Each Entity In Blockdef: Entity.Color = 254: Next Entity
   Next Blockdef
End Sub[/size][/font]

(defun c:test ( / col doc foo )
   (if (setq col (acad_colordlg 1))
       (progn
           (setq foo (lambda ( obj ) (if (vlax-write-enabled-p obj) (vla-put-color obj col)))
                 doc (vla-get-activedocument (vlax-get-acad-object))
           )
           (vlax-map-collection (vla-get-modelspace doc) 'foo)
           (vlax-map-collection (vla-get-blocks doc)
              '(lambda ( blk )
                   (if (and (= :vlax-false (vla-get-islayout blk))
                            (= :vlax-false (vla-get-isxref   blk))
                       )
                       (vlax-map-collection blk 'foo)
                   )
               )
           )
       )
   )
   (princ)
)

Loading D:\_Witzig\_Admin\CAD\LISP\Farbe.lsp
: (LOAD "D:/_Witzig/_Admin/CAD/LISP/Farbe.lsp")C:TEST
: TEST
; ----- LISP : Call Stack -----
; [0]...C:TEST <<--
;
; ----- Error around expression -----
'FOO
;
; error : no function definition <FOO> ; expected FUNCTION at [sYMBOL-FUNCTION]