엔지니어 기술블로그

자동화(FA)

자동화부품요소 (12)

공압/진공기술 (33)

유압기술 (7)

직동시스템 (7)

자동화기술 (17)

자동화기계/설비 (1)

자동공급체결 (0)

프레스금형 (0)

몰드금형 (0)

기계요소/부품

동력전달요소

CAD/2D/3D

공구/툴링

금형/사출

웹/IT

가공/조립/제작

사업/경영/경제

반송/운반/하역

공업규격/단위

제어/계측/센서

재료/열처리

도금/코팅/도장

취미/여행/동호회

마음의양식

유체/분체기술

환경/에너지

로봇기술

설계/제도

현재위치 : HOME > Search

시퀀스링크

시퀀스링크 등록

포스트 검색결과 : 1034

위치핀(Dowel pin) Lisp

cmguy33

(defun c:DPIN (/ D1 pt0 PT1 PT2 PT3 PT4 PT1A PT2A PT3A PT4A r1 R2 os cla) (setq os (getvar "osmode")) (setq cla (getvar "clayer")) (setq pt0 (getpoint "n≫ Pin의 중심점을 선택하세요..

CAD/2D/3D > Auto Lisp

[Lisp]지시선으로 치수넣기(R,Ø)

cmguy33

; 지시선으로 반경(R) 치수기입(defun C:DR (/ cl ormod osmod dims e po rad radtt)(setvar "cmdecho" 0)(setq cl (getvar "clayer"));(setvar "clayer" "0" )(command "dimzin" "8")(setq ORMOD (getvar "..

CAD/2D/3D > Auto Lisp

[Lisp]카운터보어 치수넣기 예제

cmguy33

;카운터보어 치수넣기 예제;수량이 2 이상일 때만 수량 표기(defun c:CBD (/ or os gap ts dsc tad ss ed rad ins dic p1 p2) (defun *error* (msg)(princ "error: ")(princ msg) (setvar "osmode" os) (..

CAD/2D/3D > Auto Lisp

[Lisp] \X를 이용한 치수아래 줄바꿈 문자넣기-2가지

cmguy33

; ' X ' 를 이용한 치수아래 문자 넣기 2가지(defun c:DAT1(/ k ss tex ed x1) (setq k 0) (setq ss (ssget (list (cons 0 "dimension")))) (setq tex (getstring "n텍스트내용:")) (r..

CAD/2D/3D > Auto Lisp

[Lisp]분해된 치수 재구성(그룹화)

cmguy33

제가 만든것은 아닙니다....테스트 해보니 100%완전치는 않네요그래도 아쉬운대로.... ;; 분해된 치수 그룹화 재구성;; 선택은 깨진 치수(보조선,치수선,치수)수를 다 잡은 후 엔터 그리고 기준되..

CAD/2D/3D > Auto Lisp

[Lisp]변경치수 표시하기/복원하기

cmguy33

치수를 변경할때(DE).. 치수의 색상을 변경하여 변경된 치수임을 나타냅니다.복원명령(DU)은 원래의 치수로 되돌리면서 치수의 색상도 복원합니다. ; 변경치수 표시 - 문자 색상변경...(defun C:DE (/..

CAD/2D/3D > Auto Lisp

[Lisp]치수 축척 리습

cmguy33

; 치수 축척 리습;dimlfac 값을 기억 했다가 작업이 끝나면 현재값으로 자동으로 되돌려;번거로움 및 미 복구로 인해 발생하는 오류를 방지.;실행 후 확대 또는 축소된 그림의 비율을 입력.( 그림을 2배 확대했을 ..

CAD/2D/3D > Auto Lisp

[Lisp]공차입력-DIM UPDATE에도 꿋꿋한 공차

cmguy33

Dimtol로 공차를 기입한 후 dim update를 하게 되면공차는 사라지고 치수가 남게 됩니다.아래 리습은 그러한 문제를 해결한 리습입니다.;;DIM UPDATE에도 꿋꿋한 공차;;;*****************************..

CAD/2D/3D > Auto Lisp

[Lisp]거리를 inch(분수)로 변경하는 리습

cmguy33

(defun c:inch (/ ss index ent old0 old1 new1 dist) (setq ss (ssget (list (cons 0 "DIMENSION,*text")))) (if ss (progn &nb..

CAD/2D/3D > Auto Lisp

[Lisp]치수,문자에 괄호넣기&빼기

cmguy33

;;; DIMENSION,TEXT,MTEXT에 괄호가 있으면 제거,없으면 삽입합니다(defun c:gh (/ ss p n n1 n2 n3 n4) (SETVAR "CMDECHO" 0) (setq ss (ssget '((0 . "DIMENSION,TEXT,MTEXT"..

CAD/2D/3D > Auto Lisp

[Lisp] 치수만 찾아서 지우는...

cmguy33

;치수만 찾아서 지우는...(defun c:DSD (/ #a #b #c #index)(setq #a(ssget '((0 . "dimension,leader,mtext"))))(setq #index 0)(repeat (sslength #a)(setq #b(ssname #a #index))(if (eq "LEADER" (strcase(cdr(a..

CAD/2D/3D > Auto Lisp

[Lisp]치수축척 사용시 문자색상 바꾸기

cmguy33

치수축척 시스템 변수 : DIMLFAC (defun C:DF (/ s1 s2 #dz)(setq #dz (getvar "dimzin")) ;->*error* start (defun *error* (msg)(princ "error: ")(princ msg) (setvar "dimzin" #dz) (princ..

CAD/2D/3D > Auto Lisp

[Lisp]치수값 더해서 문자로 표기

cmguy33

(defun c:dnm(/ lts th ss k sum ed x42) (setq lts (getvar "ltscale")) (setq th (* lts 3)) (setq ss (ssget (list (cons 0 "dimension")))) (setq k 0) (setq sum 0) (repeat (..

CAD/2D/3D > Auto Lisp

[Lisp] 파이(Ø) 자동삽입 선형치수 넣기

cmguy33

(DEFUN C:VHD(/ a b) ;;;선형 지름치수 넣기 ..

CAD/2D/3D > Auto Lisp

[Lisp]인출선(리더선) 직경( Ø),반경( R)치수기입

cmguy33

Circle or Radius dimensioning with leader line ; 직경( Ø)치수기입(defun C:VC (/ cl ormod osmod dims e po rad dia diatt)(setvar "cmdecho" 0)(setq cl (getvar "clay..

CAD/2D/3D > Auto Lisp

[Lisp]수정된 치수찾기

cmguy33

[출처 : 불명];******** CHKDIMS.LSP *********************************; AUTOLISP PROGRAM DESCRIPTION: PLACES INDICATORS OVER DIMENSIONS WITH ; DIMENSION TEXT OVERRIDES & ASSOCIATIVE ..

CAD/2D/3D > Auto Lisp

[Lisp]선택치수 소수점자리수 변경하기

cmguy33

(defun c:dui(/ ss dec @dec) ;명령어-DUI(prompt "n치수를 선택하세요..") (setq @dec (getvar "dimdec")) (setq ss (ssget (list (cons 0 "dimension")))) (setq dec 10) (while (< 9 dec) (setq dec (geti..

CAD/2D/3D > Auto Lisp

[Lisp]치수에 지름(Ø) 기호 넣기 리습-각종 부호넣기

cmguy33

보통은 위 치수처럼 하실려면 DIMPOST 값을 바꾸거나 치수 입력 후 변경을 해야 되지만아래 리습을 이용하면 치수기입 처음 부터 지름부호(Ø)를 가진 치수를 넣으실 수 있습니다.치수 입력후에도 DIMPOST는 변함없..

CAD/2D/3D > Auto Lisp

[Lisp] 카운터보어 치수 자동 넣기

cmguy33

;카운터보어 치수 넣기(defun dtr(a)(* pi (/ a 180.0))) (defun c:AC(/ or os ts dsc tad p1 ss ed p2 rad ins dic d1 tex t1 def_tex);->*error* start ; 에러핸들러 여기서부터 (defun *err..

CAD/2D/3D > Auto Lisp

[Lisp]드릴 구멍 치수쓰기 리습

cmguy33

;드릴 구멍 치수쓰기 리습 명령어:AD(defun c:AD(/ #os #a #b dia k dp n txt ep ep1 ep2 p2 df)(setvar "cmdecho" 0)(setq df (getvar "dimlfac" ))(setq #os (getvar "osmode"))(setvar "osmode" 512)(setq #a (..

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