리습수정 부탁드립니다 고수님들...
기타
작성자
실배캐드
작성일
2022-11-10 08:42
조회
1335
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
|
조회 21962
|
gocad | 2022.09.01 | 21962 |
13698 |
홀이나 탭 xy상대좌표 표로 나오는 리습요청합니다 (4)
버서난사랑
|
2022.11.10
|
조회 2027
|
버서난사랑 | 2022.11.10 | 2027 |
13697 |
리습수정 부탁드립니다 고수님들... (2)
실배캐드
|
2022.11.10
|
조회 1335
|
실배캐드 | 2022.11.10 | 1335 |
13696 |
다중출력(멀티플롯)리습 프로그램 업그레이드
캐드플러스
|
2022.11.09
|
조회 1390
|
캐드플러스 | 2022.11.09 | 1390 |
13695 |
차량별 회전반경 캐드 자료 있을까요?
검은냥이
|
2022.10.26
|
조회 1948
|
검은냥이 | 2022.10.26 | 1948 |
13694 |
다중출력(멀티플롯)리습 프로그램. (8)
캐드플러스
|
2022.10.17
|
조회 6525
|
캐드플러스 | 2022.10.17 | 6525 |
13693 |
DAS35 소개합니다.
시골사람_1
|
2022.10.14
|
조회 1083
|
시골사람_1 | 2022.10.14 | 1083 |
13692 |
gdt.shx 폰트
개발새발~go
|
2022.10.04
|
조회 1310
|
개발새발~go | 2022.10.04 | 1310 |
13691 |
ghs.shx, ghd.shx 폰트 입니다. (3)
개발새발~go
|
2022.10.02
|
조회 2359
|
개발새발~go | 2022.10.02 | 2359 |
13690 |
Z(고도값) 설정 리습이 있을까요??? (3)
0908
|
2022.09.29
|
조회 1239
|
0908 | 2022.09.29 | 1239 |
13689 |
INVENTOR의 threadmodeler 1.2버전 구할 수 있을 까요?
작전
|
2022.09.29
|
조회 1581
|
작전 | 2022.09.29 | 1581 |
13688 |
CATS Pro ver 1.3.3
CATS_Developer
|
2022.09.21
|
조회 2569
|
CATS_Developer | 2022.09.21 | 2569 |
13687 |
CATS for SheetMetal ver 1.2.9 (판금 전개 리습)
CATS_Developer
|
2022.09.21
|
조회 3999
|
CATS_Developer | 2022.09.21 | 3999 |
13686 |
👀 카페 도면 질문 주신 실내건축디자인학생님 보세요 👀
모코코
|
2022.09.19
|
조회 5290
|
모코코 | 2022.09.19 | 5290 |
13685 |
혹시 예전 글꼴은행 폰트 파일 가지고 계신 분 계시면 공유 부탁드립니다ㅠㅠ
모코코
|
2022.09.01
|
조회 4743
|
모코코 | 2022.09.01 | 4743 |
13684 |
pline에 붙어 있는 숫자 텍스트 평균하는 리습좀 부탁드립니다ㅠㅠ
길길기릭
|
2022.05.12
|
조회 2081
|
길길기릭 | 2022.05.12 | 2081 |
13683 |
90년대 준공된 건축물 도면
대학생123
|
2022.04.19
|
조회 2318
|
대학생123 | 2022.04.19 | 2318 |
13682 |
캐드 글꼴 공유 부탁드립니다~
킹카누
|
2022.04.07
|
조회 2076
|
킹카누 | 2022.04.07 | 2076 |
13681 |
아키오피스2008버젼 32비트, 64비트 구할수 없을가요 ㅠㅠ
빠숑
|
2022.04.01
|
조회 618
|
빠숑 | 2022.04.01 | 618 |
13680 |
치과 평면도, 관련소스 얻을수 있을까요?
산타페
|
2022.03.07
|
조회 783
|
산타페 | 2022.03.07 | 783 |
13679 |
고수님들 철골 공장도면 부탁드립니다
맹굴
|
2022.01.26
|
조회 622
|
맹굴 | 2022.01.26 | 622 |
예전에 제가 수정했던 리습이네요 ㅎㅎ;;
첨부파일 : testtest12.zip
오래전 인데.. 기억하시네요 ㅎㅎ 수정 감사합니다 기존꺼도 잘쓰고 있습니다 감사히 잘쓸게요 ^^