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

Auto Lisp으로 만들어진 프로그램의 명령어를 확인하는 방법
이 름	강사
조 회	3,652
글자크기

명령어를 확인하는 방법은 메모장을 열어서 (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))
)
)
)
)

분류

▣ppt (0)

▣REVIT (2)

▣Vc++ (2)

번호	제목	이름	보기
	Auto Lisp으로 만들어진 프로그램의 명령어를 확인하는 방법 +1	강사	3652
15	Array-원형배열과나선배열	강사	2197
14	Array-선형배열	강사	1716
13	Area Shadows Rollout-2	강사	1402
12	Area Shadows Rollout-1	강사	1560
11	Area Shadows Rollout	강사	1482
10	amd	강사	1828
9	Ad-Aware.SE.Professional.v1.05	강사	1563
8	aa	강사	7045
7	3D Exploration /timekill +3	강사	1904
6	10진수 100을 16진수 문자열로 변환하는 몇 가지 예입니다.	강사	1863
5	# thumbs.db 의 정체와 원리	강사	3190
4	엑셀 7강- 수학 & 삼각함수 -2	강사	1626
3	엑셀 5강- 날짜 및 시간 -2 와 논리함수	강사	1561
2	php 홈페이지를 그대로 옮기기....	강사	8820
1	Noise 필터	강사	2015