(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")(...
(defun c:zd()
(setvar "pdmode" 1)
(setvar "pdsize" 1.0000)
(setq fn (getfiled "\n select a file" "c:/users/desktop/等高線" "txt" 16))
(setq f (open fn "r"))
(setq d (read-line f))
(while (/= d "000")
(progn
(setq pn (atoi (substr d 17 4)))
(setq x (atof (substr d 37 10)))
(setq y (atof (substr d 21 10)))
(setq h (atof (substr d 53 10)) h (rtos h 2 2))
(setq x1 (- x 3.0) y1 (- y 0.2) x2 (+ x 0.4) y2 (- y 0.4))
(setq pt (list x y ) pt1 (list x1 y1) pt2 (list x2 y2))
(command "point" pt "")
(setq d (read-line f)); 繼續讀入資料檔案中其餘各行資料
) ; end while
(close fn)
) ; end zd
命令: point
當前點模式: pdmode=1 pdsize=1.0000
指定點:
命令: zd 未知命令「zd」。按 f1 檢視幫助。
命令: ; 錯誤: 引數型別錯誤: streamp "c:\\users\\desktop\\等高線\\地形展點樣圖資料.txt"
請賜教錯誤在**
展開
cad展點外掛程式lisp使用 LISP快速展點程式
一 展點程式載入 在auto cad中加lisp程式的兩種簡單方法 1 使用load函式載入 在命令列中鍵入以函式回車即可載入 load d abc jgl kszd.lsp 2 使用選單載入 工具 t 載入應用程式 l 在選擇檔案對話方塊中選 d abc jgl kszd.lsp 載入 l 關閉 ...
怎麼加密高程點 工程測量中如何加密控制點測量？
控制點是用來測圖和放樣的已知點，在已知點如有測不到的地方，就需要對控制點進行加密，達到全面測到測區的地形和建築的要求，控制點加密至關重要，關係著測量是否成功，接下來，就為大家講解工程測量的控制點加密怎麼操作？一 加密控制樁的布置 沿線路方向200 400m布設乙個加密控制樁，並且在距主線50 100...
遊戲主程的五點責任
本文 為啥突然寫這篇文章哪？因為和乙個巨人的朋友談主程的職位問題，談完後我發現好像不太對勁，引起我思考了好久，因為這兩年太安逸了，感覺到比較可怕。那就把這些年見過的主程，我認為的主程，我對於主程的思考，和主程應該承擔的責任寫下來。有些人，工作了很多年了，但差不多每年換一次工作，因為很多遊戲研發週期只...