level 1
用command，点都不用算
2017年04月24日 21点04分
level 13
![[泪]](/static/emoticons/u6cea.png)
level 9
笨一点的方法：
(defun c:tu()
(setq p0(getpoint"输入三角形中心点坐标： "))
(setq r(getdist"输入外圆半径:"))
(setq n(getreal"倾角："))
(setq a(* n (/ PI 180)))
(setq p1(polar p0 a r))
(setq p2(polar p0 (+ a (* (/ pi 3) 2)) r))
(setq p3(polar p0 (- a (* (/ pi 3) 2)) r))
(command "pline" p1 p2 p3 "c")
(command "circle" p0 (/ r 2) "c")
(command "circle" p0 r "c")
)
希望能帮到你
2017年04月26日 01点04分
4
(defun c:tu()
(setq p0(getpoint"输入三角形中心点坐标： "))
(setq r(getdist"输入外圆半径:"))
(setq n(getreal"倾角："))
(setq a(* n (/ PI 180)))
(setq p1(polar p0 a r))
(setq p2(polar p0 (+ a (* (/ pi 3) 2)) r))
(setq p3(polar p0 (- a (* (/ pi 3) 2)) r))
(command "pline" p1 p2 p3 "c")
(command "circle" p0 (/ r 2) "c")
(command "circle" p0 r "c")
)
希望能帮到你
我想问一下TU这个是函数的类型还是随便取的名字，我也刚学。
2017年05月10日 05点05分
这个是自己定义的函数名字，以可以理解为基准，tu只是我的个人习惯。
2017年05月10日 05点05分
@贴吧用户_0J1DVEy 我加你QQ好友，你帮我看看，写的参数怎么加载了没反应
2017年05月10日 06点05分
level 9
另外也可以
(defun c:tu()
(setq p0(getpoint"输入三角形中心点坐标： "))
(setq r(getdist"输入外圆半径:"))
(setq n(getreal"倾角："))
(setq a(* n (/ PI 180)))
(setq p1(polar p0 (- 0 (/ pi 2)) (/ r 2)))
(command "circle" p0 (/ r 2) "c")
(command "polygon" 3 p0 "C" p1 "")
(command "rotate" (entlast) "" p0 n "")
(command "circle" p0 r "c")
)
我也是刚刚开始学习，应该有更简单的方法，希望能帮到你。
2017年04月26日 02点04分
5
(defun c:tu()
(setq p0(getpoint"输入三角形中心点坐标： "))
(setq r(getdist"输入外圆半径:"))
(setq n(getreal"倾角："))
(setq a(* n (/ PI 180)))
(setq p1(polar p0 (- 0 (/ pi 2)) (/ r 2)))
(command "circle" p0 (/ r 2) "c")
(command "polygon" 3 p0 "C" p1 "")
(command "rotate" (entlast) "" p0 n "")
(command "circle" p0 r "c")
)
我也是刚刚开始学习，应该有更简单的方法，希望能帮到你。
谢谢你，已经做好了😁
2017年04月26日 04点04分
谢谢你，已经做好了😁
2017年04月26日 04点04分
@FDJR660 下次有问题的话，请提出，我也可以练习一下。
2017年04月26日 06点04分
@贴吧用户_0J1DVEy 你好，我也想学autolisp，你有基础的资料吗
2017年08月17日 02点08分