[下载]新年第一帖>值得参考的VisualLISP范例档

wen1235

     大家也许有看到过,但不太明白,这跟ET一样都是好的学习资料, 官方的函数用法和技巧,你能错过吗?

April 13, 2005
值得參考的VisualLISP 範例檔 值得参考的VisualLISP范例档
VisualLISP 除了線上文件豐富之外，最近看到一份範例集錦vlsample.zip，裡面有很多範例檔，詳細展示了各種VisualLISP 技巧和ActiveX 物件的使用方式，尤其是reactor 和ActiveX 物件是參考價值最高的部份。 VisualLISP除了线上文件丰富之外，最近看到一份范例集锦vlsample.zip，里面有很多范例档，详细展示了各种VisualLISP技巧和ActiveX物件的使用方式，尤其是reactor和ActiveX物件是参考价值最高的部份。 相關文章和zip 檔可以到AfraLisp網站閱讀及下載。相关文章和zip档可以到AfraLisp网站阅读及下载。 壓縮檔展開之後有一堆.lsp 程式檔還有.prj 計畫檔，各個檔案的簡要說明如下：压缩档展开之后有一堆.lsp程式档还有.prj计画档，各个档案的简要说明如下：

afact.lsp: 階乘 afact.lsp:阶乘
blackboard.lsp: 如何使用黑板(blackboard)在不同文件之間共享資料、函數和物件 blackboard.lsp:如何使用黑板(blackboard)在不同文件之间共享资料、函数和物件
color-util.lsp: 在AutoCAD 內使用全彩(true color) color-util.lsp:在AutoCAD内使用全彩(true color)
doc_utils.lsp: 搭配main_mdi.lsp 使用(sample-instrs, load-vlxfile) doc_utils.lsp:搭配main_mdi.lsp使用(sample-instrs, load-vlxfile)
drawline-with-errors.lsp: 錯誤示範（官方文件範例） drawline-with-errors.lsp:错误示范（官方文件范例）
drawline.lsp: （官方文件範例） drawline.lsp: （官方文件范例）
grafun.lsp: 分別用ActiveX 和AutoLISP 函數建立3D mesh grafun.lsp:分别用ActiveX和AutoLISP函数建立3D mesh
image.lsp: 用ActiveX 函數插入一張影像 image.lsp:用ActiveX函数插入一张影像
lispdata1.lsp: 將AutoLISP 資料儲存在繪圖資料中(用ldata & dictionary) lispdata1.lsp:将AutoLISP资料储存在绘图资料中(用ldata & dictionary)
lispdata2.lsp: 將AutoLISP 資料儲存在繪圖資料中(更好的方法) lispdata2.lsp:将AutoLISP资料储存在绘图资料中(更好的方法)
main_mdi.lsp: 如何使用variant 和safearray 變數 main_mdi.lsp:如何使用variant和safearray变数
Mouse Reactor.lsp: 用ActiveX menu API 和mouse reactor 建立右鍵跳出式選單 Mouse Reactor.lsp:用ActiveX menu API和mouse reactor建立右键跳出式选单
Obj-Props.lsp: 如何與物件屬性管理員溝通（透過選集和反應器傳送異動訊息） Obj-Props.lsp:如何与物件属性管理员沟通（透过选集和反应器传送异动讯息）
propagate.lsp: 傳送print-list 函數（依賴s::startup 的執行） propagate.lsp:传送print-list函数（依赖s::startup的执行）
regdump.lsp: 如何使用registry-xxxx 函數以及使用者自訂登錄函數 regdump.lsp:如何使用registry-xxxx函数以及使用者自订登录函数
timestamp.lsp: 使用vlax-add-cmd 和vlax-reg-cmd 建立原生命令（不用c:） timestamp.lsp:使用vlax-add-cmd和vlax-reg-cmd建立原生命令（不用c:）
tmatrix.lsp: 使用vla-TransformBy 和變形矩陣 tmatrix.lsp:使用vla-TransformBy和变形矩阵
typelib.lsp: 如何匯入以及使用型別庫(type library)進行跨應用程式整合 typelib.lsp:如何汇入以及使用型别库(type library)进行跨应用程式整合
vlx_app.prv: （計畫檔） vlx_app.prv: （计画档）
vlx_app.vlx: (binary code) vlx_app.vlx: (binary code)
vlx_file.fas: (binary code) vlx_file.fas: (binary code)
vlx_file.lsp: 變數可在程式和文件名域之間、程式名域和執行期黑板之間交換 vlx_file.lsp:变数可在程式和文件名域之间、程式名域和执行期黑板之间交换
xdata_variants.lsp: 如何使用variant 和safearray 變數 xdata_variants.lsp:如何使用variant和safearray变数
xrecord.lsp: 使用xrecord 和dictionary xrecord.lsp:使用xrecord和dictionary
yinyang.lsp: （官方文件範例） yinyang.lsp: （官方文件范例）

ActiveX ActiveX
al-tst.lsp: （測速）用AutoLISP 畫2000 個圓 al-tst.lsp: （测速）用AutoLISP画2000个圆
vla-tst.lsp: （測速）用ActiveX 畫2000 個圓 vla-tst.lsp: （测速）用ActiveX画2000个圆
vla-tst.prj: （計畫檔） vla-tst.prj: （计画档）

RCTR-TST RCTR-TST
app-reg.lsp: （起始檔） app-reg.lsp: （起始档）
getparm.dcl: 對話框定義（由rctr.lsp 呼叫） getparm.dcl:对话框定义（由rctr.lsp呼叫）
getparm.lsp: 對話框處理（由rctr.lsp 呼叫） getparm.lsp:对话框处理（由rctr.lsp呼叫）
rctr-tst.prj: （計畫檔） rctr-tst.prj: （计画档）
rctr.lsp: 將圓等距排列在一條曲線上，並跟著曲線動 rctr.lsp:将圆等距排列在一条曲线上，并跟着曲线动
rsame.lsp: 讓不同物件共享一組屬性 rsame.lsp:让不同物件共享一组属性
rtie.lsp: 定義reactor 輔助函數 rtie.lsp:定义reactor辅助函数
rtrans.lsp: 定義reactor 位移函數 rtrans.lsp:定义reactor位移函数

REAC-TST REAC-TST
a-mtext.lsp: 圓與文字物件同步更動 a-mtext.lsp:圆与文字物件同步更动
acdbex.lsp: 測試AcDbReactor 反應器 acdbex.lsp:测试AcDbReactor反应器
copyself.lsp: 定義reactor 複製函數 copyself.lsp:定义reactor复制函数
ctie.lsp: 定義reactor 輔助函數 ctie.lsp:定义reactor辅助函数
dimex.lsp: 圓與文字物件同步更動 dimex.lsp:圆与文字物件同步更动
dumbells.lsp: 兩個圓掛在一條線段的兩端，會一起連動 dumbells.lsp:两个圆挂在一条线段的两端，会一起连动
editex.lsp: 在編輯器中新增/移除reactor editex.lsp:在编辑器中新增/移除reactor
linkex.lsp: 定義一些reactor 測試函數 linkex.lsp:定义一些reactor测试函数
objex.lsp: 三個圓有不同顏色，但其半徑會同步更動 objex.lsp:三个圆有不同颜色，但其半径会同步更动
pipe.lsp: 利用一條曲線和圓做一條中空管，而且會跟著曲線更動 pipe.lsp:利用一条曲线和圆做一条中空管，而且会跟着曲线更动
r-info.lsp: 用來顯示本範例函數的說明 r-info.lsp:用来显示本范例函数的说明
r-init.lsp: 初使化全域變數 r-init.lsp:初使化全域变数
reac-tst.prj: （計畫檔） reac-tst.prj: （计画档）
rolls.lsp: 物件和編輯器reactor 範例 rolls.lsp:物件和编辑器reactor范例
rtransl.lsp: 定義reactor 輔助函數 rtransl.lsp:定义reactor辅助函数
rutils.lsp: （輔助）建立全域變數 rutils.lsp: （辅助）建立全域变数
same-rcl.lsp: 讓三個圓同步更動 same-rcl.lsp:让三个圆同步更动
sel-reac.lsp: 如何選取綁在一個vla 物件上的所有reactor sel-reac.lsp:如何选取绑在一个vla物件上的所有reactor
toplevel.lsp: 一開始執行就顯示的求助訊息 toplevel.lsp:一开始执行就显示的求助讯息

英雄无敌

很不错的资料，收藏了！谢谢楼主

carrot1983

小样的，我见了眼熟，原来是afalisp上面的。

totoro

很好的资料!推~

genius_wzx

很不错的资料，收藏了！谢谢楼主

nzl1116

是很眼熟，AutoCAD 文档里就有。

xhq1954425

谢谢分享！

danberlove

豆仔！~

yoyoho

感谢楼主分享.