비밀번호를 잊으셨나요?

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

계정이 있나요? 로그인

You must login to ask a question.

비밀번호를 잊으셨나요?

아직 계정이 없으신가요? 회원가입 하기

해당 질문을 신고하는 이유를 간단히 입력해주세요.

해당 답변을 신고하는 이유를 간단히 입력해주세요.

해당 유저를 신고하는 이유를 간단히 입력해주세요.

로그인회원가입

고캐드 – 캐드(CAD) 정보의 중심

고캐드 – 캐드(CAD) 정보의 중심 Logo 고캐드 – 캐드(CAD) 정보의 중심 Logo

고캐드 – 캐드(CAD) 정보의 중심 Navigation

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

Mobile menu

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

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

기타
작성자
실배캐드
작성일
2022-11-10 08:42
조회
542
인쇄
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 | 조회 4562
gocad 2022.09.01 4562
13722
chtext 리습 최신버전
꺄오올 | 2023.01.19 | 조회 45
꺄오올 2023.01.19 45
13721
소방용 gs밸브 도면좀 구할수 있나요
허인규 | 2023.01.18 | 조회 25
허인규 2023.01.18 25
13720
방폭문, 방폭시설 도면 공유 부탁드립니다.
권오탁 | 2023.01.10 | 조회 104
권오탁 2023.01.10 104
13719
hgtxt 폰트 부탁드립니다... (1)
미소 | 2023.01.09 | 조회 118
미소 2023.01.09 118
13718
CATS for SheetMetal (판금 전개 리습) v2.0.3 (2)
CATS_Developer | 2022.12.29 | 조회 176
CATS_Developer 2022.12.29 176
13717
[도달스님 요청자료] HlWin.shx 폰트입니다. (1)
모코코 | 2022.12.27 | 조회 143
모코코 2022.12.27 143
13716
HlWin.shx 폰트 있으신분 없나요? (1)
도달스 | 2022.12.27 | 조회 128
도달스 2022.12.27 128
13715
리습
라곰 | 2022.12.25 | 조회 300
라곰 2022.12.25 300
13714
★풀나무님 요청 자료★ 우유곽 도면입니다 🙂
NLIR | 2022.12.23 | 조회 164
NLIR 2022.12.23 164
13713
Cad 3D 관련 명령어 문의 (1)
young100 | 2022.12.22 | 조회 170
young100 2022.12.22 170
13712
도엽분할 리습부탁드립니다.
바른캐드 | 2022.12.07 | 조회 261
바른캐드 2022.12.07 261
13711
DIM STYLE에 대하여 (1)
민준아빠 | 2022.12.06 | 조회 217
민준아빠 2022.12.06 217
13710
우유각 도면 구합니다 (1)
풀나무 | 2022.12.01 | 조회 186
풀나무 2022.12.01 186
13709
[CATS] 폴더 내의 모든 도면의 폰트 일괄 수정 기능
CATS_Developer | 2022.11.29 | 조회 234
CATS_Developer 2022.11.29 234
13708
CATS Pro ver 1.3.10
CATS_Developer | 2022.11.25 | 조회 307
CATS_Developer 2022.11.25 307
13707
이런 리습도 가능할까요??? (3)
손상훈 | 2022.11.25 | 조회 398
손상훈 2022.11.25 398
13706
🎁 gogogo님께 드리는 고서치의 선물 (1)
고서치 | 2022.11.24 | 조회 293
고서치 2022.11.24 293
13705
레이어 관련 리습 고수님들 도와주세요ㅠㅠ
손상훈 | 2022.11.23 | 조회 155
손상훈 2022.11.23 155
13704
레이어 관련 리습 좀 도와주세요 ㅠㅠ. (1)
손상훈 | 2022.11.23 | 조회 196
손상훈 2022.11.23 196
13703
선택객체 레이어 이름 출력 리습 부탁드립니다.
임채효 | 2022.11.22 | 조회 154
임채효 2022.11.22 154
  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • »
  • 마지막
Powered by KBoard

Sidebar

질문하기
공지사항

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

Adv 250x250

aalan
인기 커뮤니티 그룹

그룹

  • 고개발의 연구소

    고개발의 연구소

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

    고서치의 인터넷검색기행

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

    고이슈의 왓나우

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

    고마켓의 위시리스트

    • 219보기 | 6 유저 | 6게시물

Adv 234x60

aalan
주간 유저 랭킹

유저

NLIR

NLIR

  • 100 포인트
Lv.6
CATS_Developer

CATS_Developer

  • 75 포인트
Lv.14
잡_기계설계

잡_기계설계

  • 52 포인트
Lv.3
수현

수현

  • 52 포인트
Lv.0
ne7942

ne7942

  • 25 포인트
Lv.0

Explore

  • 홈
  • 카테고리
    • 자료요청
    • 일반파일
    • 도면샘플
    • 유틸리티
    • 기타
  • 커뮤니티 그룹

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