<![CDATA[
<div><p style="MARGIN-LEFT: 4em"> </p>
<div style="BORDER-BOTTOM: #c1c1c1 1px dashed; BORDER-LEFT: #c1c1c1 1px dashed; PADDING-BOTTOM: 10px; BACKGROUND-COLOR: #eeeeee; PADDING-LEFT: 10px; PADDING-RIGHT: 10px; BORDER-TOP: #c1c1c1 1px dashed; BORDER-RIGHT: #c1c1c1 1px dashed; PADDING-TOP: 10px" class="txc-textbox">
<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></font></p><font color="#000000">
<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>:2010</strong></font></p>
<p style="LINE-HEIGHT: 2"><font color="#000000"><strong>③ 운영 체제 :win 7</strong></font></p></div>
<p style="MARGIN-LEFT: 4em"> </p>
<div style="BORDER-BOTTOM: #fe8943 1px solid; BORDER-LEFT: #fe8943 1px solid; PADDING-BOTTOM: 10px; BACKGROUND-COLOR: #fedec7; PADDING-LEFT: 10px; PADDING-RIGHT: 10px; BORDER-TOP: #fe8943 1px solid; BORDER-RIGHT: #fe8943 1px solid; PADDING-TOP: 10px" class="txc-textbox"><strong><font color="#801fbf">④ 질문내용 및 스크린샷(이미지 및동영상)</font></strong>
<p> (defun c:lta1 (/ dsc ss n k en ltlist dsc1 ltn_h ltn_c )</p><p><span class="Apple-tab-span" style="white-space:pre"> </span>(setvar "cmdecho" 0)</p><p><span class="Apple-tab-span" style="white-space:pre"> </span>(setq dsc (getvar "dimscale"))</p><p><span class="Apple-tab-span" style="white-space:pre"> </span>(setq ss (ssget (list (cons 0 "line,lwpolyline,circle"))))</p><p><span class="Apple-tab-span" style="white-space:pre"> </span>(setq k 0)</p><p> (setq n (sslength ss)) </p><p> (repeat n </p><p> (setq en (ssname ss k)) </p><p> (setq ltlist (entget en))</p><p> (setq k (1 + k))</p><p> )</p><p><span class="Apple-tab-span" style="font-size: 10pt; line-height: 1.6; white-space: pre;"> </span><span style="font-size: 10pt; line-height: 1.6;">(setq </span><br></p><p><span class="Apple-tab-span" style="white-space:pre"> </span>ltn_h (ssget ltlist (list (cons 6 "HIDDEN")))</p><p><span class="Apple-tab-span" style="white-space:pre"> </span>ltn_c (ssget ltlist (list (cons 6 "CENTER")))</p><p><span class="Apple-tab-span" style="white-space:pre"> </span>)</p><p><span class="Apple-tab-span" style="white-space:pre"> </span>(if ltn_h </p><p><span class="Apple-tab-span" style="white-space:pre"> </span>(progn </p><p><span class="Apple-tab-span" style="white-space:pre"> </span>(setq dsc1 (* dsc 0.5))</p><p><span class="Apple-tab-span" style="white-space:pre"> </span>(command "change" ltn_h "" "p" "lt" "HIDDEN" "s" dsc1 "")</p><p><span class="Apple-tab-span" style="white-space:pre"> </span>)</p><p><span class="Apple-tab-span" style="white-space:pre"> </span>)</p><p><span class="Apple-tab-span" style="white-space:pre"> </span>(if ltn_c </p><p><span class="Apple-tab-span" style="white-space:pre"> </span>(progn</p><p><span class="Apple-tab-span" style="white-space:pre"> </span>(command "change" ltn_c "" "p" "lt" "CENTER" "s" dsc "")</p><p><span class="Apple-tab-span" style="white-space:pre"> </span>)</p><p><span class="Apple-tab-span" style="white-space:pre"> </span>)</p><p>(princ)</p><p>)<span class="Apple-tab-span" style="white-space:pre"> </span></p><p><br></p><p>;;; </p><p>실행을 시키면 "error: 잘못된 함수: 1" 라는 문구가 뜹니다.</p><p>원인이 무엇인지 궁금합니다.</p><p><span class="Apple-tab-span" style="white-space:pre"> </span></p><p><strong style="background-color: rgb(219, 232, 251); font-size: 10pt; line-height: 1.6;"><font color="#3058d2"><font color="#801fbf"> (LISP/DWG) - DWG 첨부시 보다 정확한 답변을 얻을수 있습니다.</font></font></strong><br></p></div><div style="BORDER-BOTTOM: #79a5e4 1px dashed; BORDER-LEFT: #79a5e4 1px dashed; PADDING-BOTTOM: 10px; BACKGROUND-COLOR: #dbe8fb; PADDING-LEFT: 10px; PADDING-RIGHT: 10px; BORDER-TOP: #79a5e4 1px dashed; BORDER-RIGHT: #79a5e4 1px dashed; PADDING-TOP: 10px" class="txc-textbox">
<p> </p>
<p> </p></div>
<p> </p>
<p style="MARGIN-LEFT: 4em"> </p>
<div style="BORDER-BOTTOM: #fe8943 1px dashed; BORDER-LEFT: #fe8943 1px dashed; PADDING-BOTTOM: 10px; BACKGROUND-COLOR: #fedec7; PADDING-LEFT: 10px; PADDING-RIGHT: 10px; BORDER-TOP: #fe8943 1px dashed; BORDER-RIGHT: #fe8943 1px dashed; PADDING-TOP: 10px" class="txc-textbox"><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 src="https://t1.daumcdn.net/cfile/cafe/11078E0E499FCBCA80" class="txc-image" actualwidth="385" style="FLOAT: none; CLEAR: none" border="0" hspace="1" vspace="1" width="385" id="A_11078E0E499FCBCA8095FD" id="A_11078E0E499FCBCA8095FD"/></p>
<p> </p></div><p><br></p>
<!-- -->]]>
카페 게시글
검색이 허용된 게시물입니다.
★ CAD/LISP/분과 Q&A
[Lisp]
linetype에 따라 선종류 축척을 만들려고 하는데 에러가 발생합니다.
오늘^^
추천 0
조회 138
14.05.09 11:48
댓글 4
다음검색
첫댓글 (setq k (1 + k)) 이구문에서 발생한 에러입니다.
올바른 표현법
(setq k (1+ k)) 혹은 (setq k (+ 1 k)) 입니다.
1이라는 함수는 없으면 + 함수 1+ 함수를 사용하시면 됩니다.
감사합니다.
말씀하신대로 수정하니 "error: 잘못된 함수: 1" 라는 문구는 안뜹니다만...."error: 인수가 너무 많습니다." 라고 뜹니다..ㅠㅠ 산 넘어 산이네요..
(ssget ltlist (list (cons 6 "HIDDEN")))
ssget 구문이 잘못 되어 있네요 저부분에 ltlist를 넣을수 없어요
ssget 함수를 여기가서 http://cafe.daum.net/archimore/GmRN/54 확인해 보시구요
반복문 부터 문제가 있어보여요
요소속성을 가져오는것만 반복하고 끝나네요?
(repeat n
(setq en (ssname ss k))
(setq ltlist (entget en))
(setq k (1 + k))
)
감사합니다. ssget 구문을 잘못 사용했네요.
http://cafe.daum.net/archimore/GmRN/54 참조해서 해결했습니다.
SOMA님, 초이님 감사합니다.