一、展點程式載入
在auto cad中加lisp程式的兩種簡單方法：
1、使用load函式載入
在命令列中鍵入以函式回車即可載入：
(load "d:\\abc\\jgl\\kszd.lsp")
2、使用選單載入
工具(t)—>載入應用程式(l)—>在選擇檔案對話方塊中選「d:\abc\jgl\kszd.lsp」—>
載入(l)—>關閉(c)後可載入
二、展點程式執行
載入後，在命令列中鍵入：kszd，並回車後即可啟動程式。
三、資料檔案格式
資料檔案必須是用記事本或其它文字處理軟體編輯的以".txt"為副檔名存檔的文
件，各資料項間以空格或逗號(注意是英方狀態下的逗號)作分隔，如：
1 11989.07 9900.32 2148.38
2 12016.46 9968.43 2147.64
3 12012.4 9931.35 2147.82
4 12016.1 9896 2148.86
5 12024.21 9870.29 2149.13
或者1 , 11989.07 , 9900.32 , 2148.38
2 , 12016.46 , 9968.43 , 2147.64
3 , 12012.4 , 9931.35 , 2147.82
4 ,12016.1 , 9896 , 2148.86
5 , 12024.21 , 9870.29 , 2149.13
lisp快速展點程式
;lisp展點程式
;展1000點：在hp(amd athlon64 3000+ 256mb)電膠上僅耗時0.142秒；
; 在金利(geleron(r) cpu 2.40ghz 256mb)電膠上耗時0.882秒
;資料檔案格式為：每一點的資料(點號、x、y、h)為一行，用逗號或空格作為分隔符，即
;點號1 x1 y1 h1 或者 點號1, x1, y1, h1
;點號2 x2 y2 h2 或者 點號2, x2, y2, h2
;點號3 x3 y3 h3 或者 點號3, x3, y3, h3
;點號n xn yn hn 或者 點號n, xn, yn, hn1
(defun c:kszd()
(setq ff (open (getfiled "請選擇要展點的資料檔案" "" "txt" 2) "r")
fhb nil t0 (getvar "cdate")
cm (getvar "cmdecho") os (getvar "osmode")
tcm1 "高程註記" tcm2 "點記"
(setvar "cmdecho" 0)(setvar "osmode" 0)
(if (= (tblsearch "layer" tcm1) nil) (command "layer" "n" tcm1 ""))
(if (= (tblsearch "layer" tcm2) nil) (command "layer" "n" tcm2 ""))
(while (setq zb (read-line ff))
(while (vl-string-search "," zb) (setq zb (vl-string-subst " " "," zb)))
(setq zb (read (strcat "(" zb ")"))
zb (list (list (nth 2 zb) (nth 1 zb)) (vl-princ-to-string (last zb)));註記高程
(setq t1 (getvar "cdate"))
(close ff)
(setq zb (vl-sort fhb '(lambda (e1 e2) (< (car (car e1)) (car (car e2)))))
x0 (car (car (car zb))) x1 (car (car (last zb)))
zb (vl-sort fhb '(lambda (e1 e2) (< (cadr (car
測量展點lisp lisp展點程式問題
defunc zd setvar pdmode 1 setvar pdsize 1.0000 setqfn getfiled nselectafile c users desktop 等高線 txt 16 setqf openfn r setqd read linef while d 000 def...
cad小外掛程式文字刷 小懶人CAD外掛程式管理工具
軟體特徵 小懶人cad外掛程式管理軟體是針對cad有多個外掛程式時進行快速載入使用 針對有多個cad外掛程式 lsp vlx fas格式 時，可進行批量載入或單個載入，提高操作速度 軟體功能 1xlrc小懶人抽屜面板 2xlra小懶人分屏面板 3xlrd小懶人同屏面板 4txdx修改文字大小 5tx...
浩辰CAD中如何載入外掛程式？CAD外掛程式安裝教程
cad外掛程式安裝步驟 2 執行命令後，會彈出 載入 解除安裝應用程式 對話方塊，點選 載入 3 在彈出的 載入應用程式 對話方塊中找到並選取需要載入的cad外掛程式，點選 開啟 5 如需解除安裝已載入的某個cad外掛程式，可以在列表中選中需要解除安裝的應用程式，點選右側的 解除安裝 按鈕即可完成解...