工程

|

標(biāo)簽：

|

字號(hào)大中小

訂閱

;

該程序主要用于

CAD

點(diǎn)(

point

)三維坐標(biāo)提取，并將數(shù)據(jù)輸出為

CASS

軟件中使用的數(shù)據(jù)格式

;

輸出格式：

點(diǎn)號(hào)

,,

測(cè)量

Y

值，測(cè)量

X

值，測(cè)量

Z

值

例：

1,,100.3244,1232,433,25

;2010-05-17

;

命令：

plzbsc

(defun?c:plzbsc()

(princ?"\n

選擇所需輸出的點(diǎn)(

point

)

:")

(setq?ss?(ssget?));;

選取坐標(biāo)點(diǎn)

(setq?n?(sslength?ss?));

計(jì)算坐標(biāo)點(diǎn)數(shù)量

(setq?ff?(open?(getfiled?"

文件保存為

"?"f:/"?"dat"?1)?"w"));

保存路徑

(setq?i?0)

(repeat?n

(setq?spt?(ssname?ss?i?))

(setq?ept?(entget?spt))

(if?(=?(cdr?(assoc?0?ept))?"POINT")

(progn

(setq?lxyz?(cdr?(assoc?10

ept)))

(setq?sx?(rtos?(nth?1?lxyz)));

將坐標(biāo)值實(shí)數(shù)轉(zhuǎn)換成字符

(setq?sy?(rtos?(nth?0?lxyz)))

(setq?sz?(rtos?(nth?2?lxyz)))

(setq?i1?(+?i?1));

計(jì)算點(diǎn)序號(hào)

(setq?sn?(rtos?i1?2?0));

將序號(hào)實(shí)數(shù)轉(zhuǎn)換成字符

(setq?sxyz?(strcat?sn",,"

sy?","

sx

","

sz))

(write-line?sxyz?ff)

)

)

(setq?i?(+?i?1))

);repeat

)

(prompt?"*?<<

命令

:plzbsc?>>?*

輸出格式(點(diǎn)號(hào)

,,?Y

，

X

，

Z

)

**")

(prin1)

地形圖上提取碎步點(diǎn)(高程點(diǎn))坐標(biāo)并輸出到文本

2010-05-18?08:50:38|

分類：

總結(jié)

以上是生活随笔為你收集整理的lisp正负调换_坐标提取lisp程序的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。