[LISP函数]：求救!我是搞沖模設計的

MXK0375 · 发表于 2006-5-22 15:02:38

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

求救!我是搞沖模設計的,我的A4圖框左下角會有當天繪圖的日期,但是它是台灣日歷,我如何修改成公歷.謝謝!!!

Underway · 发表于 2006-5-22 16:13:49

(defun c:A4xN (/ TH S X1 Y1 MA PCS PCSN)

(setvar"cmdecho"0)(setvar"expert"3)
(setvar"osmode"0)(setvar"blipmode"0)
(if(= TX nil)(setq TX 1))
(if(= INP nil)(setq INP (list 0 0)) )
(setq TH (/ 2.5 TX) S (/ 1 TX ) )
(setq x1 (/ 210 TX) y1(/ 297 TX))

(Command "layer""m""4""c""4""4""s""4"""
      "insert""A4C"INP S "" "0"
      "insert""REVA1"(list(+(car INP)(/ 182 TX))
                        (+(cadr INP)(/ 7.5 TX))) S "" "0"
      "insert"DESIGN(list(+(car INP)(/ 2 TX))
                           (+(cadr INP)(/ 15.5 TX))) S "" "0"
      "insert"DESIGN(list(+(car INP)(/ 17 TX))
                           (+(cadr INP)(/ 15.5 TX))) S "" "0"
      "limits"INP(list (+(car INP)x1)(+(cadr INP)y1) )
      "limits""off"
      "text"(list(+(car INP)(/ 7.3 TX))(+(cadr INP)(/ 9 TX)))TH"0"
            (strcat (itoa (+ (atoi YEAR) 1911)))
      "text"(list(+(car INP)(/ 7.7 TX))(+(cadr INP)(/ 5 TX)))TH"0"
            (strcat MONTH)
      "text"(list(+(car INP)(/ 7.3 TX))(+(cadr INP)(/ 1 TX)))TH"0"
            (strcat DAY)
)

);end defun

MXK0375 · 发表于 2006-5-23 12:50:56

謝謝您!!!二樓的大哥.可還不是我想要的.我是LSP盲呀,請你幫忙再修改一下好嗎?

MXK0375 · 发表于 2006-5-23 13:01:59

我圖框如下.

Underway · 发表于 2006-5-23 13:16:16

(strcat YEAR)

====>
(substr (itoa (fix (GetVar "Cdate"))) 3 2)

MXK0375 · 发表于 2006-5-23 14:14:25

本人十分感謝!!!

MXK0375 · 发表于 2006-5-23 17:08:12

P.S還要麻煩一下.

Underway · 发表于 2006-5-23 21:24:04

(defun c:A3xN (/ TH N X1 Y1 )
(setq YEAR (substr (itoa (fix (GetVar "Cdate"))) 3 2)) ; 补
(setvar"cmdecho"0)(setvar"expert"3)
....下同

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

[LISP函数]：求救!我是搞沖模設計的

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

謝謝您!!!二樓的大哥