엔지니어 기술블로그

자동화(FA)

자동화부품요소 (12)

공압/진공기술 (33)

유압기술 (7)

직동시스템 (7)

자동화기술 (17)

자동화기계/설비 (1)

자동공급체결 (0)

프레스금형 (0)

몰드금형 (0)

기계요소/부품

동력전달요소

CAD/2D/3D

공구/툴링

금형/사출

웹/IT

가공/조립/제작

사업/경영/경제

반송/운반/하역

공업규격/단위

제어/계측/센서

재료/열처리

도금/코팅/도장

취미/여행/동호회

마음의양식

유체/분체기술

환경/에너지

로봇기술

설계/제도

현재위치 : HOME > Search

시퀀스링크

시퀀스링크 등록

포스트 검색결과 : 1034

[S/R] 폴더 찾기 [VL]

cmguy33

[펌글](defun BrowseFolder (/ ShlObj Folder FldObj OutVal) (setq ShlObj (vla-getInterfaceObject (vlax-get-acad-object) "Shell.Application")) (setq Folder (vlax-invoke-method ShlObj 'BrowseF..

CAD/2D/3D > Auto Lisp

[S/R] 문자열 내부의 숫자 더하기

cmguy33

; 소숫점 들어간 것 별 무리없이 됨; 천단위기호 들어간 것 안됨 (defun caltxt (str / ix ix2 ix3 txt0 txtx txt1 txt2 txt4 ) (setq ix 1 txt4 0) (setq n0 (strlen str)) (while (>..

CAD/2D/3D > Auto CAD

날자표기

cmguy33

(defun getdate () (setq Indt (getvar "cdate")) (setq Year (fix (* Indt 0.0001))) (setq Indt (- Indt (* 10000.0 (float Year)))) (setq Year (itoa Year) Mnth (fix (* Indt 0.01)))&nb..

CAD/2D/3D > Auto Lisp

소숫점자리 정리.

cmguy33

;;=======================================================; float = 정수를 실수로 만듬.; fix = 소숫점 모든자리를 버림. ; 소숫점 자리 버림.(defun rounddown (a b / k c) ; a=no. b=d..

CAD/2D/3D > Auto Lisp

Mirror 시 텍스트 자리맞춤 반대로 하기

cmguy33

(defun c:mit(/ ss k ed en jh) (setvar "cmdecho" 0) (prompt "n>>Mirror 시 텍스트 자리맞춤 반대로 하기..") (command "undo" "be") (setq k 0 jh nil) (setq ss (ss..

CAD/2D/3D > Auto Lisp

[S/R]

cmguy33

내가 만든건 아니지만 덧붙이자면...아래루틴은 shell32.dll를 이용한것입니다.(defun BrowseFolder (/ ShlObj Folder FldObj OutVal) (setq ShlObj (vla-getInterfaceObject (vlax-get-acad-object) "Shell...

CAD/2D/3D > Auto Lisp

[S/R] "문자+숫자" 형태를 분리하기 예제

cmguy33

(defun get_front(a / b c k np) (setq b (strlen a)) (setq k 1) (setq c "") (while b (setq d (substr a k 1)) ..

CAD/2D/3D > Auto Lisp

[S/R]에러함수 (변수값 되돌리기,오스냅 되돌리기)

cmguy33

말은 에러함수인데요... 풀어서 정리하면 ^C을 입력받으면 실행하라는 것입니다. 결국 ^C을 입력받으면 실행되는 서브루틴입니다. 제가여러루틴중 액기스만 뽑아서 정리한구문입니다. ;->*error* star..

CAD/2D/3D > Auto Lisp

[S/R]숫자로된 문자의 후행 0을 제거하는 루틴

cmguy33

(defun @del_0 (tx / k tem) (if (= (atof tx) 0) (setq tx "0")) (setq k (vl-string-position (ascii ".") tx)) (setq tem (substr tx (strlen tx) 1)) (if k&nb..

CAD/2D/3D > Auto Lisp

교차점 구하기 루틴

cmguy33

(setq a (ssget));첫번째 객체 선택(setq b (ssget));두번째 객체 선택(setq a1(ssname a 0))(setq b1(ssname b 0))(setq a2(vlax-ename->vla-object a1))(setq b2(vlax-ename->vla-object b1))(setq aaa(vl..

CAD/2D/3D > Auto Lisp

[S/R]오늘 날자표기

cmguy33

오늘 날자표기(defun getdate (/ Indt Year Day Today) (setq Indt (getvar "cdate")) (setq Year (fix (* Indt 0.0001))) (setq Indt (- Indt (* 10000.0 (float Year)))) (setq Year (itoa ..

CAD/2D/3D > Auto Lisp

[S/R]Group Name 알아내는...

cmguy33

Group Name 알아내는...(defun GroupName (ename / key dct rtn) (setq key (cons 340 ename) dct (dictsearch (namedobjdict) "acad_group") ) &nbs..

CAD/2D/3D > Auto Lisp

[S/R]소숫점자리 정리

cmguy33

; float = 정수를 실수로 만듬.; fix = 소숫점 모든자리를 버림. ; 소숫점 자리 버림.(defun rounddown (a b / k c) ; a=no. b=digit (setq k 1) (se..

CAD/2D/3D > Auto Lisp

[S/R}리스트 계산 및 처리 방법들

cmguy33

;예: ('(4 + 3) '(16 + 3).......'(2 + 3))(mapcar '(lambda (x) (+ 3 x)) '(4 16 4 6 14 12 30 2)) ;결과>(7 19 7 9 17 15 33 5);예: 8 + 8 + 8 = 24(setq a 0)(foreach n '(8 8..

CAD/2D/3D > Auto Lisp

[S/R]천단위 콤마 찍기

cmguy33

천단위 콤마찍기 리습에 있는 서브루틴.. ;(setq txt "123456");(setq newtxt (cmo_1 txt));이렇게 해주면... newtext엔....;"123,456" 이렇게 천단위마다 콤마가 찍히게 됩니다. ;콤마찍기 sub routine-------..

CAD/2D/3D > Auto Lisp

각도변환(DTR - RTD)

cmguy33

RTD - Degree To Radian DTR - Radian To Degree1radian=57.29577951 degree 1dgree =0.01745329 radian π(pi)=3.14159265358979 (defun dtr (a) (* pi (/ a 180.0))) ;degree to radian (def..

CAD/2D/3D > Auto Lisp

dxf 코드 연습하기 좋은 리습

cmguy33

출처:아카모아 ;블럭은 찍으면... ;해당 블럭의 정보를...command 상에 표기하는 리습 (defun c:binfo(/ en ed la bn ins sx sy sz ro num) (setq en nil) (while (= en nil) (setq en (c..

CAD/2D/3D > Auto Lisp

[ssget]

cmguy33

기본형식 (ssget ["mode"] [pt1] [pt2] ) 한번에 여러개의 entity를 동시에 선택할수 있습니다..^ !!중요!! pt1 pt2는 mode에서 선택할 수 있는 좌표리스트와 일치해야됩니다. ..

CAD/2D/3D > Auto Lisp

비주얼 리습 함수들...

cmguy33

파일을 다루기 위한 함수 (vl-directory-files [directory pattern directories]) 주어진 디렉토리 내의 파일들의 리스트를 반환한다. (vl-exe-filename) 현재 실행중인 ARX파일의 이름을 확인..

CAD/2D/3D > Auto Lisp

◈ 변환 함수

cmguy33

◈ 변환 함수 AutoLISP에서는 다른 프로그램 언어와는 다르게 변수를 미리 선언하지 않으므로, 변수 타입은 사용자가 저장한 데이터 타입에 의해서 결정되며 변수 타입을 따로 설정하지 않기 때문에 데이터..

CAD/2D/3D > Auto Lisp

31 32 33 34 35 36 37 38 39 40

개인정보 처리방침

상호 : (주)메카피아(서울지점)

대표이사 : 김현주

사업자등록번호 : 119-85-40453

통신판매업신고 : 제 2023-서울종로-1613호
개인정보 보호책임자 : 김현주

사업장소재지 : [03134] 서울특별시 종로구 돈화문로 88-1, 3층
대표전화: 1544-1605

팩스: 02-6008-9111

E-mail : mechapia@mechapia.com