비밀번호를 잊으셨나요?

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

계정이 있나요? 로그인

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 26001
다음
진행 중
Something went wrong with the plugin API.
Something went wrong with the plugin API.
등록일: 2001-07-032001-07-03T23:06:25+09:00 2001-07-03T23:06:25+09:00카테고리: AutoCAD & CADian

빌린인생님 감사힙니다. 또 질문 있는디

(defun c:EL(/ ip ent)

(graphscr)

(setvar "cmdecho" 0)

(setq ip (getreal "1,2,3,4,5,6,7,8,9,0,00,12,13,14,15,16,17,18,19,20,21,23,24,25,26,27,28,29,30,31,32,34,35,36,37, @ Eress하고픈 LAYER 이름이 뭐여 ?:"))

(if (eq ip 1)(setq ip "l-die"))

(if (eq ip 2)(setq ip "l-die-dash"))

(if (eq ip 3)(setq ip "u-die"))

(if (eq ip 4)(setq ip "u-die-dash"))

(if (eq ip 5)(setq ip "pad"))

(if (eq ip 6)(setq ip "pad-dash"))

(if (eq ip 7)(setq ip "l-steel"))

(if (eq ip 8)(setq ip "l-steel-dash"))

(if (eq ip 9)(setq ip "u-steel"))

(if (eq ip 0)(setq ip "u-steel-dash"))

(if (eq ip 12)(setq ip "cam"))

(if (eq ip 13(setq ip "cam-dash"))

(if (eq ip 14)(setq ip "cam-unit"))

(if (eq ip 15)(setq ip "heel"))

(if (eq ip 16)(setq ip "heel-dash"))

(if (eq ip 17)(setq ip "post"))

(if (eq ip 18)(setq ip "post-dash"))

(if (eq ip 19)(setq ip "part"))

(if (eq ip 20)(setq ip "part-no"))

(if (eq ip 21)(setq ip "panel"))

(if (eq ip 23)(setq ip "panel-view"))

(if (eq ip 24)(setq ip "sechion"))

(if (eq ip 25)(setq ip "shion-dash"))

(if (eq ip 26)(setq ip "auto"))

(if (eq ip 27)(setq ip "auto-dash"))

(if (eq ip 28)(setq ip "air"))

(if (eq ip 29)(setq ip "dim"))

(if (eq ip 30)(setq ip "dim-h"))

(if (eq ip 31)(setq ip "center"))

(if (eq ip 32)(setq ip "core"))

(if (eq ip 34)(setq ip "std"))

(if (eq ip 35)(setq ip "std-dash"))

(if (eq ip 36)(setq ip "std1"))

(if (eq ip 37)(setq ip "std1-dash"))

(setq ent (ssget (list (cons 8 ip))))

(command "ERASE" ent "")

(princ)

);defun

상기와 같이 했더니 1~0번까지는 잘되는데요.

12번 부터는 안되네요

여기에도 숨은 사연이 있나요

번번이 죄송스럽지만 한수 부탁드립니다.

  • 0
  • 1 1 답변
  • 0 조회
공유
  • Facebook

    관련 있는 질문들

    • cad_레이어 이니셜로 레이어 선택이 안됩니다.
    • 블럭 투명도 조절
    • 배관 dh-menu 사용하시는 분??
    • 객체가 그룹 구성원이 아닙니다. 뜨면서 언그룹이 안되네요 ㅜㅜ 내용추가

    1 답변

    • 작성 순
    • 최신 순
    • 공감 순
    1. 빌린인생
      2001-07-04T15:20:00+09:00답변 등록 답변 등록 일시 2001-07-04 3:20 pm

      (defun c:EL()

      (graphscr)

      (setvar "cmdecho" 0)

      (setq ip (getreal "1,2,3,4,5,6,7,8,9,0,00,12,13,14,15,16,17,18,19,20,21,23,24,25,26,27,28,29,30,31,32,34,35,36,37, @ Eress하고픈 LAYER 이름이 뭐여 ?:"))

      (if (eq ip 1)(setq ip "l-die"))

      (if (eq ip 2)(setq ip "l-die-dash"))

      (if (eq ip 3)(setq ip "u-die"))

      (if (eq ip 4)(setq ip "u-die-dash"))

      (if (eq ip 5)(setq ip "pad"))

      (if (eq ip 6)(setq ip "pad-dash"))

      (if (eq ip 7)(setq ip "l-steel"))

      (if (eq ip 8)(setq ip "l-steel-dash"))

      (if (eq ip 9)(setq ip "u-steel"))

      (if (eq ip 0)(setq ip "u-steel-dash"))

      (if (eq ip 12)(setq ip "cam"))

      (if (eq ip 13)(setq ip "cam-dash"))

      (if (eq ip 14)(setq ip "cam-unit"))

      (if (eq ip 15)(setq ip "heel"))

      (if (eq ip 16)(setq ip "heel-dash"))

      (if (eq ip 17)(setq ip "post"))

      (if (eq ip 18)(setq ip "post-dash"))

      (if (eq ip 19)(setq ip "part"))

      (if (eq ip 20)(setq ip "part-no"))

      (if (eq ip 21)(setq ip "panel"))

      (if (eq ip 23)(setq ip "panel-view"))

      (if (eq ip 24)(setq ip "sechion"))

      (if (eq ip 25)(setq ip "shion-dash"))

      (if (eq ip 26)(setq ip "auto"))

      (if (eq ip 27)(setq ip "auto-dash"))

      (if (eq ip 28)(setq ip "air"))

      (if (eq ip 29)(setq ip "dim"))

      (if (eq ip 30)(setq ip "dim-h"))

      (if (eq ip 31)(setq ip "center"))

      (if (eq ip 32)(setq ip "core"))

      (if (eq ip 34)(setq ip "std"))

      (if (eq ip 35)(setq ip "std-dash"))

      (if (eq ip 36)(setq ip "std1"))

      (if (eq ip 37)(setq ip "std1-dash"))

      (setq ent (ssget "x" (list (cons 8 ip))))

      (command "ERASE" ent "")

      (princ)

      );defun

      이거 고대로 복사해서 사용하세여… 님께서 올려주신 리습에는 그렇게 킅문제

      는 없는데… ip 13 에서 괄호가 한개빠졌네여..글고 마지막에 "x" 하고여..

      그리고 담부터 이런리습 올려주실때는 sample파일도 같이 올려주세여..

      할때마다 레이어 만들어서 시험할려니…..저도 시간이 쫌 걸리네여..

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

    Sidebar

    질문하기
    공지사항

    • [공지] 고캐드 서비스 약관 변경 사전 공지 건 2022-12-01

    Adv 250x250

    aalan
    인기 커뮤니티 그룹

    그룹

    • 고개발의 연구소

      고개발의 연구소

      • 305보기 | 13 유저 | 15게시물
    • 고서치의 인터넷검색기행

      고서치의 인터넷검색기행

      • 228보기 | 11 유저 | 12게시물
    • 고이슈의 왓나우

      고이슈의 왓나우

      • 323보기 | 9 유저 | 24게시물
    • 고마켓의 위시리스트

      고마켓의 위시리스트

      • 256보기 | 7 유저 | 6게시물

    Adv 234x60

    aalan
    주간 유저 랭킹

    유저

    sunny80

    sunny80

    • 50 포인트
    Lv.0
    NLIR

    NLIR

    • 50 포인트
    Lv.9
    기남씨

    기남씨

    • 27 포인트
    Lv.3
    penpen07

    penpen07

    • 27 포인트
    Lv.13
    조니1

    조니1

    • 25 포인트
    Lv.1

    Explore

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

    Footer

    Support

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

    Guide

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

    Policy

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

    Contents

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

    넥스트코드 | 사업자등록번호 : 206-30-32067 | 통신판매업신고번호 : 제2013-서울영등포-1112호 | 대표 : 정은숙
    주소 : 서울시 금천구 가산디지털1로 142 416호(더스카이벨리1차) | 이메일 : gocad.manager@gmail.com
    Copyright. 2012-2022 GOCAD All rights reserved