工程
標籤：字型大小大中小
訂閱該程式主要用於
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 ","
sxsz))
(write-line sxyz ff)
(setq i (+ i 1))
);repeat
(prompt "* <<
命令:plzbsc >> *
輸出格式(點號
,, yxz
(prin1)
地形圖上提取碎步點(高程點)座標並輸出到文字
2010-05-18 08:50:38|
分類：
lisp正負調換 LISP程式庫
軟體簡介 如果您使用 autocad,下面的內容對您一定有幫助。在某些方面能大大提高您的工作效率。壓縮包中含有以下面程式，且均以源程式方式給出，您可以使用 參考 修改它。解壓縮後請先看說明檔案。bg.lsp 自動生成 asc.lsp 將文字檔案內容寫入圖中，字元是單個的 wf.lsp 將圖中字元寫入...
lisp正負調換 AUTOLISP程式設計技巧
對由直線和圓弧組成的機械圖形人們已經作了很多研究,可是計算機便捷繪製機械圖的辦法並不多.福大機械設計製圖工具箱提出獨特的作圖方法,是不同於引數化設計的繪圖新概念,正是靠這些獨特能使機械設計中大量存在的軸與軸上零件等的設計繪圖變得分簡單和快捷.下面簡介我們提出的畫機械圖新概念.歡迎批評指正.1 繪製階...
lisp實戰文庫 LISP經典程式
一 繪製地形圖符號 1.點狀符號 對於點狀符號 其位置固定 數量較多 且一般都帶有一定的標註 可逐個製作屬性塊圖元 單獨插入。2.線狀符號 利用autocad 中強大的線型定義。3.面狀符號 由充填符號在面域內按一定的排列方式組合而成。目前auto cad 在建築設計 工程施工放樣得到廣泛應用 au...