mapcar 允許您在列表中的每個元素上執行一個“功能” 2014-02-20 10:08:00 ;--------------------------------------- (setq a 5) ( mapcar '1+ (list a)) ; 傳回 6 ;---------------------------------------...
bllp.vlx by layout 部分的程式碼 2014-02-19 16:40:00 下圖為對話框內 by layout 部分的畫面: 此對話框的程式碼如下圖所示: 下面是取得所有配置名稱和數量的atuolisp程式...
擷取指定磁碟機的序號 2014-02-06 08:29:00 (defun getDriveSN (Drv / DrvObj FilSys RetVal) (setq FilSys ( vlax-create-object "Scripting.FileSystemObject") RetVal ( cond ...
擷取圖層名稱的範例程式 2014-01-23 09:04:00 這是阿貴在網路上下載的 autolisp 程式, 那裡可以學到 autolisp, Visual Lisp, DCL, VBA,... 的程式設計, 是個不錯的學習網站. 下面是範例的內容: ; 以下是 AUTOLISP 的程式碼 (defun c:getlay (/ NAMES SIZ1) ; 下載網...
ssget 選取集指令語法 2014-01-20 09:07:00 ; ssget 選取集 ; ; ----------------------------------------------------- (setq sel1 ( ssget )) ; 純 ssget, 未設定選取的方式, 也未設過濾...
vlax-for 對list內的元素,一一執行後面的指令 2014-01-19 21:28:00 ; vlax-for 對list內的元素,一一執行後面的指令 ; [ vlisp 指令 ] (defun get_layer_list_for_ptl_of_mbp () (setq layerobj ( vla-get-layers dwg...
list 的排序指令 2014-01-19 13:05:00 ; list 的排序指令 ; -------------------------------------------------------------------- ; 點座標 (x y z) 所組成的list ; 可以用下列的指令來排序 (setq PntLst ( vl...
reverse 將 list 內的元素反序列排序 2014-01-19 11:57:00 ; reverse 將 list 內的元素反序列排序 ; 預設 pt_list 為 nil ; 用 cons 指令將 x, y, z 一一加入 pt_list, ; pt_list 的元素順序為 '( z y x) ; ( setq...
foreach 2014-01-18 09:36:00 ; foreach 指令 ; 取出 list 內的每一個 atom 來執行 後面的指令內容 ( command " pline " ( foreach pt ...