비밀번호를 잊으셨나요?

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

계정이 있나요? 로그인

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 111454
다음
Lv.0
등록일: 2019-06-232019-06-23T21:47:21+09:00 2019-06-23T21:47:21+09:00카테고리: AutoCAD & CADian

오프셋 리습



 선, 폴리선 등을 오프셋 후 끝 점을 결합하는 리습입니다.
옹벽 등을 표기할 때 오프셋 후에 양 끝 점에 선을 그려 결합하는 과정을 한번에 해 준다고 해서 사용하려합니다만. 실행이 되지 않습니다


확인 부탁드립니다.

(defun c:OC (/ AT:Offset ent pnt lst)

  ;; Offset selected curve and connect each end (also option to convert to LWPolyline).

  ;; Copyright Alan J. Thompson, 04.29.10

  ;; http://www.theswamp.org/

  

  (vl-load-com)

  (defun AT:Offset (O D P / _pt p1 p2 c D g)

    ;; Offset selected object

    ;; O – Object to offset

    ;; D – Distance to offset object

    ;; P – Point on side of object to offset

    ;; Alan J. Thompson, 09.12.09 / 03.25.10

    (setq _pt (lambda (s)

                (vlax-curve-getPointAtDist O (s (vlax-curve-getDistAtPoint O p1) 0.00001))

              )

    )

    (if (and (setq p1 (vlax-curve-getclosestpointtoprojection O (trans P 1 0) ‘(0 0 1)))

             (or (setq p2 (setq c (_pt +))) (setq p2 (_pt -)))

             (if (minusp (- (* (- (car p2) (car p1)) (- (cadr (trans P 1 0)) (cadr p1)))

                            (* (- (cadr p2) (cadr p1)) (- (car (trans P 1 0)) (car p1)))

                         )

                 )

               (if (vl-position (vla-get-objectname O) ‘(“AcDbLine” “AcDbXline”))

                 (setq D (- (abs D)))

                 (setq D (abs D))

               )

               (if (vl-position (vla-get-objectname O) ‘(“AcDbLine” “AcDbXline”))

                 (setq D (abs D))

                 (setq D (- (abs D)))

               )

             )

             (or c (setq D (- D)))

             (not (vl-catch-all-error-p (setq g (vl-catch-all-apply ‘vla-offset (list O D)))))

        )

      (car (vlax-safearray->list (vlax-variant-value g)))

    )

  )



  (and (minusp (getvar ‘offsetdist)) (setvar ‘offsetdist 1.))

  (cond

    ((and

       (if AT:Entsel

         (setq ent (car (AT:Entsel nil “n선, 폴리선, 호 선택: ” ‘(“L” (0 . “ARC,LINE,LWPOLYLINE”)) nil)))

         (and (setq ent (car (entsel “n선, 폴리선, 호 선택: “)))

              (or (vl-position (cdr (assoc 0 (entget ent))) ‘(“ARC” “LINE” “LWPOLYLINE”))

                  (alert “지원하지 않는 객체!”)

              )

         )

       )

       (not (initget 6))

       (setvar

         ‘offsetdist

         (cond

           ((getdist (strcat “nOffset 거리 지정 또는 <” (rtos (getvar ‘offsetdist)) “>: “)))

           ((getvar ‘offsetdist))

         )

       )

       (setq pnt (getpoint “nOffset 방향 지정: “))

       ((lambda (off)

  • 0
  • 27 조회
공유
  • Facebook

    관련 있는 질문들

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

    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