본문 바로가기

전체 글126

리습파일을 로딩하는 방법 리습파일 로딩하는 방법(*.lsp *.fas %.vlx 등) 로딩목차에 포함하여 시작할때 마다 자동으로 로딩시는 방법= 1. 커멘드 라인에 appload 명령어를 입력합니다.Command: appload [엔터] 2. 아래의 대화창에서 Contents...버턴을 클릭 3. Add... 버턴을 클릭 하여 로딩할 파일을 추가하여 주세요 4. 로딩할 파일이 추가 되었으면 Close 버턴을 이용하여 종료하시면 됩니다. 캐드실행시 매번 로딩되는 것을 확인하실수 있습니다. 2015. 4. 14.
티스토리에서 소스코드 이쁘게 꾸미기 1. Syntax Highlighter Download http://alexgorbatchev.com/SyntaxHighlighter/ 클릭 좌측의 download 클릭 앞부분의 Click here to download 글자를 클릭하면 syntaxhighlighter_최신버젼.zip 이 다운로드 됩니다.첨부된 파일을 다운받으셔도 됩니다. 2. 파일의 업로드 Tistory 관리자 페이지에서 꾸미기 / HTML/CSS 편집 / 파일업로드 클릭하여 하단의 추가버턴을 클릭합니다. shCore.js shCore.css, shThemeDefault.css 파일은 반드시 포한되어야 하는 파일이며 사용하는 언어만 추가 하여도 됩니다. 용량에 크게 문제가 없으므로 다운받은 파일의 scripts폴더의 *.js 파일과 st.. 2014. 12. 29.
전체퍼지-3번반복 (defun c:AllPurge ;; PU; 파일의 모든객체 Purge 리습 ( / AcDoc) (vl-load-com) (setvar "cmdecho" 0) (setq AcDoc (vla-get-ActiveDocument (vlax-get-acad-Object))) (repeat 3 (vla-purgeall AcDoc)) (princ "/n>>Purge all complete") (princ) ) 2014. 12. 29.
선택한 폴리라인 두께입력 ;; ───── Pline - Width 조정 (defun c:PWidth ;; PW; Pline - Width 조정 (/ SelSet WVol ObjList) (setvar "cmdecho" 0) (princ " ^.^; Pline - Width") (setq SelSet (ssget (list (cons 0 "ARC,LINE,LWPOLYLINE")))) (setq WVol (getint "\n>>내용입력: ")) (setq ObjList (vl-remove-if 'listp (mapcar 'cadr (ssnamex SelSet)))) (foreach item ObjList (command "_pedit" item "width" WVol "") ) (princ) ) 2014. 12. 29.