工程

|

標簽：

|

字號大中小

訂閱

;

該程序主要用于

CAD

點(

point

)三維坐標提取，并將數據輸出為

CASS

軟件中使用的數據格式

;

輸出格式：

點號

,,

測量

Y

值，測量

X

值，測量

Z

值

例：

1,,100.3244,1232,433,25

;2010-05-17

;

命令：

plzbsc

(defun?c:plzbsc()

(princ?"\n

選擇所需輸出的點(

point

)

:")

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

選取坐標點

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

計算坐標點數量

(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)));

將坐標值實數轉換成字符

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

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

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

計算點序號

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

將序號實數轉換成字符

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

sy?","

sx

","

sz))

(write-line?sxyz?ff)

)

)

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

);repeat

)

(prompt?"*?<<

命令

:plzbsc?>>?*

輸出格式(點號

,,?Y

，

X

，

Z

)

**")

(prin1)

地形圖上提取碎步點(高程點)坐標并輸出到文本

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

分類：

總結

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

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。