리습수정 부탁드립니다 고수님들...
기타
작성자
실배캐드
작성일
2022-11-10 08:42
조회
1306
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
|
조회 20554
|
gocad | 2022.09.01 | 20554 |
13756 |
나눔고딕체 공유좀 부탁드립니다..
H.H
|
2024.03.20
|
조회 83
|
H.H | 2024.03.20 | 83 |
13755 |
한전 맨홀도
송주현
|
2024.01.15
|
조회 123
|
송주현 | 2024.01.15 | 123 |
13754 |
pump 외형도 부탁드립니다
장동현
|
2024.01.08
|
조회 106
|
장동현 | 2024.01.08 | 106 |
13753 |
XCLIP된 블럭/외부참조 선택하는 리습
유리민
|
2023.11.24
|
조회 200
|
유리민 | 2023.11.24 | 200 |
13752 |
문자 수정시 등호(=) 이후 부터 수정가능한 리습 없을까요?ㅜㅜ
조상흠
|
2023.11.23
|
조회 122
|
조상흠 | 2023.11.23 | 122 |
13751 |
인벤터 알루미늄 프로파일 라이브러리 파일 요청드립니다. (2)
오뚜기진라면
|
2023.11.15
|
조회 206
|
오뚜기진라면 | 2023.11.15 | 206 |
13750 |
[캣츠 가설재] 다운로드 및 소개 자료
CATS_Developer
|
2023.10.25
|
조회 210
|
CATS_Developer | 2023.10.25 | 210 |
13749 |
괄호치수'
케이알
|
2023.10.25
|
조회 121
|
케이알 | 2023.10.25 | 121 |
13748 |
혹시 치수 자동 산출 리습을 만들 수 있을까요? (4)
이기영
|
2023.09.29
|
조회 484
|
이기영 | 2023.09.29 | 484 |
13747 |
두선사이 중심선 리습 수정가능할까요…? 요청리습 (5)
캐드플러스
|
2023.09.19
|
조회 469
|
캐드플러스 | 2023.09.19 | 469 |
13746 |
잔도교 또는 잔도길 관련 단면도면 요청드립니다
보칼리지
|
2023.09.15
|
조회 205
|
보칼리지 | 2023.09.15 | 205 |
13745 |
측량도면 성과심사시 격자에 좌표 넣는 리습 (1)
정원곤
|
2023.09.12
|
조회 278
|
정원곤 | 2023.09.12 | 278 |
13744 |
다중출력(멀티플롯)리습 프로그램 업그레이드 (5)
캐드플러스
|
2023.09.07
|
조회 737
|
캐드플러스 | 2023.09.07 | 737 |
13743 |
zw cad 담장 그려주는 리습 있으신분 계십니까??
한동민
|
2023.08.31
|
조회 300
|
한동민 | 2023.08.31 | 300 |
13742 |
석공사 Shop 일부 구할수 있나요?
작전제1참모
|
2023.07.28
|
조회 337
|
작전제1참모 | 2023.07.28 | 337 |
13741 |
MoeumT 폰트 있으신분 있나요 ㅠ?
미소
|
2023.07.14
|
조회 309
|
미소 | 2023.07.14 | 309 |
13740 |
사각형 여러개를 가로와세로 치수만 나오는 리습 요청드립니다.
이경재
|
2023.07.11
|
조회 373
|
이경재 | 2023.07.11 | 373 |
13739 |
배관관련 캐드소스 부탁드려도될까요.. 기계배관..
porolsy
|
2023.07.11
|
조회 575
|
porolsy | 2023.07.11 | 575 |
13738 |
정화조도면
캐스터
|
2023.07.04
|
조회 382
|
캐스터 | 2023.07.04 | 382 |
13737 |
숫자합계 sum 리습 수정부탁합니다
재간
|
2023.07.03
|
조회 435
|
재간 | 2023.07.03 | 435 |
예전에 제가 수정했던 리습이네요 ㅎㅎ;;
첨부파일 : testtest12.zip
오래전 인데.. 기억하시네요 ㅎㅎ 수정 감사합니다 기존꺼도 잘쓰고 있습니다 감사히 잘쓸게요 ^^