리습수정 부탁드립니다 고수님들...
기타
작성자
실배캐드
작성일
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)
)
여기에 추가로 남겨진 직선의 센터에 한쪽당 남겨진 길이의 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)
)
전체
번호 | 제목 | 작성자 | 작성일 | 조회 |
공지사항 |
[공지] 글꼴은행 - 캐드 글꼴 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 |
예전에 제가 수정했던 리습이네요 ㅎㅎ;;
첨부파일 : testtest12.zip
오래전 인데.. 기억하시네요 ㅎㅎ 수정 감사합니다 기존꺼도 잘쓰고 있습니다 감사히 잘쓸게요 ^^