ÂõÂõÃæ°åÓÅ»¯

³Âΰ

tangjunasd58 ·¢±íÓÚ 2019-6-2 23:45
;;Õâ¸öÒ²ÄÜÓÅ»¯³É´ø¼ÇÒäÄÇ°æÄÇÑùµÄ²» titl:±êÌâ; buttons:°´Å¥Áбí; flag:nilÏÈÐкóÁÐTÏÈÁкóÐÐ(defun Dcl- ...

ÎÒŪ³É¹¦ÁË£¬ÓеãÌìÉúȱÏÝ

guankuiwu

²»´í£¡£¡

³Âΰ

ллȺÖ÷£¬»ØÀ¡±¾Ìû£¬¼ÇÒäÕâ¸öÊÇͬһ¸öÃüÁîÏÂÃæIFº¯ÊýÓõùý¶àÔì³ÉµÄ£¬ÎҵĽâ¾ö·½°¸Êǽ«IFº¯Êý²ð·Ö£¬¾Í²»»á³öÏÖ¡°ÔÚÖ÷Ò³£¬½øÈ¥ÆäËû²Ëµ¥£¨ÈçÍøÒ³£©£¬£¬ÒªµãÁ½´Î¹Ø±Õ²ÅÄܹرա±Õâ¸öÎÊÌâÁË£¬£¬£¬ÉìÊÖµ³±¾À´ÏëÊÕÒ»¸ö±ÒÀ´×Å£¨ÕÛÌÚÁ˼¸¸öСʱ²Å¸ã¶¨µÄ£©£¬ºÃÏñϵͳ³öÎÊÌâÁË£¬´«²»ÉÏÀ´¸½¼þ£¬£¬ËãÁË£¬£¡£¡£¡Ï£Íû»¹Óиü¼ò±ãµÄ½â¾ö·½°¸£¡£¡




(defun c:bb ()  
(if (null bbdigopen) (setq bbdigopen -1))
(if (= bbdigopen -1) (bbdig0) (c:bb01))
(princ))

(defun c:bb01 ()
(if (= bbdigopen -2) (bbdig1) (c:bb02))
(princ))


(defun c:bb02 ()
(if (= bbdigopen -3) (bbdig2) (c:bb03))
(princ))


(defun c:bb03 ()
(if (= bbdigopen -4) (bbdig3) (c:bb04))
(princ))

(defun c:bb04 ()
(if (= bbdigopen -5) (bbdig4) (bbdig5))
(princ))


(defun bbdig0 ()
(setq bbdigopen -1)
  (mai_make_panel
    (list
      (list "ÍøÒ³"
            (list "ÅúÁ¿´òÓ¡" "aa1")
            (list "ͳ¼ÆÉèÖÃ" "aa2")
            (list "ͳ¼Æ³¤¶È" "aa3")
            (list "Ãæ»ýͳ¼Æ" "AT")
            (list "ϵͳËãÆ÷" "aa4")
            (list "²évlxkey" "aa5")
            (list "µØÖ·ÊÕ²Ø" "aa6")
            (list "»¨ÌÃÎÄѧ" "aa7")
            (list "°®Í¼ÂÛ̳" "aa8")
            (list "Itellyou" "aa9")
      ) ;_ ½áÊølist
      (list "»æͼ"
            (list "¹ÜµÀ½ØÃæ" "gdjm")
            (list "¹ÜµÀ½Ø¶Ï" "gdjd")
            (list "»æÖÆÂÝ˨" "sd")
            (list "»æÖÆÂÝË¿" "bls")
            (list "ÂÝ˨Á¬½Ó" "aa10")
            (list "»æÖƹܵÀ" "aa11")
            (list "ÉÏÏÂÍäÍ·" "aa12")
            (list "±í¸ñ C2E" "aa13")
            (list "×ÖÉÏϱê" "zsxb")
            (list "ÈÕÆÚÈÕÀú" "Calendar")
      ) ;_ ½áÊølist
      (list "ͼ¿é"
            (list "²éÕÒͼ¿é" "Count")
            (list "²é¿éÁ¬Ïß" "bb2")
            (list "ͼ¿éÌæ»»" "bb3")
            (list "Ô²ÐIJå¿é" "bb4")
            (list "ͼ¿é±àºÅ" "PEACE-BN")
            (list "µÝÔö¸´ÖÆ" "xcc")
            (list "X to cad" "x2c")
            (list "תACAD±í" "cot")
            (list "±í¸ñµ¼³ö" "te")
            (list "Îı¾µ¼³ö" "wr")
      ) ;_ ½áÊølist
      (list "¹¤¾ß"
            (list "µÝÔöË¢×Ó" "dz")
            (list "Ïàͬˢ×Ó" "xts")
            (list "×öÖÐÐÄÏß" "ce")
            (list "±í¸ñ¾ÓÖÐ" "tabm")
            (list "×Ö¾ÓÖТÙ" "cc1")
            (list "×Ö¾ÓÖТÚ" "cc2")
            (list "ÒýÏß±ê×¢" "cc5")
            (list "Ôö¼õÊý×Ö" "cc6")
            (list "¾Ö²¿·Å´ó" "fd")
            (list "×ÔÖúÐÞ¼ô" "trxx")
      ) ;_ ½áÊølist
      (list "ÎÄ×Ö"
            (list "Îı¾¼ÓÔ²" "dd1")
            (list "¼ÓÏ»®Ïß" "jbtx")
            (list "×Ö¶¨Î»¢Ù" "czdw1")
            (list "×Ö¶¨Î»¢Ú" "czdw2")
            (list "²ð·ÖÎÄ×Ö" "exstr")
            (list "ºÏ²¢ÎÄ×Ö" "dd5")
            (list "×Ö¶ÔÆë¢Ù" "wzqx")
            (list "×Ö¶ÔÆë¢Ú" "dd7")
            (list "ÎÄ×Ö¼Ó¿ò" "wzbk")
            (list "¼ÓȦµÝÔö" "NumInc")
      ) ;_ ½áÊølist
    ) ;_ ½áÊølist
  ) ;_ ½áÊømai_mak_panel
(princ)
)




(defun bbdig1 ()
(setq bbdigopen -2)
  (mai_make_panel
    (list
      (list "ÍøÒ³"
            (list "ÅúÁ¿´òÓ¡" "aa1")
            (list "ͳ¼ÆÉèÖÃ" "aa2")
            (list "ͳ¼Æ³¤¶È" "aa3")
            (list "Ãæ»ýͳ¼Æ" "AT")
            (list "ϵͳËãÆ÷" "aa4")
            (list "²évlxkey" "aa5")
            (list "µØÖ·ÊÕ²Ø" "aa6")
            (list "»¨ÌÃÎÄѧ" "aa7")
            (list "°®Í¼ÂÛ̳" "aa8")
            (list "Itellyou" "aa9")
      ) ;_ ½áÊølist
    ) ;_ ½áÊølist
  ) ;_ ½áÊømai_mak_panel

  (princ)

)

(defun bbdig2()
(setq bbdigopen -3)
  (mai_make_panel
    (list
(list "»æͼ"
            (list "¹ÜµÀ½ØÃæ" "gdjm")
            (list "¹ÜµÀ½Ø¶Ï" "gdjd")
            (list "»æÖÆÂÝ˨" "sd")
            (list "»æÖÆÂÝË¿" "bls")
            (list "ÂÝ˨Á¬½Ó" "aa10")
            (list "»æÖƹܵÀ" "aa11")
            (list "ÉÏÏÂÍäÍ·" "aa12")
            (list "±í¸ñ C2E" "aa13")
            (list "×ÖÉÏϱê" "zsxb")
            (list "ÈÕÆÚÈÕÀú" "Calendar")
      ) ;_ ½áÊølist

    ) ;_ ½áÊølist
  ) ;_ ½áÊømai_mak_panel

  (princ)
)

(defun bbdig3 ()
(setq bbdigopen -4)
  (mai_make_panel
    (list   
      (list "ͼ¿é"
            (list "²éÕÒͼ¿é" "Count")
            (list "²é¿éÁ¬Ïß" "bb2")
            (list "ͼ¿éÌæ»»" "bb3")
            (list "Ô²ÐIJå¿é" "bb4")
            (list "ͼ¿é±àºÅ" "PEACE-BN")
            (list "µÝÔö¸´ÖÆ" "xcc")
            (list "X to cad" "x2c")
            (list "תACAD±í" "cot")
            (list "±í¸ñµ¼³ö" "te")
            (list "Îı¾µ¼³ö" "wr")
      ) ;_ ½áÊølist
    ) ;_ ½áÊølist
  ) ;_ ½áÊømai_mak_panel

  (princ)

)


(defun bbdig4()
(setq bbdigopen -5)
  (mai_make_panel
    (list
      (list "¹¤¾ß"
            (list "µÝÔöË¢×Ó" "dz")
            (list "Ïàͬˢ×Ó" "xts")
            (list "×öÖÐÐÄÏß" "ce")
            (list "±í¸ñ¾ÓÖÐ" "tabm")
            (list "×Ö¾ÓÖТÙ" "cc1")
            (list "×Ö¾ÓÖТÚ" "cc2")
            (list "ÒýÏß±ê×¢" "cc5")
            (list "Ôö¼õÊý×Ö" "cc6")
            (list "¾Ö²¿·Å´ó" "fd")
            (list "×ÔÖúÐÞ¼ô" "trxx")
      ) ;_ ½áÊølist
    ) ;_ ½áÊølist
  ) ;_ ½áÊømai_mak_panel

  (princ)

)


(defun bbdig5()
(setq bbdigopen -6)
  (mai_make_panel
    (list
      (list "ÎÄ×Ö"
            (list "Îı¾¼ÓÔ²" "dd1")
            (list "¼ÓÏ»®Ïß" "jbtx")
            (list "×Ö¶¨Î»¢Ù" "czdw1")
            (list "×Ö¶¨Î»¢Ú" "czdw2")
            (list "²ð·ÖÎÄ×Ö" "exstr")
            (list "ºÏ²¢ÎÄ×Ö" "dd5")
            (list "×Ö¶ÔÆë¢Ù" "wzqx")
            (list "×Ö¶ÔÆë¢Ú" "dd7")
            (list "ÎÄ×Ö¼Ó¿ò" "wzbk")
            (list "¼ÓȦµÝÔö" "NumInc")
      ) ;_ ½áÊølist
    ) ;_ ½áÊølist
  ) ;_ ½áÊømai_mak_panel

  (princ)

)



(defun c:bbdig6() (alert "ÎʾýÄÜÓм¸¶à³î,Ç¡ËÆÒ»½­´ºË®Ïò¶«Á÷" )  (princ))








(defun mai_make_panel ( menulist / n num_nobut num_button nn nnn menuname val_lst add_dclrow tt order_lst in num_image)
(defun add_dclrow ( dstr / ) (if dstr (setq val_lst (cons dstr val_lst))))(setq menuname (strcat (vl-filename-mktemp) "temp_pannel.dcl"))
(add_dclrow "curbutton:button{width=10;vertical_margin=none;vertical_margin=none;}")(add_dclrow "curimage:image{width=10;height=0.2;vertical_margin=none;vertical_margin=none;}")
(add_dclrow "curpanel:dialog{key=\"bbtimexx\";alignment=centered;vertical_margin=none;horizontal_margin=none;")(add_dclrow ":row{")
(setq len (apply 'max (mapcar 'length menulist)) order_lst (apply 'append (mapcar 'cdr menulist)) num_button 0  num_nobut 0  in 0 num_image 0)
(foreach nn menulist(setq in 0)(add_dclrow (strcat " : column{label=\"" (car nn) "\";vertical_margin=none; horizontal_margin=none;"))
(foreach nnn (cdr nn)(setq num_button (1+ num_button) in (1+ in) num_image (1+ num_image) tt (car nnn)  tt (if tt tt ""))
(add_dclrow (strcat ":curbutton{label=\"" tt "\";horizontal_margin = none;vertical_margin = none;key=\"but" (itoa num_button) "\";}"))
(if (= 30 in)(progn (add_dclrow (strcat ":curimage{key=\"ima" (itoa num_image) "\";color=18;}"))(setq in 0))))
(repeat (- len (length nn))(setq num_nobut (1+ num_nobut) in (1+ in) num_image (1+ num_image))(add_dclrow (strcat " : curbutton{key=\"butno" (itoa num_nobut) "\";color=-2;}"))
(if (= 10 in)(progn (add_dclrow (strcat ":curimage{key=\"ima" (itoa num_image) "\";}"))(setq in 0))))(add_dclrow "spacer;}"))
(add_dclrow "} :row{:button{label =\"Ö÷Ò³\" ; key=\"bbzydig\" ; horizontal_margin = none;vertical_margin = none;} :button{label =\"ÍøÒ³\" ; key=\"bbwydig\" ; horizontal_margin = none;vertical_margin = none;} :button{label =\"»æͼ\" ; key=\"bbhtdig\" ; horizontal_margin = none;vertical_margin = none;}  :button{label =\"ͼ¿é\" ; key=\"bbtkdig\" ;horizontal_margin = none;vertical_margin = none; } :button{label =\"¹¤¾ß\" ; key=\"bbgjdig\" ; horizontal_margin = none;vertical_margin = none;}   :button{label =\"ÎÄ×Ö\" ; key=\"bbwenzidig\" ;horizontal_margin = none;vertical_margin = none; }:button{label =\"¹Ø±Õ\" ; key=\"cancel\" ; is_cancel = true;horizontal_margin = none;vertical_margin = none;}:button{label =\"¹ØÓÚ\" ; key=\"findhelp\" ; horizontal_margin = none;vertical_margin = none;}}}")
(vl-file-delete menuname)(setq nn (open menuname "w"))(foreach n (reverse val_lst) (write-line n nn))(close nn)(setq nnn (load_dialog menuname))
(if (not (new_dialog "curpanel" nnn)) (exit))
(set_tile "bbtimexx" (strcat (menucmd "M=$(edtime,$(getvar,date), ÃÔÄ㹤¾ßÏä              ±ØÇ¿ÌáʾÏÖÔÚʱ¼äÊÇ:YYYY/MO/DD DDDD HH:MM )")))  
(action_tile "cancel"  "(done_dialog 0)")(action_tile "bbzydig"  "(done_dialog -1)")(action_tile "bbwydig"  "(done_dialog -2)")(action_tile "bbhtdig"  "(done_dialog -3)")(action_tile "bbtkdig"  "(done_dialog -4)")(action_tile "bbgjdig"  "(done_dialog -5)")(action_tile "bbwenzidig"  "(done_dialog -6)")(action_tile "findhelp"  "(c:bbdig6)")
(setq n 0)(repeat num_nobut (mode_tile (strcat "butno" (itoa num_nobut)) 1) (setq num_nobut (1- num_nobut)))(foreach nn menulist(foreach nnn (cdr nn)(setq n (1+ n) tt (car nnn) tt (if tt tt "") tt order_lst)
(if (= tt "")(mode_tile (strcat "but" (itoa n)) 1)(action_tile (strcat "but" (itoa n)) (strcat "\(done_dialog " (itoa n) "\)")))))(setq nn (start_dialog))(unload_dialog nnn)(vl-file-delete menuname)
(if (= nn -1) (bbdig0))(if (= nn -2) (bbdig1))(if (= nn -3) (bbdig2))(if (= nn -4) (bbdig3))(if (= nn -5)(bbdig4))(if (= nn -6)(bbdig5))
(if (> nn 0)(progn (setq tt (cadr (nth (1- nn) order_lst)))(princ "\n")(if (= (eval (read (strcat "(type c:" tt ")"))) 'SUBR)(eval (read (strcat "(c:" tt ")")))(vl-cmdf tt)))))

yoyoho

лл! ·ÖÏí³ÌÐò!!!!!

ÃÔʧ1786

ÇëÎÊÕâ¸öÃæ°åÔõô¼Ó×Ô¼ºµÄLSP½øÈ¥£¿

xyp1964

»¹¿ÉÒÔ¼ÌÐøÓÅ»¯

LIULISHENG

ÖxÖx˜ÇÖ÷·ÖÏí~

434939575

лл¡£Õâ¸öºÃ£¬Ò»Ö±Ã»¸ÒÈ¥¸ãdcl.

×¢²á

³Âΰ ·¢±íÓÚ 2021-2-2 09:54
ллȺÖ÷£¬»ØÀ¡±¾Ìû£¬¼ÇÒäÕâ¸öÊÇͬһ¸öÃüÁîÏÂÃæIFº¯ÊýÓõùý¶àÔì³ÉµÄ£¬ÎҵĽâ¾ö·½°¸Êǽ«IFº¯Êý²ð·Ö£¬¾Í²»»á ...

ÊÇ·ñ¿ÉÒÔʵÏÖ½«×îµ×ϵÄÖ÷Ò³µ½¹ØÓÚÕâ8¸ö°´Å¥·ÖÁ½À¸²¼Öã¿

zmzk

ÈçºÎ ʵÏÖ½«×îµ×Ï嵀 Ö÷Ò³µ½¹ØÓÚ   Õâ8¸ö°´Å¥  ·Åµ½×îÉÏÃæ°¡£¿