비밀번호를 잊으셨나요?

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

계정이 있나요? 로그인

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 109488
다음
진행 중
리습공부123
리습공부123Lv.0
등록일: 2018-02-272018-02-27T18:34:58+09:00 2018-02-27T18:34:58+09:00카테고리: AutoCAD & CADian

선종류 변경 리습

현재 브릭스캐드를 사용하는 건축설계사원입니다.

리습을 공부하며 리습을 만들려고하고있는데 난관에 봉착하여 도움을 구하려 글을 씁니다.

리습을 만드는건 간단한수준에서 변형밖에 할줄 모르는 상황이고

만들려고하는 리습은 라인을 선택하여 선종류를 변경하는 리습을 만들려고하고있습니다.

현재까지 만든 리습 내용은

(defun c:vv (/ ss)
  (setvar “cmdecho” 0)
  (prompt “n>> 선종류를 변경할 객체를 선택하세요…”)
  (setq ss (ssget))
  (setvar “cmdecho” 0)
  (command “change” “p” “” “p” “lt” “hidden”  “”)
  (prompt (strcat “n>> 선종류가 변경되었습니다.” ))
  (prin1)
)



(princ “nt 명령어 : vv”)
(princ)

입니다.

제가 여기에서 변형을 하고 싶어하는 부분은 선에 대한 변경을 숫자로 다양하게 cen,das,dot 등

다양한 선으로 한번의 레이어에서 변경하고 싶어하는 부분입니다.

고수님들의 조언 부탁드립니다.

(현재 참고하고 있는 리습은 선의 색상을 변경하는 리습으로 내용은 아래 같습니다.)

 (defun c:cc ()
  (prompt “n>> 색상을 변경할 객체를 선택하세요… “)
  (setq se (ssget))
  (setq col (strcase (getstring “n>> 색상 번호를 입력하세요 : “)))
  (command “change” se “” “p” “c” col “”)
  (prompt (strcat “n>> ” col ” 번 색상으로 변경되었습니다.” ))
  (princ))
(princ “nt 선택객체 색상변경. Command: CG ” )
(princ)

  • 0
  • 4 4 답변
  • 46 조회
공유
  • Facebook

    관련 있는 질문들

    • 오토캐드 2016 맞춤법 검사기 끄는 방법 아시나요
    • 캐드에서 여러도면을 한번에 배치출력 할 수 있는 방법이 있나요
    • step파일, iges 파일을 열어서 볼 수 있는 방법이 있을까요?
    • 캐디안으로 도면을 열때 한글이 ???로 표시되는 문제

    4 답변

    • 작성 순
    • 최신 순
    • 공감 순
    1. aalan
    2. 수야12 Lv.21
      2018-02-27T20:23:29+09:00답변 등록 답변 등록 일시 2018-02-27 8:23 pm
      일단 2가지 구문 예입니다 
      (vl-load-com) ;;구냥 기본적으로 넣을구문 ..
      (defun c:1( / ks_Load_Linetype ss)
       ;; 라인타입로드하는 서브루틴입니다 브릭스캐드에 맞춘구문입니다 
        (defun ks_Load_Linetype(lname)
         (vl-load-com)
           (vl-catch-all-apply ‘vla-Load (list (vla-get-Linetypes(vla-get-activedocument (vlax-get-acad-object))) lname “iso.lin”))
         )
         
       (if(null (tblsearch “LTYPE” “DOT”)) ;;라인타입 “DOT”이 없으면 
        ( ks_Load_Linetype “DOT”) ;;라인타입”DOT”을 로드합니다 
        ) 
       (prompt “n>> 라인을 변경할 객체를 선택하세요:”) ;;메세지 띄우고
       (setq ss(ssget) n 0);;객체선택후 
       (repeat(sslength ss)
        (setq o(vlax-ename->vla-object(ssname ss n)))
        (if(/= “DOT” (vla-get-linetype o)) ;객체의 라인타입이 “DOT”가 아니면 
          (vla-put-linetype o “DOT”) ;라인타입을 “DOT”로 바꿉니다 
         )
        (setq n(1+ n))
       )
       (princ)
      ) 
      ((vl-load-com);; 잊지말고 꼭~!! 넣을구문 
      (defun c:2( / ks_Load_Linetype ss)
       ;; 라인타입로드하는 서브루틴입니다  브릭스캐드에 맞춘구문입니다.
        (defun ks_Load_Linetype(lname)
         (vl-load-com)
           (vl-catch-all-apply ‘vla-Load (list (vla-get-Linetypes(vla-get-activedocument (vlax-get-acad-object))) lname “iso.lin”))
         )
         
       (if(null (tblsearch “LTYPE” “CENTER”)) ;;라인타입 “CENTER”가 없으면 
        ( ks_Load_Linetype “CENTER”) ;;라인타입”CENTER”를 로드합니다 
        ) 
       (prompt “n>> 라인을 변경할 객체를 선택하세요:”) ;;메세지 띄우고
       (setq ss(ssget) n 0);;객체선택후 
       (repeat(sslength ss)
        (setq o(vlax-ename->vla-object(ssname ss n)))
        (if(/= “CENTER” (vla-get-linetype o)) ;객체의 라인타입이 “CENTER”가 아니면 
          (vla-put-linetype o “CENTER”) ;라인타입을 “CENTER”로 바꿉니다 
         )
        (setq n(1+ n))
       )
       (princ)
      ) 
       두번째 예를 드신 CC 처럼 명령을 2번 넣는(본 명령한번 ,색상번호 명령한번) 것은 리습화 하는 이유가 한공수라도 줄이기 위해서인데 약간 배반적인 느낌 ????
      • 0
      • 공유
        공유
        • 공유 Facebook
        • 공유 Twitter
    3. 리습공부123 Lv.0
      2018-02-28T16:37:54+09:00답변 등록 답변 등록 일시 2018-02-28 4:37 pm

      질문에 답해주셔서 감사합니다.

      일단 말씀하신것처럼 배반적인 느낌이 있기는하지만.. 많은 리습을 쓰다보니 명령어가 겹치기도 하고 너무 많아져서요ㅠㅠ

      그래서 한 명령어에서 또 다른 명령어를 사용할수 있나 싶어서 답글을 달아봅니다.
      예를들어서 명령어(VV)를 치고 레이어를 선택하여 1번은 CEN, 2번은 HID 3번은 DOT로 선 종류를 바꿀수 없는지가 궁금합니다.

      아직은 리습에 대해 많이 모르고 배우고 있는 수준이라.. 실력이 많이 부족해서 혼자 해결하기가 힘드네요..

      • 0
      • 공유
        공유
        • 공유 Facebook
        • 공유 Twitter
    4. 수야12 Lv.21
      2018-02-28T19:46:22+09:00답변 등록 답변 등록 일시 2018-02-28 7:46 pm

      단순구성입니다 

      new 1111.lsp
      • 0
      • 공유
        공유
        • 공유 Facebook
        • 공유 Twitter
    5. 리습공부123 Lv.0
      2018-03-09T14:07:00+09:00답변 등록 답변 등록 일시 2018-03-09 2:07 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