请教用autolisp实现相切相切直径画圆

ljpfeng2004 · 发表于 2010-10-16 07:42:49

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

本帖最后由 ljpfeng2004 于 2010-10-16 16:17 编辑

不是相切相切半径的方式，因为输入半径很多时候不方便，需要计算。但我捣鼓了半天也弄不好，getpoint方式画不出来的，请高手赐教代码。
结贴，很好的lisp，感谢sunvei老师了。

cswswq2009 · 发表于 2010-10-16 08:07:17

请看http://www.askcad.com/bbs/viewth ... &extra=page%3D1

ljpfeng2004 · 发表于 2010-10-16 09:22:37

都是我的ID，晕了。我就要lisp不要无关的答案，谢谢。

ljpfeng2004 · 发表于 2010-10-16 11:09:25

(
defun ggtt()
(setvar "osmode" 256)
(getpoint"请选择点")
)

(
defun c:c2(/ p1 p2 diameter radius)
(setq diameter (getreal"\n 输入直径"))
(setq radius (* diameter 0.5))
(command "circle" "t" (ggtt) (ggtt) radius)

)
这个是我自己鼓捣的代码，不行啊。郁闷。高手帮忙吧。求助中。。。。。。

SunVei · 发表于 2010-10-16 11:41:57

;; 简单的雏型
;; For test only
(defun C:TTD ()
(command "Circle" "TTR"
"tan" pause
"tan" pause
(/ (getdist ">> Diameter: ") 2)
)
)

ljpfeng2004 · 发表于 2010-10-16 13:36:10

老大，您是高手啊。佩服，有不明白的地方，"TTR"难道是02版本之前提示参数吗？另外“tan”也是参数吗？菜鸟一个，请您不吝赐教了。

ysryc99001 · 发表于 2011-6-9 14:05:01

(defun c:ttt()
(setq baspt (getpoint "请求输入基准点: "))
(setq rad (getdist baspt "\n请求输入小圆半径: "))
(setq num (getint "\n请求输入相切的小圆数量: "))
(setq ang1 (/ (* pi 2) (* num 2)))
(setq kk (/ rad (sin ang1)))
(setq ang2 (- (/ pi 2) ang1))
(setq cenpt (polar baspt ang2 kk))
(command "circle" baspt rad)
(command "array" (entlast) "" "p" cenpt num 360 "Y")
(princ)
)
(prompt "\n << 5TEST2>>自动等圆相切绘制")
(princ)

isabeth · 发表于 2011-6-29 16:20:37

不管，只要好用就行，试过了，挺好的。已经保存LISP.感谢楼主和LISP提供者

		自动登录	找回密码
密码			注册

全站		goto3d 说: 版主微信号：caivin811031；还未入三维微信群的小伙伴，速度加	2022-07-04
全站		goto3d 说: 此次SW竞赛获奖名单公布如下，抱歉晚了，版主最近太忙：一等奖：塔山817；二等奖：a9041、飞鱼；三等奖：wx_dfA5IKla、xwj960414、bzlgl、hklecon；请以上各位和版主联系，领取奖金！！！	2022-03-11

通知

[已解决] 请教用autolisp实现相切相切直径画圆

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。