[Auto Lisp / Excel / 기타 건축과 컴퓨터에 관련된 사항]

    1 .. 11  12  13  14  15  16  17    로그인  가입
Auto Lisp으로 만들어진 프로그램의 명령어를 확인하는 방법
이 름 강사  
조 회 3,436
글자크기
명령어를 확인하는 방법은 메모장을 열어서
(defun c:XXXXX


XXXX가 명령어가 됩니다..

▶ 변수 지정방법
(setq 변수명 )
ex)
(setq a 10) (setq b 20)


▶ 사칙연산 방법
(연산자 변수1 변수2..)
(setq c (+ a b))
choijm67
 강사  (2004-07-19 12:18:36 / 211.212.223.40)  
(defun text-first-upcase (strs / newstrs )
(setq newstrs (strcase (substr strs 1 1))
strs (substr strs 2)
)
(while (/= "" strs)
(if (wcmatch (substr strs 1 2) " ?")
(setq newstrs (strcat newstrs (strcase (substr strs 1 2)))
strs (substr strs 3)
)
(setq newstrs (strcat newstrs (strcase (substr strs 1 1) t))
strs (substr strs 2)
)
)
)
newstrs
)

(defun texts-first-upcase ( / ss n t-ent)
(setq ss (ssget '((0 . "text")))
n 0
)
(if ss
(progn
(repeat (sslength ss)
(setq t-ent (entget (ssname ss n)))
(entmod (subst (cons 1 (text-first-upcase (cdr (assoc 1 t-ent)))) (assoc 1 t-ent) t-ent))
(setq n (1+ n))
)
)
)
)

■ 위에 처럼 (defun c:xxxx 형식으로 되어있지 않는경우
Command: (texts-first-upcase) 엔터를 쳐야 하는 경우도 발생한다..

따라서 자신이 직접 명령어를 만들어 수정해서 저장하여 사용할수도 있읍니다..

(defun text-first-upcase (strs / newstrs )
(setq newstrs (strcase (substr strs 1 1))
strs (substr strs 2)
)
(while (/= "" strs)
(if (wcmatch (substr strs 1 2) " ?")
(setq newstrs (strcat newstrs (strcase (substr strs 1 2)))
strs (substr strs 3)
)
(setq newstrs (strcat newstrs (strcase (substr strs 1 1) t))
strs (substr strs 2)
)
)
)
newstrs
)

(defun c:첫글자대문자로 ( / ss n t-ent)
(setq ss (ssget '((0 . "text")))
n 0
)
(if ss
(progn
(repeat (sslength ss)
(setq t-ent (entget (ssname ss n)))
(entmod (subst (cons 1 (text-first-upcase (cdr (assoc 1 t-ent)))) (assoc 1 t-ent) t-ent))
(setq n (1+ n))
)
)
)
)
분류
번호 제목 이름보기
 Auto Lisp으로 만들어진 프로그램의 명령어를 확인하는 방법 +1  강사3436
15  Array-원형배열과나선배열   강사2054
14  Array-선형배열   강사1572
13  Area Shadows Rollout-2   강사1264
12  Area Shadows Rollout-1   강사1414
11  Area Shadows Rollout   강사1341
10  amd   강사1655
9  Ad-Aware.SE.Professional.v1.05   강사1416
8  aa   강사6782
7  3D Exploration /timekill +3  강사1759
6  10진수 100을 16진수 문자열로 변환하는 몇 가지 예입니다.   강사1701
5  # thumbs.db 의 정체와 원리   강사2996
4   엑셀 7강- 수학 & 삼각함수 -2   강사1469
3   엑셀 5강- 날짜 및 시간 -2 와 논리함수   강사1419
2   php 홈페이지를 그대로 옮기기....   강사5128
1   Noise 필터   강사1840
Copyright 1999-2024 Zeroboard / skin by SIRINI

[ 채팅창 크게보기 ] ■ 이곳은 실시간 채팅 창입니다. 자유로운 의견 나누시기 바랍니다.[ 2024-07-22 ] ■