홈/ 질문/Q 113452
다음
진행 중
천고
Lv.0
등록일: 2021-11-24T16:56:23+09:00 카테고리:

리습 좀 부탁드립니다.

아래 처럼 라인타입으로 선택하여 라인타입을 변경하고 싶은데
몇줄 남겨주시면 많은 도움되겠습니다.
미리 감사드립니다…(_ _)
  (setvar “cmdecho” 0)
  (setq ip (getstring “CHPROP LAYER name:”))
  (setq ent (ssget (list (cons 8 ip))))
  (prompt “nNEW LAYER name:”)
  (command “CHPROP” ent “” “c” “bylayer” “lt” “bylayer” “la” pause “”)
  (princ)
);defun
공유

    관련 있는 질문들

    4 답변

    1. aalan
    2. Lv.0

      긴글…ㅋㅋ 올려주셔서 감사합니다…(_ _)

      정말 도움 되었습니다…^^
      • 0
    3. Lv.11
      ;=========필렛 선택 다양=
      ;;Author : alanjt
      (defun c:FT (/ foo _color _name _trim _fix _pretty _sel _unlocked ent flt ss)
        ;; Filtered Selection (Block Name, Color [object level], Entity Type, Layer, Linetype [object level])
        ;; Required Subroutines: AT:GetSel
        ;; Alan J. Thompson, 11.03.09 / 09.24.10
        (vl-load-com)
        (defun foo (x f)
          (wcmatch (vl-princ-to-string
                     (cond ((cdr (assoc (car f) (entget (car x)))))
                           (“”)
                     )
                   )
                   (cdr f)
          )
        )
        (defun _color (n)
          (vl-princ-to-string
            (cond ((assoc n
                          ‘((0 . “ByBlock”)
                            (1 . “Red”)
                            (2 . “Yellow”)
                            (3 . “Green”)
                            (4 . “Cyan”)
                            (5 . “Blue”)
                            (6 . “Magenta”)
                            (7 . “White”)
                            (256 . “ByLayer”)
                           )
                   )
                  )
                  (n)
            )
          )
        )
        (defun _name (e)
          ((lambda (o / n)
             (cons 2
                   (strcat (cond ((eq “*” (substr (setq n (vla-get-name o)) 1 1)) (strcat “`” n))
                                 (n)
                           )
                           (cond ((vlax-property-available-p o ‘EffectiveName)
                                  (strcat “,” (_fix (vla-get-effectivename o)))
                                 )
                                 (“”)
                           )
                   )
             )
           )
            (vlax-ename->vla-object (car e))
          )
        )
        (defun _trim (s)
          (substr s
                  (+ 2
                     (cond ((vl-string-search “,” s))
                           (-1)
                     )
                  )
          )
        )
        (defun _fix (str)
          (if (eq (type str) ‘STR)
            (vl-list->string
              (apply (function append)
                     (mapcar (function (lambda (i)
                                         (if (vl-position i ‘(35 46 64 91 125 126))
                                           (list 96 i)
                                           (list i)
                                         )
                                       )
                             )
                             (vl-string->list str)
                     )
              )
            )
          )
        )
        (defun _pretty (s)
          (if (eq (type s) ‘STR)
            (vl-list->string (vl-remove 96 (vl-string->list s)))
          )
        )
        (defun _sel (m f / e g)
          (setvar ‘errno 0)
          (while (and (not g) (/= 52 (getvar ‘errno)))
            (initget 0 “Yes No”)
            (if (eq (type (setq e (AT:GetSel entsel
                                             (strcat “n잠긴 레이어를 무시하시겠습니까? [Yes/No] <“
                                                     (cond (*FT:Lock*)
                                                           ((setq *FT:Lock* “No”))
                                                     )
                                                     “>: “
                                                     m
                                             )
                                             f
                                  )
                          )
                    )
                    ‘STR
                )
              (setq *FT:Lock* e)
              (setq g e)
            )
          )
        )
        (defun _unlocked (e)
          (or (eq *FT:Lock* “No”)
              (/= 4
                  (logand 4
                          (cdr
                            (assoc 70 (entget (tblobjname “LAYER” (cdr (assoc 8 (entget (car e)))))))
                          )
                  )
              )
              (if acet-ui-message
                (not (acet-ui-message “Object on locked Layer!” “Error” 48))
                (alert “Object on locked Layer!”)
              )
          )
        )
        (initget 0 “Block Color Entity Layer linetYpe”)
        (setq *FT:Option*
               (cond
                 ((getkword (strcat “n필터 조건: [Block/Entity/Color/Layer/linetYpe] <“
                                    (cond (*FT:Option*)
                                          ((setq *FT:Option* “Layer”))
                                    )
                                    “>: “
                            )
                  )
                 )
                 (*FT:Option*)
               )
        )
        (if
          (and
            (cond
              ((eq *FT:Option* “Block”)
               (if (setq ent (_sel “n이름을 가져올 블록 선택: ” (lambda (x) (foo x ‘(0 . “INSERT”)))))
                 (princ (strcat “n블록: ””
                                (_pretty (_trim (cdadr (setq flt (list ‘(0 . “INSERT”) (_name ent))))))
                                “” 선택됨.”
                        )
                 )
               )
              )
              ((eq *FT:Option* “Color”)
               (if (setq ent (_sel “n색상을 가져올 객체 선택: “
                                   (lambda (x)
                                     (setq flt (list (cond ((assoc 62 (entget (car x))))
                                                           (‘(62 . 256))
                                                     )
                                               )
                                     )
                                   )
                             )
                   )
                 (princ (strcat “n색상: ”” (_color (cdar flt)) “” 선택됨.”)
                 )
               )
              )
              ((eq *FT:Option* “Entity”)
               (if (setq ent (_sel “n객체 종류를 가져올 객체 선택: ” nil))
                 (princ
                   (strcat “n”” (cdar (setq flt (list (assoc 0 (entget (car ent)))))) “” 선택됨.”)
                 )
               )
              )
              ((eq *FT:Option* “Layer”)
               (if (setq ent (_sel “n레이어를 가져올 객체 선택: ” _unlocked))
                 (princ
                   (strcat
                     “n레이어: ””
                     (_pretty (cdar (setq flt (list (cons 8 (_fix (cdr (assoc 8 (entget (car ent))))))))))
                     “” 선택됨.”
                   )
                 )
               )
              )
              ((eq *FT:Option* “linetYpe”)
               (if (setq ent (_sel “n선 종류를 가져올 객체 선택: “
                                   (lambda (x)
                                     (setq flt (list (cond ((assoc 6 (entget (car x))))
                                                           (‘(6 . “ByLayer”))
                                                     )
                                               )
                                     )
                                   )
                             )
                   )
                 (princ (strcat “n선 종류: ”” (cdar flt) “” 선택됨.”))
               )
              )
            )
            (sssetfirst nil nil)
            (setq ss (if (eq *FT:Lock* “Yes”)
                       (ssget “_:L” flt)
                       (ssget flt)
                     )
            )
          )
           (progn (sssetfirst nil ss)
                  (princ (strcat “n” (itoa (sslength ss)) ” 객체가 선택됨.”))
           )
        )
        (princ)
      )
      (defun AT:GetSel (meth msg fnc / ent good)
        ;; meth – selection method (entsel, nentsel, nentselp)
        ;; msg – message to display (nil for default)
        ;; fnc – optional function to apply to selected object
        ;; Ex: (AT:GetSel entsel “nSelect arc: ” (lambda (x) (eq (cdr (assoc 0 (entget (car x)))) “ARC”)))
        ;; Alan J. Thompson, 05.25.10
        (setvar ‘errno 0)
        (while (not good)
          (setq ent (meth (cond (msg)
                                (“n객체 선택: “)
                          )
                    )
          )
          (cond
            ((vl-consp ent)
             (setq good (cond ((or (not fnc) (fnc ent)) ent)
                              ((prompt “n잘못된 객체!”))
                        )
             )
            )
            ((eq (type ent) ‘STR) (setq good ent))
            ((setq good (eq 52 (getvar ‘errno))) nil)
            ((eq 7 (getvar ‘errno)) (setq good (prompt “n다시 시도해 주십시오.”)))
          )
        )
      )
      필터 리습입니다.
      구글링 조금하면 나오는거라 올려드려요
      • 0
    4. Lv.0

      네 네 참고하겠습니다.

      고견주셔서 감사드립니다…(_ _)
      • 0
    5. Lv.11

      저걸 수정할 능력은 안되는데..

      필터리습으로 같은 라인타입의 객체를 선택하시고 라인타입변경 리습을 쓰시는건 어떨까요..
      필터리습이야 검색하면 많죵..
      라인 변경은
      (defun C:QR() (command “SELECT” “\” “CHANGE” “P” “” “P” “LT” “CONTINUOUS” “”)) ;실선 ─
      간단하게 이런식으로 쓰셔도..
      • 0
    Lv.0
    등록일: 2012-01-04T08:55:58+09:00 카테고리:

    리습 좀 부탁드립니다.

    1. 목적 
        A도면의 일정 범위내의 모든 내용을 B도면에 삽입하고자 합니다.
        물론 A1,A2,A3 용지 크기에 따라 일정범위 값이 다릅니다.
        같은 용지 크기에서는 같은 일정범위의 값은 동일합니다.
        개별 도면이 아니고 다중 도면을 실행하고 싶습니다.
        영역 값: 파일을 OPEN하면서 리미트 값에 의해 도면 크기 자동인식
         A1 : 29(X),71(Y)  672(X),565(Y)
        A2 : 29(X),71(Y)  426(X),392(y)
        A3 : 29(X),71(Y)  253(X),270(Y)

    2. 실행하고자 하는 방안
        리습을 실행하면 변경하고자 하는 파일의 폴더를 지정하거나 파일을 선택하면 개별 또는 다중으로
        A도면의 내용을 B도면으로 블럭을 삽입하는 리습을 부탁드립니다.
       또한 리습 LOAD를 메뉴에 삽입시켜 늘 사용하기 위하여 메뉴 삽입 방법도 알고 싶습니다.

    3. 사용하는 CAD TOOL
        AutoCAD M 2010 입니다.

    4. A도면은 기존 폴더에 있는 파일이고 B도면은 엑셀에 파일명만 미리 만들어 놓고
        엑셀파일을 로드하면 B의 파일명이 엑셀에 지정한 파일명으로 작성되어 지도록
       하고 싶습니다.
       물론 엑셀에는 기존 파일명(A) 변경 파일명(B)을 같이 표시하고 변경된 파일을 저장하는
      디렉토리 지정도 가능하여야 합니다.

    5. 리습 또는 VBA로 작성을 부탁드립니다.

    • 0
    • 0 조회
    공유

      관련 있는 질문들

      Lv.0
      등록일: 2006-12-27T11:25:46+09:00 카테고리:

      리습 좀 부탁드립니다.

      혹시 사용하시는 리습중에 이런 리습 있으신분은 오려주시면 감사하겠습니다.
      해치할영역을 피라인으로 작성하면 피라인 작성이 끝난후에 자동으로
      그 영역안에 해치가 작성되는게 필요합니다.
      있으신분 좀 올려주세요
      그럼 수고요

      • 0
      • 0 조회
      공유

        관련 있는 질문들