lisp转换为vba

shi

求助lisp高手，如何把下面这段lisp写的改块颜色转换为vba

;;终于明白了(以前从来都不知道)，得到的结论是：
;;块中的引线和公差颜色为 ByBlock ，不随块本身的颜色的变化而变化。
(defun c:ChBlkColor (/ ss co i obj bn bnlst)
  (if (and (setq ss (ssget '((0 . "insert"))))
           (setq co (acad_colordlg 7))
      )
    (progn
      (repeat (setq i (sslength ss))
        (setq obj (vlax-ename->vla-object (ssname ss (setq i (1- i))))
              bn  (vla-get-name obj)
        )
        (vla-put-color obj co)
        (if (and (= (vla-get-ObjectName obj) "AcDbBlockReference")
                 (= (vla-get-HasAttributes obj) :vlax-true)
            )
          (foreach x (vlax-invoke obj 'getattributes)
            (vla-put-color x 0)
          )
        )
        (if (not (member bn bnlst))
          (setq bnlst (cons bn bnlst))
        )
      )
      (setq blks (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))))
      (foreach x bnlst
        (vlax-for obj (vla-item blks x)
          (if (member (vla-get-ObjectName obj) '("AcDbFcf" "AcDbLeader"))
            (vla-put-color obj co)
            (vla-put-color obj 0)
          )
        )
      )
    )
  )
  (princ)
)
lisp开发版原帖地址
http://bbs.mjtd.com/thread-68173-1-1.html

我不吐槽神马的

同问