对Lsp程序到vb.net的移植

xiguao

各位老大，帮忙翻译成vb.net可以吗？
(DEFUN C:exb (/ selblock newblock x y)
  (while (setq selblock (ENTSEL "\n点取一个块"))
    (if        (= (cdr (assoc 0 (entget (car selblock)))) "INSERT")
      (progn
        (setq newblock (entget (car selblock)))
        (mapcar '(lambda (x y)
                   (setq newblock (subst (cons x y)
                                         (assoc x newblock)
                                         newblock
                                         )))
                '(44 45 70 71 100)
                '(0 0 2 2 "AcDbMInsertBlock"))
        (entmake newblock)
        (entdel (car selblock))
        (princ "\n一个普通块改成多重插入块")
      )
    )
  )
  (princ)
)