cad展点kszd小程序_CAD展点程序lisp
CAD
展點程序
lisp
2009
年
02
月
17
日
星期二
01:08?P.M.
(
1
)
依網上資源文件修改的：
－－－－－－－－－－－－－－－－－－－－－－
CAD
展點程序
把下文保存到文本文件中，擴展名改為
.lsp,
按數據格式要求準備好數據點文件。
在
CAD
中加載
lsp
文件。運行命令：
kszd
－－－－－－－－－－－－－－－－－－－－－－
;LISP
展點程序
;
展
1000
點：在
H
P(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)));
注記高程
;zb
(list
(list
(nth
2
zb)
(nth
1
zb))
(vl-princ-to-string
(car
zb)));
提示：注記點號請用該行
fhb?(append?fhb?(list?zb))
)
)
(setq?t1?(getvar?"cdate"))
(close?ff)
(setq?zb?(vl-sort?fhb?'(lambda?(e1?e2)?(
x0?(car?(car?(car?zb)))?x1?(car?(car?(last?zb)))
zb?(vl-sort?fhb?'(lambda?(e1?e2)?(
總結
以上是生活随笔為你收集整理的cad展点kszd小程序_CAD展点程序lisp的全部內容，希望文章能夠幫你解決所遇到的問題。
