홈/ 질문/Q 101021
다음
진행 중
AHN GISEOG
Lv.0
등록일: 2014-04-22T17:13:56+09:00 카테고리:

날짜 요일 시간 리습

안녕하세요
날짜표기 리습은 잘쓰고 있는데
갑자기 날짜+요일+시간 리습이 필요 해서
구하려보니 구할  수가 없네요.
고수님의 도움 요청 올려 봅니다.

공유

    관련 있는 질문들

    4 답변

    1. aalan
    2. Lv.0

      예 두분께 정말 감사드립니다.
      아주 잘 됩니다.
      건승하세요~

      • 0
    3. Lv.0
      저 정도면 다가르켜 주신겁니다.  필요한 부분에 응용을 하시면 됩니다.
      (defun c:tdy( / tx cd y1 m1 d1 txt te txn)
        (setq ocmd (getvar “cmdecho”))
        (setvar “cmdecho” 0)
        (setq txt (menucmd “M=$(edtime,$(getvar,date),yyyy年mo月dd日ddd H:MM AM/PM)”))
        (prompt “오늘은 ==> “) (princ txt)
        (terpri)
        (setq tx (car (entsel “n 문자 선택 : “)))
        (setq te (entget tx)
                txn (subst (cons 1 txt) (assoc 1 te) te))
        (entmod txn)
        (setvar “cmdecho” ocmd)
      )
      항상 좋은 교본이 되어주시는 Kor_Storm님 감사합니다.
      • 0
    4. Lv.0

      먼저 감사 드립니다.
      올려주신 것 어떻게 사용하나요?

      아래는 제가 쓰는 것인데요
      여기다가 요일과 시간을 더 표기 하고 싶은데
      어떻게 적용을 하나요?

      (defun c:tdy( / tx cd y1 m1 d1 txt te txn)
      (setq ocmd (getvar “cmdecho”))
      (setvar “cmdecho” 0)
      (setq cd (rtos (getvar “cdate”) 2 0))
      (setq y1 (substr cd 1 4) ; (YEAR)
      m1 (substr cd 5 2) ; (MONTH)
      d1 (substr cd 7 2)) ; (DATE)
      (setq txt (strcat y1 “年” m1 “月” d1 “日”)) ; (YYYY.MM.DD.)
      (prompt “오늘은 ==> “) (princ txt)
      (terpri)
      (setq tx (car (entsel “n 문자 선택 : “)))
      (setq te (entget tx)
      txn (subst (cons 1 txt) (assoc 1 te) te))
      (entmod txn)
      (setvar “cmdecho” ocmd)
      )

      • 0

    5. (list
       (menucmd “M=$(edtime,$(getvar,date),YYYY)”)
       (menucmd “M=$(edtime,$(getvar,date),MO)”)
       (menucmd “M=$(edtime,$(getvar,date),DD)”)
       (menucmd “M=$(edtime,$(getvar,date),DDD)”)
       (menucmd “M=$(edtime,$(getvar,date),H:MM AM/PM)”)
      )

      • 0