<![CDATA[
<div><p style="margin-left: 4em;"> </p>
<div class="txc-textbox" style="padding: 10px; border: 1px dashed rgb(193, 193, 193); border-image: none; background-color: rgb(238, 238, 238);">
<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;"><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>: 2016</strong></font></p>
<p style="line-height: 2;"><font color="#000000"><strong>③ 운영 체제 : WINDOWS 7</strong></font></p></div>
<p style="margin-left: 4em;"> </p>
<div class="txc-textbox" style="padding: 10px; border: 1px solid rgb(254, 137, 67); border-image: none; background-color: rgb(254, 222, 199);"><strong><font color="#801fbf">④ 질문내용 및 스크린샷(이미지 및동영상)</font></strong>
<p> <strong> </strong><strong> 본카페에 올라온 LISP중 폴더내 캐드파일의 텍스트를 엑셀로 추출하는 LISP관련해서,</strong></p><p><strong>엑셀로 추출했을때, 캐드에서 문자가 없는 공백도 엑셀 쉬트에서 공백으로 한 셀을 차지하게 </strong></p><p><strong>변경할수 있을까요? 아래 LISP 코드는 좌표영역에 문자가 없으면, 엑셀로 변경시, 다음문자를 </strong></p><p><strong>바로 이어서 붙이네요. 아래는 LISP 코드입니다. 상기와 같이 LISP 수정방법 부탁드리겠습니다.</strong></p><p><strong> 아래 첫번째 그림은 첨부 테스트 파일 실행결과인데요. 캐드에서 읽어올 문자좌표에 아무것도 없을경우에는</strong></p><p><strong> 아래 두번째 그림과 같이 엑셀에서 공백으로 표시되게 lisp변경 부탁드리겠습니다. 첨부테스트 파일은 문자</strong></p><p><strong>가 없을경우 그다음 문자를 바로 이어 붙여서 일정하게 정렬이 되지 않네요.</strong></p><p><strong></strong><br></p><p style="text-align: center;"><img src="https://t1.daumcdn.net/cfile/cafe/994696385AE7EBCC0F" class="txc-image" width="494" style="clear: none; float: none;" border="0" vspace="1" hspace="1" actualwidth="494" exif="{}" data-filename="EX.jpg" id="A_994696385AE7EBCC0FFE06"/></p><p style="text-align: center;"><br></p><p style="text-align: center;"><img src="https://t1.daumcdn.net/cfile/cafe/995080385AE7ECA212" class="txc-image" width="547" style="clear: none; float: none;" border="0" vspace="1" hspace="1" actualwidth="547" exif="{}" data-filename="캡처.PNG" id="A_995080385AE7ECA212641D"/></p><p style="text-align: center;"><p>;;;----------------------------------------------------------------------------;</p><p><br></p><p>;; 폴더 내의 파일안에 있는 일정 영역 속의 글자를 읽어서 엑셀로 보내기</p><p>;; 원작자 : 모름</p><p>;; 수정 : 2016-03-20, 이자더, 도면명이 앞으로 오도록 문자 정렬방식 수정</p><p>;;;----------------------------------------------------------------------------;</p><p>(defun c:xx ( / cdwgfilelist cdwglist cfolder col ctr ds dwgfile filter_code</p><p> filter_value horp index lst newsset obj odocument odocuments</p><p> olst opendwglist row ssets str tlst txlst</p><p> ;;;지역함수</p><p> browseforfolder</p><p> init-excel</p><p> write-row-column</p><p> )</p><p>;;;----------------------------------------------------------------------------;</p><p> (defun BrowseforFolder (msg flag folder / oShell oFolder cFolder)</p><p> (setq oShell</p><p> (vla-getinterfaceobject</p><p> (vlax-get-acad-object)</p><p> "Shell.Application"</p><p> )</p><p> )</p><p> (if (setq oFolder</p><p> (vlax-invoke-method</p><p> oShell</p><p> 'browseforfolder</p><p> 0</p><p> msg</p><p> flag</p><p> folder</p><p> )</p><p> )</p><p> (setq cFolder (vlax-get (vlax-get oFolder "self") "path"))</p><p> )</p><p> (vlax-release-object oShell)</p><p> cFolder</p><p> )</p><p>;;;----------------------------------------------------------------------------;</p><p> (defun init-excel (/ excel-app wb-collection workbook sheets sheet1)</p><p> (setq excel-app (vlax-get-or-create-object "excel.application")</p><p> wb-collection (vlax-get excel-app "workbooks")</p><p> workbook (vlax-invoke-method wb-collection "add")</p><p> sheets (vlax-get workbook "sheets")</p><p> sheet1 (vlax-get-property sheets "item" 1)</p><p> *excel-cells* (vlax-get sheet1 "cells")</p><p> )</p><p> (vlax-put excel-app "visible" 1)</p><p> )</p><p>;;;----------------------------------------------------------------------------;</p><p> (defun write-row-column (row col x)</p><p> (vlax-put-property</p><p> *excel-cells*</p><p> "item"</p><p> row</p><p> col</p><p> (vl-princ-to-string x)</p><p> )</p><p> )</p><p>;;;----------------------------------------------------------------------------;</p><p> (vl-load-com)</p><p> (if (setq cFolder</p><p> (BrowseforFolder "도면이 들어있는 폴더를 선택하세요..."</p><p> (+ 256 512)</p><p> oldfolder</p><p> )</p><p> )</p><p> (progn</p><p> (setq cDwgList (vl-directory-files cFolder "*.dwg"))</p><p> (if (/= (substr cFolder (strlen cFolder)) "\\")</p><p> (setq cDwgFileList</p><p> (mapcar '(lambda (x) (strcat cFolder "\\" x))</p><p> cDwgList</p><p> )</p><p> )</p><p> (setq cDwgFileList</p><p> (mapcar '(lambda (x) (strcat cFolder x))</p><p> cDwgList</p><p> )</p><p> )</p><p> )</p><p> (setq oDocuments (vla-get-documents (vlax-get-acad-object))</p><p> openDwgList nil</p><p> )</p><p> (vlax-for TmpDwg oDocuments</p><p> (setq openDwgList (cons (vla-get-name TmpDwg) openDwgList))</p><p> )</p><p> (setq Index 0)</p><p> (repeat (length cDwgFileList)</p><p> (setq DwgFile (nth Index cDwgFileList)</p><p> oDocument (vla-open oDocuments DwgFile)</p><p> ds (vlax-variant-value (vla-getvariable oDocument "DimScale"))</p><p> ssets nil</p><p> ssets (vla-get-selectionsets oDocument)</p><p> newsset (vla-add ssets "ss1")</p><p> filter_code (vlax-make-safearray vlax-vbinteger '(0 . 0))</p><p> filter_value (vlax-make-safearray vlax-vbvariant '(0 . 0))</p><p> )</p><p> (vlax-safearray-fill filter_code '(0))</p><p> (vlax-safearray-fill filter_value '("TEXT"))</p><p> (vla-select</p><p> newsset</p><p> acSelectionSetAll</p><p> nil</p><p> nil</p><p> filter_code</p><p> filter_value</p><p> )</p><p> (setq ctr 0</p><p> olst '()</p><p> )</p><p> (repeat (vla-get-count newsset)</p><p> (setq obj (vla-item newsset ctr)</p><p> olst (append olst (list obj))</p><p> ctr (1+ ctr)</p><p> )</p><p> )</p><p> (setq olst</p><p> (vl-remove-if-not</p><p> '(lambda (x / str pnt)</p><p> (setq str (vlax-get x 'textString)</p><p> pnt (vlax-get x 'InsertionPoint)</p><p> )</p><p> (if</p><p> (or</p><p> (and</p><p> (/= str "")</p><p> (< (* ds 270)(car pnt)(* ds 410))</p><p> (< (* ds 277.4)(cadr pnt)(* ds 282.2))</p><p> )</p><p> (and</p><p> (/= str "")</p><p> (< (* ds 354)(car pnt)(* ds 410))</p><p> (< (* ds 10)(cadr pnt)(* ds 19.6))</p><p> )</p><p> )</p><p> (setq lst (append lst (list str)))</p><p> )</p><p> )</p><p> olst</p><p> )</p><p> )</p><p> (setq tlst</p><p> (vl-sort olst</p><p> '(lambda (a b)</p><p> (if</p><p> (equal</p><p> (cadr (vlax-get a 'InsertionPoint))</p><p> (cadr (vlax-get b 'InsertionPoint))</p><p> (* ds 1.)</p><p> )</p><p> (< (car (vlax-get a 'InsertionPoint))</p><p> (car (vlax-get b 'InsertionPoint))</p><p> )</p><p> (< (cadr (vlax-get a 'InsertionPoint))</p><p> (cadr (vlax-get b 'InsertionPoint))</p><p> )</p><p> )</p><p> )</p><p> )</p><p> )</p><p> (setq lst '())</p><p> (foreach x tlst</p><p> (setq str (vlax-get x 'textString)</p><p> lst (append lst (list str))</p><p> )</p><p> )</p><p> (setq txlst (append txlst lst))</p><p> (vla-close oDocument)</p><p> (setq Index (1+ Index)</p><p> horp nil</p><p> )</p><p> )</p><p> (init-excel)</p><p> (setq row 1</p><p> col 1</p><p> )</p><p> (foreach txt txlst</p><p> (write-row-column row col txt)</p><p> (if (= 7 col);;; 몇개 입력 후 아랫줄로 변경할 것인가</p><p> (progn</p><p> (setq row (1+ row)</p><p> col 1</p><p> )</p><p> )</p><p> (setq col (1+ col))</p><p> )</p><p> )</p><p> )</p><p> )</p><p> (princ)</p><p>)<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="padding: 10px; border: 1px dashed rgb(121, 165, 228); border-image: none; background-color: rgb(219, 232, 251);">
<p><strong><font color="#3058d2"><font color="#801fbf">⑤ 파일첨부 (LISP/DWG) - DWG 첨부시 보다 정확한 답변을 얻을수 있습니다.</font></font></strong></p><p><strong><font color="#801fbf"><br></font></strong></p><p><strong><font color="#801fbf"><br></font></strong></p><p><a href="javascript:checkVirus('grpid%3Dn4jE%26fldid%3DESJj%26dataid%3D21772%26fileid%3D3%26regdt%3D20180427184714')"><img src="https://t1.daumcdn.net/daumtop_deco/icon/icon.hanmail.net/editor/p_etc_s.gif" border="0" alt="첨부파일" class="vam"/> test.zip</a></p><p><strong><font color="#801fbf"><br></font></strong></p><p><a href="javascript:checkVirus('grpid%3Dn4jE%26fldid%3DESJj%26dataid%3D21772%26fileid%3D4%26regdt%3D20180427184714')"><img src="https://t1.daumcdn.net/daumtop_deco/icon/icon.hanmail.net/editor/p_etc_s.gif" border="0" alt="첨부파일" class="vam"/> xx(폴더 내 도면 text to excel).lsp</a></p><p><strong><font color="#801fbf"><br></font></strong></p>
<p> </p>
<p> </p></div>
<p> </p>
<p style="margin-left: 4em;"> </p>
<div class="txc-textbox" style="padding: 10px; border: 1px dashed rgb(254, 137, 67); border-image: none; background-color: rgb(254, 222, 199);"><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;"><strong> <span style="color: rgb(0, 85, 255);">금지어</span></strong>(만들어주세요? 해주세요? 안되는데 이렇게 변경해주세요? 등등)</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 width="385" class="txc-image" id="A_11078E0E499FCBCA8095FD" style="clear: none; float: none;" src="https://t1.daumcdn.net/cfile/cafe/11078E0E499FCBCA80" border="0" vspace="1" hspace="1" actualwidth="385" id="A_11078E0E499FCBCA8095FD"/></p>
<p> </p></div><p><br></p>
<!-- -->]]>
카페 게시글
검색이 허용된 게시물입니다.
다음검색
첫댓글 이런 글은 5번 (보라색) 부분에 첨부 파일로 올려주시는게 좋습니다 (이유는 1. 드래그 복사중 정상파일이 오류파일로 변하기도 합니다 2. 드래그 복사 하면 글 간격이 벌어져 가독성이 떨어집니다 )
혹시 MrLISP 가입 되어 계시면
http://cafe.daum.net/notcolor/5TOt/25
위 게시글에 소개 된 리습이랑 궁합이 좋습니다.
답변 감사드립니다. 테스트 파일을 올렸으며, 좀더 자세하게 설명도 붙였습니다.
이제 막 시작한 초보라 삽집중인데, 아직 해결을 못했네요. 아시는 선배님분들 lisp 수정 부탁드리겠습니다.
혹시 해결하셨나요?? 저도 지금 몇일째;; 머리 싸매고 있습니다.