Re: [問題] 請問AUTOCAD變曲率的弧線怎麼畫
圖面上有不少個
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
推
11/26 10:11, , 1F
11/26 10:11, 1F
→
11/26 11:42, , 2F
11/26 11:42, 2F
推
11/26 11:52, , 3F
11/26 11:52, 3F
→
11/26 11:55, , 4F
11/26 11:55, 4F
→
11/26 20:46, , 5F
11/26 20:46, 5F
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 2 之 2 篇)：
Cad_Cae 近期熱門文章
PTT數位生活區 即時熱門文章
