홈/ 질문/Q 112780
다음
진행 중
욱디내꺼디
Lv.0
등록일: 2021-01-08T17:17:04+09:00 카테고리:

캐드 문자를 블럭으로 변환하는 방법

안녕하십니까 캐드작업을 하다가

궁금한점이 있어서 질문 남깁니다. 문자가 여러개 있는데 전부 블럭으로 만들고 싶습니다.
그 문자 여러개를 하나의 블럭으로 만드는게 아니고, 문자 하나 하나를 
각각의 블럭으로 만들고 싶은것입니다.
리습을 이용하거나, 아니면 기본 캐드상에 이러한 기능이 있다면
답변주시면 감사하겠습니다. 
공유

    관련 있는 질문들

    5 답변

    1. aalan
    2. Lv.19

      AutoCAD 사용하시면 만들어 드릴 수 있습니다 ㅎㅎ

      • 0
    3. Lv.0

      리습을 이용하는건가요? 오토캐드 프로그램도 사용중이긴한데.

      캐디안에서는 동일하게 작동되지 않는것인가요??
      만들어주시면 감사하겠습니다. 
      • 0
    4. Lv.19

      리습은 아니고 .NET으로 개발합니다 ㅎㅎ

      주말에 시간되면 만들어보고 아니면 월요일에 만들어 드릴게요 ^^
      AutoCAD에서만 사용가능합니다~
      유용한 기능 많으니 구경오세요 ^^
      • 0
    5. Lv.0

      리습파일입니다.

      캐디안에서는 테스트해보지 않았지만, 호환이 잘 되는 걸로 알고 있습니다.
      캐디안에서 써보시고  정상적으로 안돌아가면,
      캐디안 홈페이지 가셔서, 캐디안에서 작동하도록 수정해달라고 게시판에 올리시면
      캐디안측에서 리습파일 수정해서 보내줍니다.
      그런데 아마, 캐디안에서도 잘 될 겁니다.
      (defun C:TTB (/ ss d d1 t1 r1 ss os sslen ssno smember smemc smems num nums)  
             ;문자 객체만 선택해서 개별블록으로 만들기 (Text To Block)
      (defun *error* (msg) (setvar “osmode” os)  (princ) )
      (setq os (getvar “osmode”))
      (setq ss nil)
        (prompt “n선택한 텍스트를 개별블록으로 만듭니다. – 범위를 선택하세요.”)
        (setq ss (ssget (list (cons 0 “TEXT”))))
        (while (= ss nil)
            (alert “There is No TEXT”)
           (setq ss (ssget (list (cons 0 “TEXT”))))
        )
         (setq d (rtos (getvar “cdate”) 2 7))  
         (setq t1 (substr d 10 7) )  ;블록이름의 중복 방지용
         (setq sslen (sslength ss) ssno 0 num 0 )
         (while ( > sslen ssno)
            (setq smember (ssname ss ssno) ssno (+ ssno 1) )
            (setq smemc (cdr (assoc 10 (entget smember)))) ;center
            (setq smems (cdr (assoc 1 (entget smember)))) ;string
        (setq num (1+ num))
        (setq nums (itoa num))
        (if (= (strlen nums) 1 ) (setq nums (strcat “_00” nums) ) )
        (if (= (strlen nums) 2 ) (setq nums (strcat “_0” nums) ) )
        (if (= (strlen nums) 3 ) (setq nums (strcat “_” nums) ) )  ;블록이름의 중복 방지용
            (tblsearch “block” (setq B (strcat smems “_” t1 nums )))
            (setvar “osmode” 0)         
            (command “.block” B “_none” smemc “si” smember) 
            (command “.insert” B “_none” smemc “1” “1” “0”) 
        (setvar “osmode” os)
        );while end
          (alert (strcat (itoa num) ” EA Adjusted” )) 
      (princ)
      )
      • 0
    6. Lv.0

      감사합니다. 작동됩니다. 잘 사용하겠습니다.

      • 0