社区 › AutoCAD.net/VB.net/C# 编程技术 › 对Lsp程序到vb.net的移植

xiguao 发表于 2012-3-16 16:34:09

对Lsp程序到vb.net的移植

各位老大，帮忙翻译成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)
)

查看完整版本: 对Lsp程序到vb.net的移植