[求助]龙大侠及各位大侠们帮忙啊!求绘制冷冲模冲子挂台的程序!!

andyding

龙大侠及各位大侠们帮忙啊!能否写一绘制冷冲模冲子挂台的程序!!



如附件Drawing1


冲子底部到挂台17.95(可变量)


挂台高3.05(可变量)


挂台深1.0(可变量)


谢了!

yuanyuan68

概念 含糊

andyding

看附件就明白了!!!

舟自横

请把冲子所经过各模板的图层告诉我,本人可给你免费写一个!!不过要等我有时间才行!

andyding

楼上的大侠,先谢谢了!!!我这个冲子只要随层就好了,其他的参在附件中就说明得很详细了.如果你有更好的思路,也可以随意改动,只要能达到目的就行.谢谢!!!

ZZXXQQ

程序：

1. (DEFUN C:GT ()
2.   (SETVAR "CMDECHO" 0)
3.   (SETQ OLDOS (GETVAR "OSMODE"))
4.   (SETVAR "OSMODE" 0)
5.   (SETQ AL1 (/ PI 2)
6.              GTL (GETDIST "\nEnter Length 输入挂台距离 <17.95> :")
7.              GTL (IF (= GTL nil) 17.95 GTL)
8.              GTW (GETDIST "\nEnter Wight 输入挂台宽 <3.05> :")
9.              GTW (IF (= GTW nil) 3.05 GTW)
10.              GTD (GETDIST "\nEnter Deep 输入挂台深 <1.0> :")
11.              GTD (IF (= GTD nil) 1.0 GTD))
12.   (SETVAR "BLIPMODE" 0)
13.   (WHILE (SETQ S1 (ENTSEL "\nSelec a Line 选择一条边 :"))
14.    (SETVAR "OSMODE" 1)
15.    (IF (SETQ P1 (GETPOINT "\nStart Point 起始点 :")) (PROGN
16.      (SETVAR "OSMODE" 0)
17.      (SETQ DL (ENTGET (CAR S1))
18.                  PT1 (CDR (ASSOC 10 DL)) PT2 (CDR (ASSOC 11 DL))
19.                  P2 (IF (> (DISTANCE PT1 P1) (DISTANCE PT2 P1)) PT1 PT2)
20.                  ANG (ANGLE P1 P2)
21.                  PT (GETPOINT P1 "\nWhich Side 哪一边? :")
22.                  AN1 (ANGLE P1 PT)
23.                  A1 (- AN1 ANG)
24.                  A1 (IF (AND (> A1 0) (> A1 PI)) (- A1 PI PI) A1)
25.                  A1 (IF (AND (< A1 0) (< A1 (- PI))) (+ A1 PI PI) A1)
26.                  A1 (IF (> A1 0) (+ ANG AL1) (- ANG AL1))
27.                  P3 (POLAR P1 ANG GTL)
28.                  P4 (POLAR P3 A1 GTD)
29.                  P5 (POLAR P3 ANG GTW)
30.                  P6 (POLAR P5 A1 GTD))
31.      (COMMAND "ERASE" (CAR S1) "" "LINE" P1 P3 P4 P6 P5 P2 "")
32.    ))
33.   )
34.   (SETVAR "OSMODE" OLDOS)
35.   (SETVAR "BLIPMODE" 1)
36.   (SETVAR "CMDECHO" 1)
37.   (PRINC)
38. )

复制代码

andyding

多谢ZZXXQQ大侠!!!鲜花送给你!!!


有一点小问题.我绘出的挂台始终是斜的,大概十几度的样子.这是怎么会事?

ZZXXQQ

不太清楚问题所在。请把图传上来看一下。

andyding

多谢ZZXXQQ大侠!


不好意思!我弄错了,如果UCS不是世界坐标的话就会斜.是世界坐标就不会.


我在前面加了一句(command "ucs" "w").


谢谢!送花一朵!!!

liuhoujun

多谢!好东东