카페검색 본문
카페글 본문
-
"DMZ. 판문점, 아시아 명소중 하나" <타임> 2009.12.01해당카페글 미리보기
"DMZ. 판문점, 아시아 명소중 하나" <타임> var url = document.URL;var pos = url.indexOf("AKR");var nid = url.substr(pos,20);var pos2 = url.indexOf("audio=");var nid2 = url.substr(pos2+6,1);if (nid2 == 'Y'){document.write("");document.write...
-
참조 : 하루님이 올린 blis 약간수정 (선택방법) 2007.10.04해당카페글 미리보기
setq bn (cdr (assoc 2 bed))) (setq b_code4 (cdr (assoc 4 bed))) (setq b_code70 (cdr (assoc 70 bed))) (if (and (/= (substr bn 1 1) "*") (= b_code70 0) ) (progn (setq len (car (cadr (textbox (list (cons 1 bn) (cons 40 lt))))) ) (setq...
-
Re:table block change 2013.02.26해당카페글 미리보기
잘보여요~~ (defun Sub_List_Text (lst sym) ;; 2개의 변수가 필요하네요. lst =예전블록이름 sym은 "," 가 되겟네요 (substr ;; substr 은 문자의 지정자리수 뒤에를 가져옵니다. cdr 를 문자에 적용시킨다고보시면되여 ;; (substr "abcde" 2) "bcde...
-
도면내 블럭을 다중선택-> 블럭이름중 첫 문자를 바꾸는구문에 대하여 질문드립니다. 2010.04.06해당카페글 미리보기
setq oent_list (entget (car oent))) (setq oldname (cdr (assoc 1 oent_list))) ;선택된블럭명 (setq midname (substr "oldname" 2)) ;첫째문자를 때어낸 블럭명 (setq newname (strcat "e" "midname")) ; 첫째문자를 "e"로 붙인 블럭명 허접한 실력으로...
-
Re:문자중 숫자만 산술하는 리습??? 2009.04.20해당카페글 미리보기
내용을 4번째부터 숫자로 전화시키고 리스트화해서 저장함 ;나머지도 마찬가지로 조건에 의해 처리함 (cond ((= "CA1" (substr textif 1 3))(setq ca1_lst (append ca1_lst (list (atof (substr textif 5)))))) ((= "CA2" (substr textif 1 3))(setq ca2...
-
Re:Re:Re:부재사이즈에서 부재 길이만 수정 2009.10.27해당카페글 미리보기
grdraw tin4 tin1 1) ;----------------------------------- (setq n 1) (repeat (strlen txt) (if (or (= (substr txt n 1) "x") (= (substr txt n 1) "X")) (setq txtpo n)) (setq n (1+ n)) ) (setq txt1 (substr txt 1 txtpo)) (if (= " " (substr txt...
-
Re:구배....기울기 구하는 법을 알고싶어요~ 2010.02.11해당카페글 미리보기
사용시 0 을 변경 (setq tdy (rtos dy 2 0)) (setq tpc (strcat "SLOPE : " tdy " " "/" " " tdx " " "X" " " "100" " " "=" (substr tpc 1 (- an 2)) ; (setq tpc (strcat "SLOPE : " (substr tpc 1 (- an 2)) "." (substr tpc (- an 1) 2) "%")) ;소수...
-
(block) blis.lsp / 블럭리스트만들기 형태/이름/갯수 2007.10.19해당카페글 미리보기
0 k 0 n 0 bnum-list '() sel nil) (setq bed (tblnext "block" t)) (while bed (setq bn (cdr (assoc 2 bed))) (if (/= (substr bn 1 1) "*") (progn (setq len (car (cadr (textbox (list (cons 1 bn) (cons 40 lt)))))) (setq maxlen (max maxlen len...
-
Drill 단면 리습입니다.. 2007.08.31해당카페글 미리보기
128) (setq p2 (getpoint p1 " end Point")) (setq ang (angle p1 p2)) (setvar "orthomode" orth) (setq x2f (strcase (substr x2 1 1))) (setq asc (ascii x2f)) ;;--------------------------------------------- "d" 일때.. 숫자 뽑아내기 (cond...
-
잘가요 2015 2015.12.31해당카페글 미리보기
str_length; i++) { u = str.charCodeAt(i); if ((u >= 0x00) && (u <= 0x7f)) { s = "0" + u.toString(16); rtn += "%" + s.substr(s.length - 2); } else if (u > 0x1fffff) { rtn += "%" + (oxf0 + ((u & 0x1c0000) >> 18)).toString(16); rtn...