비밀번호를 잊으셨나요?

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

계정이 있나요? 로그인

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 112733
다음
진행 중
Lv.0
등록일: 2020-12-202020-12-20T04:50:43+09:00 2020-12-20T04:50:43+09:00카테고리: AutoCAD & CADian

간단한 리습 수정

뭐하남 님이 예전에 올려주신 리습

(defun c:scc()
(command
“_.scale” 
(ssget) “”
(getpoint “n기준점 지정: “)
“r”
(getdist “n참조 길이 지정: “)
(getdist “n새 길이 지정: “)
)
)
이 있는데 제가 리습을 거의 모르다 보니 작은 수정을 하고 싶은데 모르겠네요
기존 scale 명령에서
 scale > 객체선택 > 기준점지정 > R  > 참조 길이지정 (기준점, 새 지점) > 새 길이 지정 
다 똑같은데 R 입력하고 참조길이지정의 첫 점이 기준점과 같게 요 부분만 수정하고 싶어요
 어떻게 바꾸면 될까요?
또 위에 리습의 경우 “n새 길이 지정” 부분이 일반 scale 명령어처럼 마우스 따라 객체가 변화하는게 아니라 참조 길이지정하고 p누르는것처럼 지정하게 되는데 전 기존 스케일 명령처럼 작동했으면 합니다.
  • 0
  • 6 6 답변
  • 164 조회
공유
  • Facebook

    관련 있는 질문들

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

    6 답변

    • 작성 순
    • 최신 순
    • 공감 순
    1. aalan
    2. 엔씨벤딩 Lv.0
      2020-12-20T11:43:13+09:00답변 등록 답변 등록 일시 2020-12-20 11:43 am

      이걸로 한번 해보세요.
      제가 만들어서 사용중인 건데, 님이 원하는 것과 정확하게 동일한 것 같습니다.
      (defun c:sr(/ ss os point1 point2 scr)  ;;;;;;;;;;;;;;;;  참조에 의한 스케일 변환 
      (defun *error* (msg)  (princ) )
        (prompt “객체 선택..”)
        (setq ss (ssget )
              point1 (getpoint “n참조기준점 – 1 선택 .. “)  
              point2 (getpoint “n참조기준점 – 2 선택 .. “)  
              scr (getreal “n스케일 적용할 참조값(R) 을 입력하세요.”))
        (command “scale” ss “” point1 “r” point1 point2 scr )
      )
      • 0
      • 공유
        공유
        • 공유 Facebook
        • 공유 Twitter
    3. 엔씨벤딩 Lv.0
      2020-12-20T11:51:39+09:00답변 등록 답변 등록 일시 2020-12-20 11:51 am
      그리고 아래에 , 제가 자주 쓰는 스케일 리습 2가지를 추가로 첨부합니다.
      SF :  스케일을 임의로 확대 , (클릭할때마다 계속 조금씩 커짐)
      SG :  스케일을 임의로 축소 , (클릭할때마다 계속 조금씩 작아짐)
      (defun c:sf ( / obje point refs )    ;스케일 임의 확대하기;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;.
      (defun *error* (msg)  (princ) )
      (setq refs 1.1 )   ;; 스케일 확배 비율
        
      (setq obje nil)
      (prompt “n스케일 확대할 객체를 선택하세요.”)
      (setq obje (ssget))
        
            (while (= obje nil)  ;;;선택셋트가 nil이 아닐때까지 반복
              (prompt “n객체가 없습니다.  스케일 확대할 객체를 선택하세요.”)
      (setq obje (ssget))
            )
      (setq point (getpoint “n스케일 확대의 기준점을 선택하세요.  “))
      (command “scale” obje “” point refs )
         (while (= 1 1)
                 (setq point (getpoint “n계속하려면 아무곳이나 클릭하세요.”))
                 (command “scale” obje “” point refs )
         )  ; end of while
        
      (princ)
        );;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
      (defun c:sg( / obje point refs )    ;스케일 임의 축소하기;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
      (defun *error* (msg)  (princ) )
      (setq refs 0.9 )   ;; 스케일 축소 비율
      (setq obje nil)
      (prompt “n스케일 축소할 객체를 선택하세요.”)
      (setq obje (ssget))
        
            (while (= obje nil)  ;;;선택셋트가 nil이 아닐때까지 반복
              (prompt “n객체가 없습니다.  스케일 축소할 객체를 선택하세요.”)
      (setq obje (ssget))
            )
      (setq point (getpoint “n스케일 축소의 기준점을 선택하세요. “))
      (command “scale” obje “” point refs )
        
         (while (< 1 2)
                 (setq point (getpoint “n계속하려면 아무곳이나 클릭하세요.”))
                 (command “scale” obje “” point refs )
         )  ; end of while
        
      (princ)
        );;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
      • 0
      • 공유
        공유
        • 공유 Facebook
        • 공유 Twitter
    4. [Deleted User]
      2020-12-20T14:57:22+09:00답변 등록 답변 등록 일시 2020-12-20 2:57 pm

      정말 감사합니다 제가 원하던 딱 그거였어요. 객체의 변화할 부분 잡고 길이지정해서 바로 변환!

      ㅋㅋㅋㅋ 감사합니다ㅜㅠㅜ 혹시 하나 더 여쭙고 싶은게 있는데 일반 스케일 명령어는 참조R길이 지정하고 나면 마우스 따라서 변화가 보이는데 그건 리습에서 구현이 어려운 기능인가요?
      • 0
      • 공유
        공유
        • 공유 Facebook
        • 공유 Twitter
    5. 엔씨벤딩 Lv.0
      2020-12-20T16:29:51+09:00답변 등록 답변 등록 일시 2020-12-20 4:29 pm

      질문을 정확하게 이해하지 못했습니다.

      질문을 하실때는, 글을 읽는 사람의 입장에서 써주셔야 합니다.
      본인이 쓴 글을 본인만 이해할 수도 있다는 생각을 항상 하셔야합니다.
      구체적으로 어떤 동작을 하는 리습이 필요한지, 어떤 상황에서 왜 그런 리습이 필요한지도 써주시면,
      상황을 이해하는데 많은 도움이 됩니다.
      • 0
      • 공유
        공유
        • 공유 Facebook
        • 공유 Twitter
    6. [Deleted User]
      2020-12-21T01:16:03+09:00답변 등록 답변 등록 일시 2020-12-21 1:16 am

      scale 명령어를 실행해 보면

      scale – 기준점 지정 – R 참조 – 점1, 점2로 길이 지정 – 길이를 늘리고자 하는 값 입력
      인데 여기서 길이 지정하고 다음단계에서 길이를 늘리고자 하는 값 입력 시에
      마우스에 움직임 따라 미리보기로 객체의 형상이 변하는데 이때는 값 입력뿐만 아니라
      그냥 마우스로 찍으면 그렇게 변형되는데 그 부분 구현이 어려운가 하는 겁니다.
      제가 일반적인 스케일 명령에서 불편한건 굵게 표시한 이 부분으로
      scale – 기준점 지정 – R 참조 – 점1, 점2로 길이 지정 – 길이를 늘리고자 하는 값 입력
      알려주신 리습으로 해결이 되지만 스케일 이란게 정확한 값이 아닌 대략적으로 주변을 보면서
      해야 될 경우도 있기에 기본 스케일 명령처럼 길이를 늘리고자 하는 값 입력 시에
      치수 입력뿐만 아니라 미리보기로 보고 마우스 클릭으로 하고 싶은거에요
      • 0
      • 공유
        공유
        • 공유 Facebook
        • 공유 Twitter
    7. 엔씨벤딩 Lv.0
      2020-12-21T23:06:11+09:00답변 등록 답변 등록 일시 2020-12-21 11:06 pm

      미리보기 같은 것을 말씀하시는거 같네요.

      리습으로도 구현이 가능합니다.
      관련자료는 국내자료는 좀 빈약하고, 외국 사이트에는 참고할만한게 많이 있습니다.
      show object on screen – AutoLISP, Visual LISP & DCL – AutoCAD Forums (cadtutor.net)
      • 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