浩辰CAD2010的VLISP接口加載賤人工具箱

　　Visual LISP語(yǔ)言可以訪(fǎng)問(wèn)CAD的對(duì)象模型, 不僅使程序開(kāi)發(fā)變得更容易，更快捷，還提供了新的LISP語(yǔ)言應(yīng)用功能。例如，可以使用VLISP以L(fǎng)ISP語(yǔ)言訪(fǎng)問(wèn)ActiveX對(duì)象。還可以通過(guò)VLISP與其他支持ActiveX方法的Windows應(yīng)用程序進(jìn)行交互。

　　浩辰CAD 2010的VLISP接口加載賤人工具箱

　　1、直接訪(fǎng)問(wèn)ActiveX對(duì)象與標(biāo)準(zhǔn)LISP對(duì)比我們把標(biāo)準(zhǔn)Lisp和使用VLISP直接訪(fǎng)問(wèn)ActiveX對(duì)象做一個(gè)簡(jiǎn)單比較： 標(biāo)準(zhǔn)LISP語(yǔ)言：

　　(setq circle-entity (car (entsel)))

　　(setq radius (cdr (assoc 40 (entget circle-entity))))

　　使用VLISP直接訪(fǎng)問(wèn)ActiveX對(duì)象

　　(vlax-ename->vla-object circle-entity)

　　(setq radius (vla-get-radius circle-object))

　　對(duì)比可以發(fā)現(xiàn)直接訪(fǎng)問(wèn)ActiveX對(duì)象更方便直觀。從效率方面來(lái)講，直接訪(fǎng)問(wèn)ActiveX對(duì)象避免了分配大量?jī)?nèi)存，生成冗余的列表，從而運(yùn)行更快。

　　2、加載VLISP工程的方法 浩辰CAD2010不僅提供了與AutoCAD兼容的VLISP接口，還可以直接加載AutoCAD編譯好的VLISP工程(VLX、FAS文件)，省去了移植工作的煩惱;同時(shí)也可以直接利用互聯(lián)網(wǎng)上提供的大量免費(fèi)的VLISP工程，從而更大程度上節(jié)約設(shè)計(jì)時(shí)間。

　　1)、可以調(diào)用APPLOAD命令，像加載LISP文件一樣加載VLISP工程(VLX、FAS文件)。

　　2)、可以直接在命令行中書(shū)寫(xiě)形如(load “c:Test.vlx”) (load “c:Test.fas”)的LISP語(yǔ)句完成加載。

　　3)、直接在其他程序中，像浩辰CAD發(fā)送LISP語(yǔ)句完成加載。

　　3、VLISP加載實(shí)例賤人工具箱是網(wǎng)上流傳很廣的CAD免費(fèi)小工具，下面就以賤人工具箱5.2版為例，演示一下浩辰CAD是如何加載VLISP程序的。在工具菜單選擇加載應(yīng)用程序選項(xiàng)，可以看到浩辰CAD2010可以支持所有的CAD二次開(kāi)發(fā)程序的加載，這里選擇VLISP的程序VLX來(lái)加載賤人工具箱。

　　選擇賤人工具箱的程序

　　加載后根據(jù)命令行的提示啟動(dòng)賤人工具箱

　　輸入Y回車(chē)，彈出賤人工具箱的界面：

　　賤人工具箱就可以在浩辰CAD上使用了，正因?yàn)楹瞥紺AD2010優(yōu)秀的二次開(kāi)發(fā)接口，類(lèi)似賤人工具箱這樣本來(lái)是為AutoCAD開(kāi)發(fā)的插件都可以直接在浩辰CAD2010上進(jìn)行加載運(yùn)行，為用戶(hù)提供了真正的便利。

　　VLX和FAS的直接加載運(yùn)行是浩辰CAD 2010版的重大技術(shù)突破，其他同類(lèi)的CAD都無(wú)法實(shí)現(xiàn)。當(dāng)然，由于VLISP函數(shù)以及命令參數(shù)還不能與AutoCAD100%兼容，還不能保證所有的VLX或FAS程序加載后所有功能都能正常運(yùn)行，我們的開(kāi)發(fā)人員正在對(duì)一些常用的工具進(jìn)行測(cè)試，并逐步完善VLISP與AutoCAD兼容性。