비밀번호를 잊으셨나요?

비밀번호를 잊으셨나요? 비밀번호를 재설정하려면 이메일 주소를 입력해주세요.

계정이 있나요? 로그인

You must login to ask a question.

비밀번호를 잊으셨나요?

아직 계정이 없으신가요? 회원가입 하기

해당 질문을 신고하는 이유를 간단히 입력해주세요.

해당 답변을 신고하는 이유를 간단히 입력해주세요.

해당 유저를 신고하는 이유를 간단히 입력해주세요.

로그인회원가입

고캐드 – 캐드(CAD) 정보의 중심

고캐드 – 캐드(CAD) 정보의 중심 Logo 고캐드 – 캐드(CAD) 정보의 중심 Logo

고캐드 – 캐드(CAD) 정보의 중심 Navigation

  • Q&A
    • AutoCAD & CADian
    • Inventor & Solidworks
    • Revit & ArchiCAD
    • 자유질문
    • 기타
  • 커뮤니티
    • 오늘의이슈
    • 자유게시판
    • 익명게시판
    • 건의게시판
  • 자료실
    • 자료요청
    • 일반파일
    • 도면샘플
    • 유틸리티
    • 기타
  • 작품 갤러리
    • 그래픽
    • 캐드도면
    • 3D모델
    • 기타
  • 뉴스&이벤트
    • 공지사항
    • 뉴스
    • 전시/행사
    • 이벤트
    • 기타
검색
질문하기

Mobile menu

닫기
질문하기
  • 홈
  • 카테고리
    • AutoCAD & CADian
    • Inventor & Solidworks
    • Revit & ArchiCAD
    • 자유질문
    • 기타
  • 투표
  • 커뮤니티 그룹
  • Q&A
    • AutoCAD & CADian
    • Inventor & Solidworks
    • Revit & ArchiCAD
    • 자유질문
    • 기타
  • 커뮤니티
    • 오늘의이슈
    • 자유게시판
    • 익명게시판
    • 건의게시판
  • 자료실
    • 자료요청
    • 일반파일
    • 도면샘플
    • 유틸리티
    • 기타
  • 작품 갤러리
    • 그래픽
    • 캐드도면
    • 3D모델
    • 기타
  • 뉴스&이벤트
    • 공지사항
    • 뉴스
    • 전시/행사
    • 이벤트
    • 기타
홈/ 질문/Q 107250
다음
진행 중
gogohh3
gogohh3Lv.0
등록일: 2016-09-202016-09-20T11:21:02+09:00 2016-09-20T11:21:02+09:00카테고리: AutoCAD & CADian

다중선택으로 잡아서 색상을 변경하는리습 변환부탁드려요

안녕하세요 제가 여러번 질문을 드려서 죄송한데,
이전에 쓰던 리습이 안되서 질문도 했었는데, 원래 오토캐드를 사용하지않고 지스타 캐드라고 정품인데, 라이센스 가격이 저가인 캐드를 사용합니다, 이번에 16버전으로 업데이트하면서 리습이 안되서 제가 혼자 연구도 해보고 하다가 아는 지인에게 물어보니, vla라는게 이번 버전에서 안먹힌다고 하더라구요….. 혹시 vla를 안쓰고 리습을 만드는 방법이 없을까요 ㅠㅠ 너무 필요한리습이라서 이렇게 글로 남겨봅니다.
 -리습에 대한 설명은 다중으로 잡고 텍스트에 D10을 포함 하면 색상이100 이런식으로바뀌는 리습니다.

(vl-load-com)
(defun c:CS( / ss str)
 (if (setq ss (ssget ‘((0 . “TEXT”))))
  (vlax-for ob (vla-get-ActiveSelectionSet (vla-get-ActiveDocument (vlax-get-acad-object)))
   (cond
      ((wcmatch (setq str (strcase (vlax-get ob ‘textstring))) “*D10*”)
    (vlax-put ob ‘color 100)
      )
      ((wcmatch str “*D13*”)
    (vlax-put ob ‘color 130)
      )
      ((wcmatch str “*D16*”)
    (vlax-put ob ‘color 160)
     )
      ((wcmatch str “*D19*”)
    (vlax-put ob ‘color 190)
     )
      ((wcmatch str “*D22*”)
    (vlax-put ob ‘color 220)
      )
      ((wcmatch str “*D25*”)
    (vlax-put ob ‘color 20)
      )
      ((wcmatch str “*D29*”)
    (vlax-put ob ‘color 181)
      )
      ((wcmatch str “*D25*”)
    (vlax-put ob ‘color 20)
      )
      ((wcmatch str “*D32*”)
    (vlax-put ob ‘color 136)
      )
     ((wcmatch str “*D35*”)
    (vlax-put ob ‘color 235)
      )
     ((wcmatch str “*D38*”)
    (vlax-put ob ‘color 138)
      )
   )
  )  
 )
 (princ)
)

  • 0
  • 2 2 답변
  • 20 조회
공유
  • Facebook

    관련 있는 질문들

    • 오토캐드 마지막 화면으로 실행 안됨
    • 오토캐드 마지막 화면으로 실행 안됨
    • 도서관 도면 구합니다. !
    • 캐드2022 레이어 그룹 분류시 레이어 드래그 오류

    2 답변

    • 작성 순
    • 최신 순
    • 공감 순
    1. aalan
    2. [Deleted User]
      2016-09-20T13:09:56+09:00답변 등록 답변 등록 일시 2016-09-20 1:09 pm

      (defun c:test (/ idx dlst name ent cd1 ix10)  (setq se (ssget ‘((0 . “TEXT”)(1 . “*D*”))))

        (setq idx -1)
        (setq dlst ‘((“D10” . 10)
              (“D13” . 130)
              (“D16” . 160)
              (“D19” . 190)
              (“D22” . 220)
              (“D25” . 20)
              (“D29” . 181)
              (“D32” . 136)
              (“D35” . 235)
              (“D38” . 138)
              )
       )
       
        (repeat (sslength se)
          (setq name (ssname se (setq idx (1+ idx))))
          (setq ent (entget name))
          (setq cd1 (cdr (assoc 1 ent)))
          (setq ix10 nil)
          (foreach m dlst
            (if (wcmatch cd1 (strcat “*” (car m) “*”))
       (setq ix10 (cdr m))
       )
            )
          (if (not ix10)(setq ix10 256))
         
          (setq as62 (assoc 62 ent))
          (if as62
            (progn
       (entmod (subst (cons 62 ix10) as62 ent))
       )
            (progn
       (entmod (append ent (append (list (cons 62 ix10)))))
       )
            )
          )
        (princ)
        )

      질문이 이상하면
       답변 두세번 가게 되고..
       답변 안하게 되더군요..
      수고하세요

      • 0
      • 공유
        공유
        • 공유 Facebook
        • 공유 Twitter
    3. gogohh3 Lv.0
      2016-09-20T13:31:08+09:00답변 등록 답변 등록 일시 2016-09-20 1:31 pm

      사용해보았는데 됩니다 !!! ㅠㅠ 정말 정말로 감사드립니다.
      항상 이렇게 도움받아서 언제나 감사하게 여기고 있습니다.

      • 0
      • 공유
        공유
        • 공유 Facebook
        • 공유 Twitter

    Sidebar

    질문하기
    공지사항

    • AI CAD의 미래! 캐디안 2025 1+1 프로모션 안내 2025-05-14

    Adv 234x60

    aalan

    Adv 234x60

    aalan

    Adv 120x600

    aalan

    Explore

    • 홈
    • 카테고리
      • AutoCAD & CADian
      • Inventor & Solidworks
      • Revit & ArchiCAD
      • 자유질문
      • 기타
    • 투표
    • 커뮤니티 그룹
    aalan

    Footer

    Support

    • 회사 및 서비스 소개
    • 자주 묻는 질문
    • 문의하기

    Guide

    • 제휴/협업 안내
    • 광고 서비스 안내

    Policy

    • 서비스 이용약관
    • 개인정보 처리방침
    • 광고성 정보 수신 동의

    Contents

    • 고밍스토리
    • 리습 시리즈

    정소프트 | 사업자등록번호 : 677-40-00198 | 대표 : 정은숙 | 이메일 : gocad.manager@gmail.com
    주소 : 서울특별시 강서구 양천로 400-12, 6층 614,615,617호(등촌동, 더리브골드타워)
    Copyright. 2012-2024 GOCAD All rights reserved