리습수정 부탁드립니다 고수님들...
기타
작성자
실배캐드
작성일
2022-11-10 08:42
조회
1305
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)
)
기타
번호 | 제목 | 작성자 | 작성일 | 조회 |
133 |
Cad 3D 관련 명령어 문의 (1)
young100
|
2022.12.22
|
조회 863
|
young100 | 2022.12.22 | 863 |
132 |
레이어 관련 리습 좀 도와주세요 ㅠㅠ. (1)
손상훈
|
2022.11.23
|
조회 811
|
손상훈 | 2022.11.23 | 811 |
131 |
리습수정 부탁드립니다 고수님들... (2)
실배캐드
|
2022.11.10
|
조회 1305
|
실배캐드 | 2022.11.10 | 1305 |
130 |
ghs.shx, ghd.shx 폰트 입니다. (3)
개발새발~go
|
2022.10.02
|
조회 2291
|
개발새발~go | 2022.10.02 | 2291 |
129 |
오토캐드 버전 정리표 (2)
백발도인
|
2020.10.03
|
조회 1142
|
백발도인 | 2020.10.03 | 1142 |
128 |
통영시 지형도 공유
한재벌
|
2020.08.25
|
조회 628
|
한재벌 | 2020.08.25 | 628 |
127 |
idwg Tap32 (1)
아산사람
|
2020.02.17
|
조회 803
|
아산사람 | 2020.02.17 | 803 |
126 |
사찰도면 (1)
와룡산
|
2020.01.16
|
조회 844
|
와룡산 | 2020.01.16 | 844 |
125 |
캐비넷 도면 요청 드립니다.
궤도이탈
|
2019.12.25
|
조회 449
|
궤도이탈 | 2019.12.25 | 449 |
124 |
캐디안이 2019, 11,07일 CADian2020_4.0.29 으로 업그레이드 되었습니다.
백발도인
|
2019.11.13
|
조회 471
|
백발도인 | 2019.11.13 | 471 |
123 |
건잘알 형님들 도와주세요 ㅠㅠ
강북도복순
|
2019.03.22
|
조회 417
|
강북도복순 | 2019.03.22 | 417 |
122 |
컴퓨터 64비트XP 오류
어게인
|
2018.09.06
|
조회 408
|
어게인 | 2018.09.06 | 408 |
121 |
사무실 가구 도면 부탁드립니다.
경력단절
|
2018.05.21
|
조회 536
|
경력단절 | 2018.05.21 | 536 |
120 |
물올림탱크 부착된 소화펌프 설치상세도 구할수있을까요..?
jjkk45
|
2018.01.02
|
조회 453
|
jjkk45 | 2018.01.02 | 453 |
119 |
제주시 항측도 구합니다. (1)
한결같은우기
|
2016.07.07
|
조회 325
|
한결같은우기 | 2016.07.07 | 325 |
118 |
제주시 지적도 구합니다. (1)
나우써니
|
2016.05.25
|
조회 404
|
나우써니 | 2016.05.25 | 404 |
117 |
캐드 아르바이트
인천아저씨
|
2015.09.04
|
조회 522
|
인천아저씨 | 2015.09.04 | 522 |
116 |
캐드 로프로만든 안전 난간 도면 필요합니다..
한장비
|
2015.04.22
|
조회 364
|
한장비 | 2015.04.22 | 364 |
115 |
전개도 작업 많이 하시는분들 이싸이트에 가보세요. (1)
백발도인
|
2014.06.25
|
조회 911
|
백발도인 | 2014.06.25 | 911 |
114 |
오토캐드 자동저장 관련 문의드립니다. (1)
참 도라지
|
2014.06.13
|
조회 266
|
참 도라지 | 2014.06.13 | 266 |
예전에 제가 수정했던 리습이네요 ㅎㅎ;;
첨부파일 : testtest12.zip
오래전 인데.. 기억하시네요 ㅎㅎ 수정 감사합니다 기존꺼도 잘쓰고 있습니다 감사히 잘쓸게요 ^^