推 mimikillua:原來autocad學到後來還是要會程式喔囧 11/26 10:11
→ sjgau:做中垂線，做分角線等，使用 LISP 很快。請參考之前PO文 11/26 11:42
推 jazy6804:不會程世的只能用SW畫好再轉DWG嗎QQ? 11/26 11:52
→ sjgau:可以免費找我學習 程式設計 11/26 11:55
→ sjgau:對於 AutoLISP和 C++程式設計有興趣的，可以免費找我 11/26 20:46
圖面上有不少個
1:2.75, 1:10, 1:40 的繪圖只是，
手癢 寫了下面的 AutoLISP 程式
(load "slope.lsp")
slope
P1: 是開始的 基準點
P1 - P2: 構成基準的線
SL2: 是爬升的高度，
> 0: 按照 右手定則的方向 爬升
<= 0: 也可以接受，但是 方向相反
請大家試試看
物件鎖點要 事先關掉
有測試過，歡迎回報任何的 bug
; file: slope.lsp begin
(defun c:slope( / )
(setq p1 (getpoint "pick the 1st point: "))
(setq p2 (getpoint p1 "pick the 2nd point: "))
(setq SL2 (getreal "input slope= "))
(setq t1 (angle p1 p2))
(setq s2 (distance p1 p2))
(if (> (abs SL2) 0.0)
(setq dt (atan (/ 1.0 sl2)))
(setq dt 0.0))
(setq t2 (+ t1 dt))
(setq p2 (polar p1 t2 s2))
(command "line" p1 p2 "")
(princ)
); end of slope
(princ "do the command of SLOPE")
(princ)
; end of file
※ 引述《s9001111 (肉榮 & 單單)》之銘言：
: 小弟要畫個鋼軌如下圖所示
: https://www.dropbox.com/s/9lhn5wwu9ud1uvs/jis50n.jpg
: 像是最上面那個300R→80R→13R的地方
: 有用過圓角畫是沒辦法達到想要效果
: 用弧的話可以畫到有點樣子
: 但老闆還是希望我畫更精準些
: 不知道各位版上的高手有沒有小撇步可以賜教一下呢
: 萬分感謝!
--
e-mail: sjgau4311@gmail.com
我的課程介紹網頁：
http://www.csie.ntu.edu.tw/train/teacher_display.php?num=18
AutoCAD 台灣地區菁英講師獲選
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 27.243.55.87