자동화(FA)
자동화부품요소 (12)
공압/진공기술 (33)
유압기술 (7)
직동시스템 (7)
자동화기술 (17)
자동화기계/설비 (1)
자동공급체결 (0)
프레스금형 (0)
몰드금형 (0)
기계요소/부품
동력전달요소
CAD/2D/3D
공구/툴링
금형/사출
웹/IT
가공/조립/제작
사업/경영/경제
반송/운반/하역
공업규격/단위
제어/계측/센서
재료/열처리
도금/코팅/도장
취미/여행/동호회
마음의양식
유체/분체기술
환경/에너지
로봇기술
설계/제도
현재위치 : HOME > Search
시퀀스링크시퀀스링크 등록
포스트 검색결과 : 1034
[Lisp] 탭치수 자동 넣기 리습..하나 더cmguy33
;탭 문자쓰기 리습 명령어:AT (defun c:AT(/ #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(getpoi..
CAD/2D/3D > Auto Lisp
[Lisp] 탭치수 자동 넣기 리습cmguy33
아래 리습을 조금만 바꾸면 C'bore / Drill hole 등 다양하게 응용 가능합니다. ; 탭치수 자동 넣기 리습 명령어:TA(defun c:TA(/ or os ts dsc tad p1 ss ed p2 rad ins dic  d1 tex t1 );->*error*..
CAD/2D/3D > Auto Lisp
[Lisp]X,Y치수기입(dimordinate)cmguy33
캐드 내부명령(dimordinate)을 이용한 것이기 때문에 다순합니다. 기존의 리습으로 된것은 부품의 신축에 따라 치수가 변하지 않아 불편해서리 그래서 내부 명령을 쓰되 원점 설정 기능과 / 원점 되돌리기 기능을..
CAD/2D/3D > Auto Lisp
사선 치수기입(엇갈린 치수 보조선)cmguy33
(defun c:SD(/ os cla)(defun *error* (msg)(princ "error: ")(princ msg)(setvar "osmode" os) (setvar "clayer" cla)(command "ucs" "" "") (princ) ) (prompt "n ≫ 사선으로 대각 치수넣기 ≪")(setq os (ge..
CAD/2D/3D > Auto Lisp
반경, 직경 치수기입cmguy33
Radius & Circle dimensioning with leader line; 반경(R) 치수기입(defun C:VR (/ cl ormod osmod dims e po rad radtt)(setvar "cmdecho" 0)(setq cl (getvar "clayer"))(setvar "clayer" "0" )(command&nbs..
CAD/2D/3D > Auto Lisp
[Lisp]파일 저장하고 닫기, 파일 저장 안 하고 닫기cmguy33
;; 파일 저장하고 닫기(defun c:ysc () (vl-load-com)(command "_.vbastmt" "thisdrawing.close vbtrue"));; 파일 저장 안 하고 닫기(defun c:nsc () (vl-load-com)(command "_.vbastmt" "thisdrawing.close vbfalse..
CAD/2D/3D > Auto Lisp
[Lisp] Lisp내용을 웹페이지(HTML) 형식으로 만드는...cmguy33
;*******************************************************************************************;* Here is a simple lisp routine to convert a lisp file to html in Visual Lisp format   &nb..
CAD/2D/3D > Auto Lisp
[Lisp] Lisp to HTMLcmguy33
[펌]Lisp 파일을 웹페이지(HTML) 형태로 변환해주는...;*******************************************************************************************;* Here is a simple lisp routine to convert a lisp file..
CAD/2D/3D > Auto Lisp
확장자 LSP, FAS, VLX, ARX...cmguy33
lsp 파일은 소스 파일이라고 생각하시면 되고,fas 파일은 lsp 파일을 컴파일한 파일입니다. 그러나 lsp 를 로드하여 사용하든 fas 를 로드하여 사용하든 기능면에서는 아무 차이가 없습니다.vlx(VisualLISP) 는 fa..
CAD/2D/3D > Auto Lisp
Lock걸린 리습명령어 이름 바꾸기cmguy33
리습에 rock이 걸려 소스을 편집하여 이름을 바꿀수 없을때 사용하면유용한 방법입니다. ---------------------------------------------------------리습소스가 rock이 걸려있을때에 이름을 바꾸려면...(defun c:..
CAD/2D/3D > Auto Lisp
NC데이타를 읽어 들여서 화면에 Point로 표시함(X,Y,Z값모두 표시..cmguy33
2005년 1월 12일 여니 작성.;; NC데이타를 읽어 들여서 화면에 Point로 표시함(X,Y,Z값모두 표시됨)(defun c:gl()(setq file_name (getstring "File Name: "))(Setq file_n (strcat "a:/" file_name)) (setq op (..
CAD/2D/3D > Auto Lisp
[lLisp] 틀어진 각도의 문자 바로잡기cmguy33
;미세하게 틀어진 문자 0도의 각도로 바로잡는리습(defun c:trt (/ n tw tt ea ent g1 g2 chg)(terpri)(prompt "n<<틀어진 문자 0° 맞추기>>")  (setvar "cmdecho" 0)   (setq tt (ssget (li..
CAD/2D/3D > Auto Lisp
[Lisp]텍스트박스 그리기(문자박스)cmguy33
;텍스트박스그리기;Text BOX(defun c:ttr(/ ssg lay os cnt eli tlay ang tp hei thei wid p1 p2 p3 p4)(defun seterr (s) (setvar "cmdecho" 0) (setvar "osmode" os) (if lay (setvar "clayer" l..
CAD/2D/3D > Auto Lisp
[Lisp]문자와 겹친 라인 자르기cmguy33
;문자에 겹친 라인 자르기;Line Break  @ Text (defun c:tbl(/ ssg os cnt off eli ang tip hei thei wid p1 p2 p3 p4 sp1 sp2 sp3 sp4 enl) (setvar "cmdecho" 0) (command "undo" "be") (setq..
CAD/2D/3D > Auto Lisp
[Lisp]도면 내 폰트 유형을 하나로 만들기(Style merge)cmguy33
;;; 도면 내 폰트 유형을 하나로 만들기(Style merge)(defun c:STMG(/ tag-font loop chg-font loopcont tag-ent) (setvar "cmdecho" 0) (setq tag-font (ssget "x" '((0 . "TEXT,MTEXT,DTEXT"))) &n..
CAD/2D/3D > Auto Lisp
[Lisp] Dtext(text) to Mtextcmguy33
;Dtext,Text to Mtext(defun c:DT2MT () ; (setq ss (ssget "x" '((0 . "text,dtext")))(setq ss (ssget (list (cons 0 "text,dtext")))        num (sslength ss) &n..
CAD/2D/3D > Auto Lisp
[Lisp] 문자 복제하기(Replace)cmguy33
기준문자를 선택한 후 변경대상 문자를 선택하면 변경대상 문자가 기준문자로 바뀜. ;문자 복제하기(Replace)(defun c:TRC(/ te te1 te2 te3 te4 te5 te6 te7 te8 te9 te10 te11) (graphscr) (setvar..
CAD/2D/3D > Auto Lisp
[Lisp] 문자 쓰기 (좌/중앙/우)cmguy33
;;━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━;; 문자 쓰기맟춤  [왼쪽 쓰기 L /가운데 쓰기 M /  오른쪽 쓰기 R];;━━━━━━━━━━━━━━━━━━━━..
CAD/2D/3D > Auto Lisp
[Lisp]문자 바꾸기 (내용/높이/폭/스타일)cmguy33
문자 바꾸기 (내용/높이/폭/스타일);   CHANGE TEXT : Change text entities value, height, w-factor, style.(DEFUN SWAP (KEY TVAL /)      (SETQ TV2 (ASSOC KEY TE)) ..
CAD/2D/3D > Auto Lisp
[Lisp]문자(다중) 회전cmguy33
;    문자을 다중 선택후 주어진 각도만큼 회전시키는 명령어;    삽입점 변경없이 중간(m)점을 기준으로 회전됨;;------ quick text rotate --------------------------------(defun..
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-9111E-mail : mechapia@mechapia.com
Copyright(c)2008 Mechapia Co. All rights reserved.