비밀번호를 잊으셨나요?

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

계정이 있나요? 로그인

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

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

리습수정 부탁드립니다 고수님들...

기타
작성자
실배캐드
작성일
2022-11-10 08:42
조회
4709
인쇄
cad 파일에 있는것처럼 기존리습은 양쪽으로 끝선을 남기는겁니다

여기에 추가로 남겨진 직선의 센터에 한쪽당 남겨진 길이의 1/3  을 지름으로 가지는 반원이 그려지고 그사이에

선은 잘라져서 없어지는 기능이 추가 됐으면 합니다..  그리고 새로 생기는 반원은 자동으로 노란색이 만들어지면 좋겠습니다

능력자분들 부탁드립니다. (.LSP파일이 첨부가 안되는거같아 코드 적습니다)

(defun c:AA( / sl-mapcar-ens ss)
(defun sl-mapcar-ens (func ss) (mapcar func (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))))
(princ "n선 양끝 남기기")
(and
(setq ss (ssget '((0 . "LINE"))))
(or *dis* (setq *dis* 20))
(setq *dis* (cond ((getdist (strcat "n남길 길이 입력 <" (vl-princ-to-string *dis*) ">:"))) (*dis*)))
(sl-mapcar-ens
'(lambda (en / ent1 len ep ent2 sp)
(setq ent1 (entget en) len (vlax-curve-getdistatparam en (vlax-curve-getendparam en)))
(if (> len *dis*)
(progn
(setq ep (vlax-curve-getpointatdist en *dis*) sp (vlax-curve-getpointatdist en (- len *dis*)))
(setq nen (entmakex (vl-remove '(lambda (-1 5)) (entget en))) ent2 (entget nen))
(entmod (subst (cons 10 sp) (assoc 10 ent1) ent1))
(entmod (subst (cons 11 ep) (assoc 11 ent2) ent2))
)
(princ "n입력한 길이보다 선이 짧습니다.")
)
)
ss
)
)
(princ)
)

 
전체 2

  • 수야12 수야12
    2022-11-11 07:32

    예전에 제가 수정했던 리습이네요 ㅎㅎ;;

    첨부파일 : testtest12.zip


    • 실배캐드 실배캐드
      2022-11-11 12:42

      오래전 인데.. 기억하시네요 ㅎㅎ 수정 감사합니다 기존꺼도 잘쓰고 있습니다 감사히 잘쓸게요 ^^


댓글을 남기려면 로그인하세요.
소셜 로그인
naver kakao google
« 다중출력(멀티플롯)리습 프로그램 업그레이드
홀이나 탭 xy상대좌표 표로 나오는 리습요청합니다 »
목록보기
전체
번호 제목 작성자 작성일 조회
공지사항
[공지] 글꼴은행 - 캐드 글꼴 442종 압축 파일 NOTICE
gocad | 2022.09.01 | 조회 114304
gocad 2022.09.01 114304
13784
font 찿습니다
하얀달빛 | 2025.07.03 | 조회 38
하얀달빛 2025.07.03 38
13783
1000.shx 폰트 찾습니다.
박소영 | 2025.06.25 | 조회 71
박소영 2025.06.25 71
13782
dxf파일 오픈 오류 수정 쫌 부탁드리겠습니다
오또기 | 2025.05.14 | 조회 384
오또기 2025.05.14 384
13781
arcbig03.shx 폰트 요청드립니다
아빠의전설 | 2025.04.23 | 조회 571
아빠의전설 2025.04.23 571
13780
캐드 한글 폰트를 만들었습니다.
준 | 2025.04.10 | 조회 615
준 2025.04.10 615
13779
블록 이름 다 똑같이 맞출 수 있는 리습 있을까요?
이민성 | 2025.04.08 | 조회 520
이민성 2025.04.08 520
13778
갠트리크레인 도면 "급" 구합니다
샤인 | 2025.04.01 | 조회 542
샤인 2025.04.01 542
13777
스크린 골프장 도면을 부탁드립니다!
썐206 | 2025.03.28 | 조회 652
썐206 2025.03.28 652
13776
ISO LISP 또는 프로그램 부탁드립니다.
박기범 | 2025.03.14 | 조회 856
박기범 2025.03.14 856
13775
GSG1 글꼴
오인권 | 2025.03.14 | 조회 840
오인권 2025.03.14 840
13774
아파트 현관 신발장 상세도 부탁드립니다
다큐3일 | 2025.02.13 | 조회 876
다큐3일 2025.02.13 876
13773
굵은돋움체(Takeo) 부탁드립니다.
박기석 | 2025.02.04 | 조회 896
박기석 2025.02.04 896
13772
소방 배관. 피팅. 밸브 도면 모음집 있으시면 주시면 안딜까요? ㅜ.ㅜ
고고고태 | 2025.01.15 | 조회 1160
고고고태 2025.01.15 1160
13771
판금전개 리습 공유
김다래 | 2025.01.10 | 조회 1208
김다래 2025.01.10 1208
13770
CadPlus_Plot ( 멀티플롯 / 일괄출력 / 외부파일 출력) (6)
캐드플러스 | 2024.12.27 | 조회 1428
캐드플러스 2024.12.27 1428
13769
캐드 기초 연습도면 부탁드립니다 (1)
홍보석 | 2024.12.23 | 조회 1249
홍보석 2024.12.23 1249
13768
승마장 도면 구합니다!!
연세찬 | 2024.12.02 | 조회 1020
연세찬 2024.12.02 1020
13767
자동차 등각도면 구합니다
김성훈 | 2024.11.22 | 조회 1033
김성훈 2024.11.22 1033
13766
카페 평면, 단면 등을 구합니다
박민지 | 2024.11.17 | 조회 1032
박민지 2024.11.17 1032
13765
소형창고도면 있으면 부탁드립니다.
풀나무 | 2024.11.16 | 조회 1154
풀나무 2024.11.16 1154
  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • »
  • 마지막
Powered by KBoard

Sidebar

질문하기
공지사항

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

Adv 234x60

aalan

Adv 234x60

aalan

Adv 120x600

aalan

Explore

  • 홈
  • 카테고리
    • 자료요청
    • 일반파일
    • 도면샘플
    • 유틸리티
    • 기타
  • 커뮤니티 그룹
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