作者sjgau (sjgau)
标题Re: [问题] 请问AUTOCAD变曲率的弧线怎麽画
时间Tue Nov 26 09:36:59 2013
图面上有不少个
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:
[email protected]
我的课程介绍网页：
http://www.csie.ntu.edu.tw/train/teacher_display.php?num=18
AutoCAD 台湾地区菁英讲师获选
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 27.243.55.87
1F：推 mimikillua:原来autocad学到後来还是要会程式喔囧 11/26 10:11
2F：→ sjgau:做中垂线，做分角线等，使用 LISP 很快。请参考之前PO文 11/26 11:42
3F：推 jazy6804:不会程世的只能用SW画好再转DWG吗QQ? 11/26 11:52
4F：→ sjgau:可以免费找我学习 程式设计 11/26 11:55
5F：→ sjgau:对於 AutoLISP和 C++程式设计有兴趣的，可以免费找我 11/26 20:46