<![CDATA[
<DIV>
<P style="MARGIN-LEFT: 4em"> </P>
<DIV class=txc-textbox style="BORDER-RIGHT: #c1c1c1 1px dashed; PADDING-RIGHT: 10px; BORDER-TOP: #c1c1c1 1px dashed; PADDING-LEFT: 10px; PADDING-BOTTOM: 10px; BORDER-LEFT: #c1c1c1 1px dashed; PADDING-TOP: 10px; BORDER-BOTTOM: #c1c1c1 1px dashed; BACKGROUND-COLOR: #eeeeee">
<P style="LINE-HEIGHT: 2"><STRONG>
<IMG class=txc-emo src="https://t1.daumcdn.net/daumtop_deco/icon/deco.hanmail.net/contents/emoticon/things_11.gif" border=0>성심 성의껏 질문을 작성하여 주세요, 대충하시면 답변도 대충작성합니다.^^</STRONG></P>
<P style="LINE-HEIGHT: 2"><STRONG> </STRONG></P>
<P style="LINE-HEIGHT: 2"><FONT color=#000000><STRONG><FONT color=#e31600> - 제목 작성시 금지어 </FONT></STRONG></P>
<P style="LINE-HEIGHT: 2"><FONT color=#000000><STRONG> 만들어주세요? 해주세요? 안되는데 이렇게 변경해주세요? 등등</STRONG></FONT></P>
<P style="LINE-HEIGHT: 2"><FONT color=#e31600><STRONG>- 특정분과 질문은 제목에 분과삽입 [건축] </STRONG></FONT></P>
<P style="LINE-HEIGHT: 2"><FONT color=#000000><STRONG> 좋은예) [분과]무</STRONG></FONT><STRONG>엇에 대해 문의합니다. /[분과]B로 바꾸는 방법을 알고싶습니다.</STRONG></P>
<P style="LINE-HEIGHT: 2"><STRONG><FONT color=#e31600>- 말머리 필수 </FONT></STRONG></P>
<P style="LINE-HEIGHT: 2"><STRONG></STRONG> </P></FONT>
<P style="LINE-HEIGHT: 2"><FONT color=#000000><STRONG>① CAD 종류<SPAN style="FONT-SIZE: 12pt"> </SPAN>: Autocad</STRONG></FONT></P>
<P style="LINE-HEIGHT: 2"><FONT color=#000000><STRONG>② VERSION<SPAN style="FONT-SIZE: 11pt"> </SPAN>: 2002 버젼 이상</STRONG></FONT></P>
<P style="LINE-HEIGHT: 2"><FONT color=#000000><STRONG>③ 운영 체제 : MS Windows XP 이상</STRONG></FONT></P></DIV>
<P style="MARGIN-LEFT: 4em"> </P>
<DIV class=txc-textbox style="BORDER-RIGHT: #fe8943 1px solid; PADDING-RIGHT: 10px; BORDER-TOP: #fe8943 1px solid; PADDING-LEFT: 10px; PADDING-BOTTOM: 10px; BORDER-LEFT: #fe8943 1px solid; PADDING-TOP: 10px; BORDER-BOTTOM: #fe8943 1px solid; BACKGROUND-COLOR: #fedec7">
<P><STRONG><FONT color=#801fbf>④ 질문내용 및 스크린샷(동영상)</FONT></STRONG> </P>
<P> </P>
<P> </P>
<DIV>
<P><SPAN style="FONT-SIZE: 10pt; COLOR: black; FONT-FAMILY: '맑은 고딕'">첨부한<SPAN> LISP</SPAN>은</SPAN></P></DIV>
<DIV>
<P><SPAN> </SPAN></P></DIV>
<DIV>
<P><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: '맑은 고딕'">캐드에서<SPAN> p2txt </SPAN>명령어 치고 파일이름 설정하고 폴리곤 선택하면</SPAN></P></DIV>
<DIV>
<P><SPAN> </SPAN></P></DIV>
<DIV>
<P><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: '맑은 고딕'">폴리곤의<SPAN> X,Y </SPAN>좌표가<SPAN> txt</SPAN>파일에 저장되는<SPAN> LISP입니다. (참고자료 : PDF)</SPAN></SPAN></P></DIV>
<DIV>
<P><SPAN> </SPAN><SPAN> </SPAN></P></DIV>
<DIV>
<P><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: '맑은 고딕'">그러나 폴리곤이 여러개의 경우<SPAN> </SPAN><SPAN> 좌표한개만 추출되어서 아래와 같이 변경을 하고자 합니다.</SPAN></SPAN><SPAN> </SPAN></P>
<P> </P>
<P><SPAN style="FONT-FAMILY: Dotum">고수 여러분들의 도움을 간절히 원하고 있습니다.</SPAN></P>
<P> </P>
<P> </P></DIV>
<DIV>
<P><SPAN> </SPAN><SPAN> </SPAN></P></DIV>
<DIV>
<P><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: '맑은 고딕'">1. </SPAN><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: '맑은 고딕'">파일이름 저장<SPAN>(</SPAN>저장공간 및 파일명<SPAN> : </SPAN>기존과 동일<SPAN>)</SPAN></SPAN></P></DIV>
<DIV>
<P><SPAN> </SPAN></P></DIV>
<DIV>
<P><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: '맑은 고딕'">2. </SPAN><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: '맑은 고딕'">폴리곤 선택<SPAN> (</SPAN>기존과 동일<SPAN>)</SPAN></SPAN></P></DIV>
<DIV>
<P><SPAN> </SPAN></P></DIV>
<DIV>
<P><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: '맑은 고딕'">3. </SPAN><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: '맑은 고딕'">다른 폴리곤이 더 있는지 메세징<SPAN> (Y/N)</SPAN></SPAN></P></DIV>
<DIV>
<P><SPAN> </SPAN></P></DIV>
<DIV>
<P><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: '맑은 고딕'">4. Y</SPAN><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: '맑은 고딕'">의 경우<SPAN> 2</SPAN>번 항목으로 다시 올라감</SPAN></P></DIV>
<DIV>
<P><SPAN> </SPAN></P></DIV>
<DIV>
<P><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: '맑은 고딕'">5. N</SPAN><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: '맑은 고딕'">의 경우 좌표생성 성공 메세징 띠우고 끝</SPAN></P></DIV>
<DIV>
<P><SPAN> </SPAN></P></DIV>
<DIV>
<P><SPAN> </SPAN></P></DIV>
<DIV>
<P><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: '맑은 고딕'">** </SPAN><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: '맑은 고딕'">생성되는 좌표 파일에는 구분을 짓기 위해 공백으로 표기합니다.</SPAN></P></DIV>
<DIV>
<P><SPAN> </SPAN></P></DIV>
<DIV>
<P><SPAN>2221231234 123123123 <- </SPAN>첫번째 폴리곤</P></DIV>
<DIV>
<P><SPAN>1312313131 123131231</SPAN></P></DIV>
<DIV>
<P><SPAN>1312412343 123123444</SPAN></P></DIV>
<DIV>
<P><SPAN>1312313133 123131231</SPAN></P></DIV>
<DIV>
<P><SPAN> <-</SPAN>공백을 둠</P></DIV>
<DIV>
<P><SPAN>1231231312 123131231 <- </SPAN>두번째 폴리곤</P></DIV>
<DIV>
<P><SPAN>1313131231 123123123</SPAN></P></DIV>
<DIV>
<P><SPAN>4353535335 344343434</SPAN></P></DIV>
<DIV>
<P><SPAN>3434343434 535353535</SPAN></P>
<P><SPAN></SPAN> </P>
<P><SPAN></SPAN> </P>
<P><SPAN>다운로드 안되어서 텍스트로 기입합니다.</SPAN></P>
<P><SPAN></SPAN> </P>
<P><SPAN>아주 간단한 문구로 되어있는듯합니다.</SPAN></P>
<P><SPAN></SPAN> </P>
<P><SPAN></SPAN> </P>
<P><SPAN></SPAN> </P>
<P><SPAN>;Export to Polygon's nodes to Points<BR>(defun C:p2txt (/ ans fd fname)<BR> (setq fname (getfiled "* Set Save text file name *" "" "txt" 1))<BR> (setq fd (open fname "w"))<BR> (setq ps (entsel "* Select a polygon *"))<BR> (setq pl (car ps))<BR> (setq pll (entget pl))<BR> (repeat (setq i (length pll))<BR> (if (= 10 (car (nth (setq i (1- i)) pll)))<BR> (princ (strcat (rtos (cadr (nth i pll)) 2 4) "," (rtos (caddr (nth i pll)) 2 4) "\n") fd)<BR> ) ;if End<BR> ) ;repeat End<BR> (close fd)<BR> (princ "\n## Selected Polygon's nodes are successfully exported to points ##\n")<BR> (princ)<BR> )<BR>(princ "\n\t\t***\tType p2txt to export points with selected polygon to text file\t***")<BR>(princ)</SPAN></P></DIV>
<DIV>
<P><SPAN> </SPAN></P></DIV>
<P> </P>
<P> </P>
<P> <STRONG> </STRONG><STRONG> </STRONG></P>
<P> </P>
<P> </P>
<P> </P>
<P> </P>
<P> </P></DIV>
<P style="MARGIN-LEFT: 4em"> </P>
<P> </P>
<DIV class=txc-textbox style="BORDER-RIGHT: #79a5e4 1px dashed; PADDING-RIGHT: 10px; BORDER-TOP: #79a5e4 1px dashed; PADDING-LEFT: 10px; PADDING-BOTTOM: 10px; BORDER-LEFT: #79a5e4 1px dashed; PADDING-TOP: 10px; BORDER-BOTTOM: #79a5e4 1px dashed; BACKGROUND-COLOR: #dbe8fb">
<P><STRONG><FONT color=#3058d2><FONT color=#801fbf>⑤ 파일첨부 (LISP/DWG) - DWG 첨부시 보다 정확한 답변을 얻을수 있습니다.</FONT></FONT></STRONG></P>
<P> </P>
<P><a href="javascript:checkVirus('grpid%3Dn4jE%26fldid%3DESJj%26dataid%3D11250%26fileid%3D1%26regdt%3D20100426155907')"><img src="https://t1.daumcdn.net/daumtop_deco/icon/icon.hanmail.net/editor/p_pdf_s.gif" border="0" alt="첨부파일" class="vam"/> CAD파일좌표추출방법.pdf</a></P>
<P> </P>
<P><a href="javascript:checkVirus('grpid%3Dn4jE%26fldid%3DESJj%26dataid%3D11250%26fileid%3D2%26regdt%3D20100426155907')"><img src="https://t1.daumcdn.net/daumtop_deco/icon/icon.hanmail.net/editor/p_etc_s.gif" border="0" alt="첨부파일" class="vam"/> FConvTxt.lsp</a></P>
<P> </P>
<P> </P></DIV>
<P> </P>
<P style="MARGIN-LEFT: 4em"> </P>
<DIV class=txc-textbox style="BORDER-RIGHT: #fe8943 1px dashed; PADDING-RIGHT: 10px; BORDER-TOP: #fe8943 1px dashed; PADDING-LEFT: 10px; PADDING-BOTTOM: 10px; BORDER-LEFT: #fe8943 1px dashed; PADDING-TOP: 10px; BORDER-BOTTOM: #fe8943 1px dashed; BACKGROUND-COLOR: #fedec7"><FONT color=#000000><SPAN style="FONT-SIZE: 10pt">
<P style="LINE-HEIGHT: 1.8"><STRONG>※ 유의사항</STRONG></P>
<P style="LINE-HEIGHT: 1.8"></P></SPAN></FONT>
<P style="LINE-HEIGHT: 1.8"><FONT color=#000000><SPAN style="FONT-SIZE: 10pt"> - ①<STRONG><FONT color=#3058d2>말머리</FONT> </STRONG>: 말머리를 달아야 구분이 쉽겠죠^^</SPAN></FONT></P>
<P style="LINE-HEIGHT: 1.8"><FONT color=#000000><SPAN style="FONT-SIZE: 10pt"> - ②<STRONG><FONT color=#3058d2>S</FONT></STRONG></SPAN><SPAN style="FONT-SIZE: 10pt"><STRONG><FONT color=#3058d2>creenshot</FONT></STRONG></SPAN><SPAN style="FONT-SIZE: 10pt"> : 이해를 돕기위해 삽입요망.</SPAN></FONT></P>
<P style="LINE-HEIGHT: 1.8"><FONT color=#000000><SPAN style="FONT-SIZE: 10pt"> - ③</SPAN><FONT color=#e31600><SPAN style="FONT-SIZE: 10pt"><FONT color=#3058d2><STRONG>파일 첨부 </STRONG></FONT></SPAN></FONT><FONT color=#000000><SPAN style="FONT-SIZE: 10pt">:</SPAN></FONT><SPAN style="FONT-SIZE: 10pt"><FONT color=#000000> </FONT>상위버전에서 테스트할 파일이 아니면 가급적 </SPAN><FONT color=#3058d2><STRONG><SPAN style="FONT-SIZE: 10pt">하위버전으로 저장후 첨부.</SPAN></STRONG></FONT></FONT></P>
<P style="LINE-HEIGHT: 1.8"><FONT size=+0><FONT color=#000000><SPAN style="FONT-SIZE: 8pt"> </SPAN><SPAN style="FONT-SIZE: 8pt"><SPAN style="FONT-SIZE: 8pt"> </SPAN><SPAN style="FONT-SIZE: 8pt"> </SPAN><STRONG><SPAN style="FONT-SIZE: 10pt"><FONT color=#3058d2>해당리습/해당파일(DWG) 도 같이 첨부</FONT></SPAN></STRONG>하여 주세요.</SPAN></FONT></FONT></P>
<P style="LINE-HEIGHT: 1.8"><FONT color=#000000><SPAN style="FONT-SIZE: 10pt"> - ④</SPAN><FONT color=#e31600><STRONG><SPAN style="FONT-SIZE: 10pt">제</SPAN><SPAN style="FONT-SIZE: 10pt"> </SPAN><SPAN style="FONT-SIZE: 10pt">목 : </SPAN><FONT color=#3058d2><SPAN style="FONT-SIZE: 10pt">질문 내용 반영</SPAN></FONT></STRONG></FONT><SPAN style="FONT-SIZE: 10pt">(개략적인 내용), 예) 해치를 만들고 싶어요, pline을 연결할려면?</SPAN></FONT></P>
<P style="LINE-HEIGHT: 1.8"><FONT color=#000000><SPAN style="FONT-SIZE: 10pt"> - ⑤</SPAN><FONT color=#e31600><STRONG><SPAN style="FONT-SIZE: 10pt">질문글 </SPAN></STRONG></FONT><FONT color=#000000><FONT color=#e31600><STRONG><SPAN style="FONT-SIZE: 10pt">삭제금지</SPAN></STRONG></FONT><SPAN style="FONT-SIZE: 10pt"> : 질문후 </SPAN></FONT></FONT><FONT color=#e31600><STRONG><SPAN style="FONT-SIZE: 10pt">댓글이 달린글은 삭제금지.</SPAN></STRONG></FONT></P>
<P style="LINE-HEIGHT: 1.8"><FONT size=+0><FONT color=#000000><SPAN style="FONT-SIZE: 10pt"> 여러 리플러들이 소중한 시간을 내어서 고민한후 댓글을 작성한 이상 "강력조치" 토록 하겠음.</SPAN></FONT></FONT> </P>
<P style="LINE-HEIGHT: 1.8"> </P>
<P style="LINE-HEIGHT: 1.8">※ 정답만이 댓글은 아닙니다. 그 답이 맞던 틀리던 그건 그 댓글로서 존중되어야 합니다.</P>
<P style="LINE-HEIGHT: 1.8"> 회원님들이 글을 읽었다는것과 댓글을 달았다는건 그만큼 관심을 가지고 있고 또 그 답을 해주기 위해 </P>
<P style="LINE-HEIGHT: 1.8"> 검색도 해보고 도움말도 보고 고민도 하는 일련의 과정을 거치면서 나오기 때문이죠.</P>
<P style="LINE-HEIGHT: 1.8"> 이에 대한 고마움과 감사함을 모르는 테러행위(?)는 없었으면 합니다. </P></DIV>
<P> </P>
<P align=center>
<IMG class=tx-daum-image id=A_11078E0E499FCBCA8095FD style="CLEAR: none; FLOAT: none" hspace=1 src="https://t1.daumcdn.net/cfile/cafe/11078E0E499FCBCA80" width=385 vspace=1 border=0 actualwidth="385" id="A_11078E0E499FCBCA8095FD"/></P>
<P> </P></DIV>
<!-- -->]]>
카페 게시글
검색이 허용된 게시물입니다.
다음검색
첫댓글 헉...리습파일 다운이 안되네요.. ㅠㅠ
둘다 안됩니다 저는 ㅡㅡ; 다음 서비스가 문제인듯 ㅎㅎ
그러게요.. ㅠㅠ
텍스트로 기입했습니다.
개념 회원^^ 바로 이겁니다
와우~~완전 멋지세용^^*
리습으로 봐서는 한개의 객체의 좌표를 텍스트화 하는 리습입니다. 복수의 폴리곤이라면 entsel이 아니고 ssget으로 선택해서 객체수많큼 repeat로 반복시키면서 한줄을 삽입 하시면 가능 한겁니다.. 요정도는 고수시라면 쉽게 하실수 있으리라 봅니다.
네.. 제가 원하는게 바로 이건데요. boxsys님께서 올려주신 LISP은 제컴에서 에러가 뜨네요. 최대한 위에 소스를 가지고 간단하게 처리가 안될까요?(물론 노하우와 스킬이 있어야될테지만...ㅠ)
전 항복입니다