哪位帮我编一程序?

yesong555 · 发表于 2004-8-11 13:53

哪位帮我编一可以绘制下图的程序,只要输入直径、长度，再斜线长度，再下一直径、长度。我不会编程，哪位大侠帮我。

ZZXXQQ · 发表于 2004-8-11 16:29

试一下这个程序： (DEFUN C:AXIS ()
(SETQ AL1 (/ PI 2) AL2 (- AL1))
(SETQ PC (GETPOINT "\nAxis Left Start Point 轴左端中心起点: "))
(SETQ D1 (GETDIST "\nDiameter 1 直径 1 :"))
(SETQ D2 (GETDIST "\nDiameter 2 直径 2: "))
(SETQ L (GETDIST "\nLength of axis 轴长 : "))
(SETQ PT1 (POLAR PC AL1 (* D1 0.5)))
(SETQ PT2 (POLAR PT1 AL2 D1))
(COMMAND "LINE" PT1 PT2 "")
(WHILE (AND (/= L nil) (/= D2 nil))
(SETQ PT3 (POLAR (POLAR PT1 0 L) AL1 (* (- D2 D1) 0.5)))
(SETQ PT4 (POLAR PT3 AL2 D2))
(COMMAND "LINE" PT1 PT3 PT4 PT2 "")
(SETQ PT1 PT3 PT2 PT4 D1 D2)
(SETQ D2 (GETDIST "\nDiameter 直径: "))
(SETQ L (GETDIST "\nLength of axis 轴长 : "))
)
(PRINC)
)

yesong555 · 发表于 2004-8-11 18:18

楼上的大哥,不行啊,出现这个情况了,我用的2004 命令: _appload 已成功加载 AXIS.lsp。
命令:
命令:
命令: axis
停止使用的命令。

spring · 发表于 2004-8-11 20:38

将命令改一下看看

xyp1964 · 发表于 2004-8-11 20:43

本帖最后由作者于 2004-8-11 23:28:51 编辑

改个名字就成了！ (DEFUN C:AXIS0 () (setvar"osmode"0);;新增
(SETQ AL1 (/ PI 2) AL2 (- AL1))
(SETQ PC (GETPOINT "\n\tAxis Left Start Point 轴左端中心起点: "))
(SETQ D1 (GETDIST "\n\tDiameter 1 直径 1 :"))
(SETQ D2 (GETDIST "\n\tDiameter 2 直径 2: "))
(SETQ L (GETDIST "\n\tLength of axis 轴长 : "))
(SETQ PT1 (POLAR PC AL1 (* D1 0.5)))
(SETQ PT2 (POLAR PT1 AL2 D1))
(COMMAND "LINE" PT1 PT2 "")
(WHILE (AND (/= L nil) (/= D2 nil))
(SETQ PT3 (POLAR (POLAR PT1 0 L) AL1 (* (- D2 D1) 0.5)))
(SETQ PT4 (POLAR PT3 AL2 D2))
(COMMAND "LINE" PT1 PT3 PT4 PT2 "")
(SETQ PT1 PT3
PT2 PT4
D1 D2
)
(SETQ D2 (GETDIST "\n\tDiameter 直径: "))
(SETQ L (GETDIST "\n\tLength of axis 轴长 : "))
)
(PRINC)
)

yesong555 · 发表于 2004-8-11 21:40

谢谢各位,但有时还会出现下现这个情况,出现在轴的第一段命令: AS
Axis Left Start Point 轴左端中心起点:
Diameter 1 直径 1 :2
Diameter 2 直径 2: 3
Length of axis 轴长 : 30
LINE 指定第一点:
指定下一点或 [放弃(U)]:
指定下一点或 [放弃(U)]:
命令: LINE 指定第一点:
指定下一点或 [放弃(U)]:
指定下一点或 [放弃(U)]: 已在 (960.8225, 676.7608, 0.0000) 创建零长度直线
指定下一点或 [闭合(C)/放弃(U)]:
指定下一点或 [闭合(C)/放弃(U)]:

ZZXXQQ · 发表于 2004-8-13 08:30

关掉OSNAP就行了。程序改后： (DEFUN C:AXIS0 ()
(SETQ OLDOS (GETVAR "OSMODE"))
(SETVAR "OSMODE" 0)
(SETQ AL1 (/ PI 2) AL2 (- AL1))
(SETQ PC (GETPOINT "\nAxis Left Start Point 轴左端中心起点: "))
(SETQ D1 (GETDIST "\nDiameter 1 直径 1 :"))
(SETQ D2 (GETDIST "\nDiameter 2 直径 2: "))
(SETQ L (GETDIST "\nLength of axis 轴长 : "))
(SETQ PT1 (POLAR PC AL1 (* D1 0.5)))
(SETQ PT2 (POLAR PT1 AL2 D1))
(COMMAND "LINE" PT1 PT2 "")
(WHILE (AND (/= L nil) (/= D2 nil))
(SETQ PT3 (POLAR (POLAR PT1 0 L) AL1 (* (- D2 D1) 0.5)))
(SETQ PT4 (POLAR PT3 AL2 D2))
(COMMAND "LINE" PT1 PT3 PT4 PT2 "")
(SETQ PT1 PT3 PT2 PT4 D1 D2)
(SETQ D2 (GETDIST "\nDiameter 2 直径 2: "))
(SETQ L (GETDIST "\nLength of axis 轴长 : "))
)
(SETVAR "OSMODE" OLDOS)
(PRINC)
)

yesong555 · 发表于 2004-8-13 13:59

谢谢ZZXXQQ

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

哪位帮我编一程序?

本帖子中包含更多资源

本帖子中包含更多资源