홈/ 질문/Q 103311
다음
진행 중
Lv.0
등록일: 2015-01-29T16:31:49+09:00 카테고리:

간단한 리습하나만 부탁드리겠습니다.

고수님들 간단한 LISP 하나만 부탁좀드리겠습니다.

간단히 단축키는 aa 로 했음좋겠구..
[완료-150129]
이런글씨 나오게끔 하는 리습하나만 부탁드리겠습니다.
숫자는 제가 리습 수정하면 되는부분이겠지요?
공유

    관련 있는 질문들

    3 답변

    1. aalan

    2. 감사합니다..!! 

      • 0
    3. Lv.0

      (defun c:aa ( / txh tex pt1)
      (setq txh (getvar “textsize”))
      (setq tex  (strcat “[완료-” (substr (rtos (getvar “cdate”) 2 0) 3) “]”) )
      (setq pt1 (getpoint “n 삽입점”))
      (command “text” “j” “m” pt1  txh “” tex )
      (princ)
      )

      • 0
    4. Lv.0

      원하시는 리습 답변이 아니라 미안하지만…
      간단한 문자를 완성된 여러 도면에 일률적으로 넣고 싶으신 거라면…
      리습 명령어 실행 작업이나…컨트럴 + V로 복사 넣기나 작업량은 같을거로 보이는데요…

      보다 정확한 답변은 다음분게 페스하겠습니다.

      건승하세요.

      • 0