[求助]如何画椭圆弧

fedd · 发表于 2009-1-13 15:47:00

我要画的是一个椭圆封头，有一个半椭圆的图形，我怎么也画不出来。顺便请教，如何知道command是如何调用CAD里面的各种命令啊，有什么规律可循吗？下面是我下的代码，非常感谢！！

(defun c:tt()
(setvar "cmdecho" 0)
(setq b(getreal "请输入封头壁厚："))
(setq cp(getpoint "请选封头中心："))
(setq cp1(getpoint "请选封头中心右边的端点（内壁）："))
(setq r1(distance cp cp1))
(setq r2(+ r1 25))
(setq cp3(polar cp 0 r2))
(setq cp2(polar cp pi r1))
(setq cp4(polar cp pi r2))
(setq cc(polar cp (/ pi 2) 25))
(setq cc1(polar cp1 (/ pi 2) 25))
(setq cc2(polar cp2 (/ pi 2) 25))
(setq cc3(polar cp3 (/ pi 2) 25))
(setq cc4(polar cp4 (/ pi 2) 25))
(setvar "clayer" "2细线层")
(command "line" cp1 cc1 "")
(command "line" cp2 cc2 "")
(command "line" cp3 cc3 "")
(command "line" cp4 cc4 "")
(command "ELLIPSE" a cc2 cc1 r1)
(princ)
)

ZZXXQQ · 发表于 2009-1-13 21:16:00

(defun c:tt()
(setvar "cmdecho" 0)
(setq b(getreal "请输入封头壁厚："))
(setq cp(getpoint "请选封头中心："))
(setq cp1(getpoint "请选封头中心右边的端点（内壁）："))
(setq r1 (distance cp cp1))
(setq r2 (+ r1 b))
(setq cp3(polar cp 0 r2))
(setq cp2(polar cp pi r1))
(setq cp4(polar cp pi r2))
(setq cc(polar cp (/ pi 2) 25))
(setq cc1(polar cp1 (/ pi 2) 25))
(setq cc2(polar cp2 (/ pi 2) 25))
(setq cc3(polar cp3 (/ pi 2) 25))
(setq cc4(polar cp4 (/ pi 2) 25))
(setvar "clayer" "2细线层")
(command "line" cp1 cc1 "")
(command "line" cp2 cc2 "")
(command "line" cp3 cc3 "")
(command "line" cp4 cc4 "")
(command "ELLIPSE" "_a" cc1 cc2 (/ r1 2) cc1 cc2)
(command "ELLIPSE" "_a" cc3 cc4 (+ (/ r1 2) b) cc3 cc4)
(princ)
)

fedd · 发表于 2009-1-14 13:33:00

ZZXXQQ,谢谢，非常感谢！给你拜个早年~~~

chenzf · 发表于 2009-1-15 20:57:00

非常感谢，自己搞了几天没有搞出来，下了，参考

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