[求助]：哪位大哥能否幫我完善這段程序

MXK0375

我是搞沖模設計的，哪位大俠能否幫我完成一段程序。

"text""m"(list(+(car LD1)(/ 370 DS))
                       (+(cadr LD1)(/ 27 DS)))(/ 3 DS)"0"
                       (strcat"%%U""T="(rtos DIED 2 1)"X""L=160.0")

L=DWPT+DPT+STPT+SWPT+PPT+PWPT+DIEU這些模板厚度的和

可否參照(setq PPM(getkword"\n沖子擋板方向 左L/上U/右R/下D:"))
   (setq P3 (list(+(car P2)(/ 25 DS))(cadr P1))
         P4 (list(+(car P3) STPT SWPT PPT THIC 0.5)(cadr P3))
         P5 (list(car P4) (cadr P2))
         P6 (list(car P3) (cadr P5))
         P7 (list(+(-(car P4) PPT)0.05) (cadr P4))
         P8 (list(-(car P7)3.5)(cadr P4))
         B1 (list(car P1)(-(cadr P1)(/ 25 DS)))
         B2 (list(car P1)(-(cadr B1) STPT SWPT PPT THIC 0.5 ) )
         B3 (list(car P2) (cadr B2))
         B4 (list(car P2) (cadr B1))
         B5 (list(car B1) (-(+(cadr B2) PPT)0.05))
         B6 (list(car B1) (+(cadr B5) 3.5))
         PC (list(car P1)(-(cadr P1)(/ 8 DS)))
         PC1 (list(car P1)(-(cadr P1)(/ 16 DS)))
         PC2 (list(+(car P2)(/ 8 DS))(cadr P1))
         INP(list(fix(+(- (car P1)(/(- X1 (-(car P4)(car P1)) )2.0))(/ 10 DS)) )
            (fix(- (cadr P1)(/(- Y1 (-(cadr P2)(cadr P1)))2.0)(/ 20 DS)))) );end setq
      (command"line"P3 P4 P5 P6 "c"
              "line"B1 B2 B3 B4 "c")

這是畫沖頭長度的程序。

zxq0220

不知道楼主要画什么？最好给个示意图。

ljttjl

说说您的详细要求，发送至ljttjl@tom.com

MXK0375

一樓是下模座自動標注程序，其中L=160.0是外導柱的長度，每次都要修改，很麻煩。我想L=所有模板加自動起來，就是L=DWPT+DPT+STPT+SWPT+PPT+PWPT+DIEU.可否參照P4 (list(+(car P3) STPT SWPT PPT THIC 0.5)(cadr P3))
這是沖頭長度程序。