홈/ 질문/Q 108643
다음
진행 중
Lv.0
등록일: 2017-07-14T09:56:42+09:00 카테고리:

좌표로 텍스트가 표기가능하게 하고싶습니다.

예를들어 엑셀에

x      y     텍스트
0      0        1
1      1        2
x,y 좌표를 이용 0,0좌표에는 1이 1,1좌표에는 2가 표시가 되게 하고싶습니다.
방법을 알려주시면 감사하겠습니다.
공유

    관련 있는 질문들

    1 답변

    1. aalan

    2. 엑셀에서

      0      0        1
      1      1        2
      이 것만 복사하고 캐드에서 리습 실행하세요
      (defun c:123 ( / GetClipText str->lst cr str)
      (defun GetClipText(/ html result)
      (setq html (vlax-create-object “htmlfile”)
      result (vlax-invoke (vlax-get (vlax-get html ‘ParentWindow) ‘ClipBoardData) ‘GetData “Text”)
      )
      (vlax-release-object html)
      result
      )
      (defun str->lst ( str del / len lst pos )
      (setq len (1+ (strlen del)))
      (while (setq pos (vl-string-search del str))
      (setq lst (cons (substr str 1 pos) lst)
       str (substr str (+ pos len))
      )
      )
      (reverse (cons str lst))
      )
      (setq cr “rn” str (GetClipText) str (vl-string-right-trim cr (vl-string-left-trim cr str)))
      (foreach x (str->lst str cr)
      (apply
      ‘(lambda (a b c)
      (entmakex (list (cons 0 “TEXT”) (cons 10 (list (atof a) (atof b))) (cons 40 (getvar ‘textsize)) (cons 1 c) (cons 71 0)))
      )
      (str->lst x “t”)
      )
      )
      (princ)
      )
      • 0