andyding 发表于 2005-2-18 00:46:00

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

本帖最后由 作者 于 2005-2-18 22:42:34 编辑

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



如附件Drawing1


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


挂台高3.05(可变量)


挂台深1.0(可变量)


谢了!


2548572928 发表于 2021-11-26 13:37:19

这个程序不能处理聚合线的冲子，不是很完美

season_88 发表于 2025-4-10 15:12:20

下载学习看

yuanyuan68 发表于 2005-2-18 10:48:00

概念 含糊

andyding 发表于 2005-2-18 22:26:00

看附件就明白了!!!

舟自横 发表于 2005-2-22 10:31:00

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

andyding 发表于 2005-2-25 00:35:00

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

ZZXXQQ 发表于 2005-2-27 00:57:00

程序：(DEFUN C:GT ()
(SETVAR "CMDECHO" 0)
(SETQ OLDOS (GETVAR "OSMODE"))
(SETVAR "OSMODE" 0)
(SETQ AL1 (/ PI 2)
             GTL (GETDIST "\nEnter Length 输入挂台距离 <17.95> :")
             GTL (IF (= GTL nil) 17.95 GTL)
             GTW (GETDIST "\nEnter Wight 输入挂台宽 <3.05> :")
             GTW (IF (= GTW nil) 3.05 GTW)
             GTD (GETDIST "\nEnter Deep 输入挂台深 <1.0> :")
             GTD (IF (= GTD nil) 1.0 GTD))
(SETVAR "BLIPMODE" 0)
(WHILE (SETQ S1 (ENTSEL "\nSelec a Line 选择一条边 :"))
   (SETVAR "OSMODE" 1)
   (IF (SETQ P1 (GETPOINT "\nStart Point 起始点 :")) (PROGN
   (SETVAR "OSMODE" 0)
   (SETQ DL (ENTGET (CAR S1))
               PT1 (CDR (ASSOC 10 DL)) PT2 (CDR (ASSOC 11 DL))
               P2 (IF (> (DISTANCE PT1 P1) (DISTANCE PT2 P1)) PT1 PT2)
               ANG (ANGLE P1 P2)
               PT (GETPOINT P1 "\nWhich Side 哪一边? :")
               AN1 (ANGLE P1 PT)
               A1 (- AN1 ANG)
               A1 (IF (AND (> A1 0) (> A1 PI)) (- A1 PI PI) A1)
               A1 (IF (AND (< A1 0) (< A1 (- PI))) (+ A1 PI PI) A1)
               A1 (IF (> A1 0) (+ ANG AL1) (- ANG AL1))
               P3 (POLAR P1 ANG GTL)
               P4 (POLAR P3 A1 GTD)
               P5 (POLAR P3 ANG GTW)
               P6 (POLAR P5 A1 GTD))
   (COMMAND "ERASE" (CAR S1) "" "LINE" P1 P3 P4 P6 P5 P2 "")
   ))
)
(SETVAR "OSMODE" OLDOS)
(SETVAR "BLIPMODE" 1)
(SETVAR "CMDECHO" 1)
(PRINC)
)

andyding 发表于 2005-3-2 16:34:00

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


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

ZZXXQQ 发表于 2005-3-2 23:58:00

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

andyding 发表于 2005-3-3 11:21:00

多谢ZZXXQQ大侠!


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


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


谢谢!送花一朵!!!

liuhoujun 发表于 2013-8-2 23:02:32

多谢!好东东
页: [1] 2
查看完整版本: [求助]龙大侠及各位大侠们帮忙啊!求绘制冷冲模冲子挂台的程序!!