看板 [ Cad_Cae ]
討論串作中垂線的 AutoCAD AutoLISP 程式
共 3 篇文章
內容預覽： 開啟 | 關閉 | 只限未讀
首頁
上一頁
1
下一頁
尾頁
#1
作中垂線的 AutoCAD AutoLISP 程式
推噓0(0推 0噓 0→)留言0則，0人參與, 最新作者sjgau (sjgau)時間18年前 (2007/01/10 12:53), 編輯資訊
0
0
0
內容預覽:
以下，一共 40行。. 其實，簡單的話，10行就可以解決了。. 為了教學起見，採用 中規中矩的模式，. 讓大家一看 就懂. ; fle: mid-per.LSP. (defun mid-pt(p1 p2 / ). (list (/ (+ (car p1) (car p2)) 2.0). (/ (+
(還有628個字)
#2
Re: 作中垂線的 AutoCAD AutoLISP 程式
推噓0(0推 0噓 0→)留言0則，0人參與, 最新作者sjgau (sjgau)時間18年前 (2007/01/10 17:29), 編輯資訊
1
0
0
內容預覽:
這是 行數 比較少的版本. ; mid-per2.LSP. (defun dtor(d1 / ). (* (/ d1 180.0) pi). ); end of defun. ; -----------------------------------------------. (defun c:mi
(還有282個字)
#3
Re: 作中垂線的 AutoCAD AutoLISP 程式
推噓1(1推 0噓 0→)留言1則，0人參與, 最新作者sjgau (sjgau)時間18年前 (2007/01/11 11:41), 編輯資訊
0
0
0
內容預覽:
這是 行數最短的 版本. 不到 十行吧. ; file: mid-per4.LSP. (defun c:mid-per4( / ). (setq en1 (entsel "\n Select Line: ")). (setq ent1 (car en1)). (setq p1 (cadr en1))
首頁
上一頁
1
下一頁
尾頁