리습수정 부탁드립니다 고수님들...
기타
작성자
실배캐드
작성일
2022-11-10 08:42
조회
1318
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
|
조회 21137
|
gocad | 2022.09.01 | 21137 |
13718 |
hgtxt 폰트 부탁드립니다... (1)
미소
|
2023.01.09
|
조회 951
|
미소 | 2023.01.09 | 951 |
13717 |
CATS for SheetMetal (판금 전개 리습) v2.0.3 (2)
CATS_Developer
|
2022.12.29
|
조회 855
|
CATS_Developer | 2022.12.29 | 855 |
13716 |
[도달스님 요청자료] HlWin.shx 폰트입니다. (2)
모코코
|
2022.12.27
|
조회 927
|
모코코 | 2022.12.27 | 927 |
13715 |
HlWin.shx 폰트 있으신분 없나요? (1)
도달스
|
2022.12.27
|
조회 809
|
도달스 | 2022.12.27 | 809 |
13714 |
리습
라곰
|
2022.12.25
|
조회 1590
|
라곰 | 2022.12.25 | 1590 |
13713 |
★풀나무님 요청 자료★ 우유곽 도면입니다 🙂
NLIR
|
2022.12.23
|
조회 977
|
NLIR | 2022.12.23 | 977 |
13712 |
Cad 3D 관련 명령어 문의 (1)
young100
|
2022.12.22
|
조회 888
|
young100 | 2022.12.22 | 888 |
13711 |
도엽분할 리습부탁드립니다.
바른캐드
|
2022.12.07
|
조회 923
|
바른캐드 | 2022.12.07 | 923 |
13710 |
DIM STYLE에 대하여 (1)
민준아빠
|
2022.12.06
|
조회 964
|
민준아빠 | 2022.12.06 | 964 |
13709 |
우유각 도면 구합니다 (1)
풀나무
|
2022.12.01
|
조회 902
|
풀나무 | 2022.12.01 | 902 |
13708 |
[CATS] 폴더 내의 모든 도면의 폰트 일괄 수정 기능
CATS_Developer
|
2022.11.29
|
조회 896
|
CATS_Developer | 2022.11.29 | 896 |
13707 |
CATS Pro ver 1.3.10
CATS_Developer
|
2022.11.25
|
조회 1079
|
CATS_Developer | 2022.11.25 | 1079 |
13706 |
이런 리습도 가능할까요??? (3)
손상훈
|
2022.11.25
|
조회 1270
|
손상훈 | 2022.11.25 | 1270 |
13705 |
🎁 gogogo님께 드리는 고서치의 선물 (1)
고서치
|
2022.11.24
|
조회 1060
|
고서치 | 2022.11.24 | 1060 |
13704 |
레이어 관련 리습 고수님들 도와주세요ㅠㅠ
손상훈
|
2022.11.23
|
조회 644
|
손상훈 | 2022.11.23 | 644 |
13703 |
레이어 관련 리습 좀 도와주세요 ㅠㅠ. (1)
손상훈
|
2022.11.23
|
조회 820
|
손상훈 | 2022.11.23 | 820 |
13702 |
선택객체 레이어 이름 출력 리습 부탁드립니다.
임채효
|
2022.11.22
|
조회 616
|
임채효 | 2022.11.22 | 616 |
13701 |
캐드 도면 일괄 종료해주는리습 없을까요?? - 답글 (1)
캐드플러스
|
2022.11.13
|
조회 863
|
캐드플러스 | 2022.11.13 | 863 |
13700 |
홀 xy상대좌표 리습 수정 부탁드립니다 고수님들
버서난사랑
|
2022.11.12
|
조회 580
|
버서난사랑 | 2022.11.12 | 580 |
13699 |
암롤박스 도면 (1)
용선
|
2022.11.11
|
조회 1057
|
용선 | 2022.11.11 | 1057 |
예전에 제가 수정했던 리습이네요 ㅎㅎ;;
첨부파일 : testtest12.zip
오래전 인데.. 기억하시네요 ㅎㅎ 수정 감사합니다 기존꺼도 잘쓰고 있습니다 감사히 잘쓸게요 ^^