출도 도장 리습 오류 좀 봐주십시오.
(defun $delta_a (%_c %_a)
(sqrt (- (expt %_c 2) (expt %_a 2)))
)
;;---
(defun #ssadd (#ent1 / #ssent)
(setq #ssent (ssadd))
(ssadd #ent1 #ssent)
(while #ent1
(ssadd #ent1 #ssent)
(setq #ent1 (entnext #ent1))
)
#ssent
)
;;---
(defun c:ti ()
(setvar "cmdecho" 0)
(setq $old_textstyle (getvar "TEXTSTYLE"))
(if (= nil (tblsearch "style" "굴림체"))
(COMMAND "STYLE" "굴림체" "굴림체" "0" "0.85" "0" "n" "n")
)
(if (= nil (tblsearch "style" "돋움"))
(COMMAND "STYLE" "돋움" "돋움" "0" "0.85" "0" "n" "n")
)
(if (= nil (tblsearch "block" "time"))
(progn
(command "donut" 26.8 27.2 "0,0" "")
(setq $time_en1 (entlast))
(command "donut" 38.8 39.2 "0,0" "")
(command "line" '(0 13.5) "@6<90" "")
(command "array" (entlast) "" "p" '(0 0) "24" "360" "y")
(command "line" '(0 13.5) "@2<90" "")
(command "rotate" (entlast) "" '(0 0) "3.75")
(setq $ent_1 (entlast))
(command "array" (entlast) "" "p" '(0 0) "3" "7.5" "y")
(command "array" (entlast) (entnext $ent_1) $ent_1 "" "p" '(0 0) "24" "360" "y")
(setq ii 1
ai (- 7.5)
)
(repeat 24
(command "text" "j" "m" '(0 17.5) "2.5" "0" (rtos ii 2 0))
(command "rotate" (entlast) "" '(0 0) ai)
(setq ii (1+ ii)
ai (- ai 15)
)
)
(command "block" "time" '(0 0) (#ssadd $time_en1) "")
)
)
(if (= nil (tblsearch "block" "date"))
(progn
(command "line" (list (- ($delta_a 13.5 4)) 4) (list ($delta_a 13.5 4) 4) "")
(setq $date_en1 (entlast))
(command "line" (list (- ($delta_a 13.5 4)) (- 4)) (list ($delta_a 13.5 4) (- 4)) "")
(command "pline" '(0 6) "w" "2.2" "2.2" "@2.75<90" "w" "4.65" "0" "@2.75<90" "")
(setvar "TEXTSTYLE" "돋움")
; (command "text" "j" "m" '(0 8) "3.1" "0" "출 도")
(command "text" "j" "Fit" '(-7 6.2) '(7 6.2) "3.1" "출 도")
(command "text" "j" "M" '(0 -7.5) "2.5" "0" "(주) E & EC") ;;==>"(주) E & EC"는 업체명이므로 변경 가능
; (command "text" "j" "Fit" '(-10 -7.7) '(10 -7.7) "2.5" "원신기계공업(주)")
(command "block" "date" "0,0" (#ssadd $date_en1) "")
)
)
(C:L0)
(setq #insp (getpoint "nInsert Point : "))
(setq #cd (rtos (getvar "cdate") 2 8)
#cdate (strcat (substr #cd 1 4) "." (substr #cd 5 2) "."
(substr #cd 7 2))
#tih (atoi (substr #cd 10 2))
#tim (atoi (substr #cd 12 2))
#_ang (+ (* 15 (1- #tih)) (* 3.75 (/ #tim 15.0)))
)
(setvar "TEXTSTYLE" "돋움")
(command "text" "J" "M" #insp 4 "0" #cdate)
(command "insert" "time.dwg" #insp 1 1 #_ang)
(command "insert" "date.dwg" #insp 1 1 0)
(setvar "TEXTSTYLE" $old_textstyle)
(princ)
)
(defun c:L0 ()
(command "layer" "m" "0" "")
)
캐드오류 발생하는데 이유를 모르겠습니다.
캐드오류 첨부파일 참고해주세요 ㅠㅠ
번호 | 제목 | 작성자 | 작성일 | 조회 |
공지사항 |
[공지] 글꼴은행 - 캐드 글꼴 442종 압축 파일 NOTICE
gocad
|
2022.09.01
|
조회 20514
|
gocad | 2022.09.01 | 20514 |
13636 |
Scale 자동맞춤 AutoPlot Program_테스트용2.0
JADEs
|
2020.04.09
|
조회 683
|
JADEs | 2020.04.09 | 683 |
13635 |
면적리습 수정 부탁드립니다
용용이용
|
2020.04.08
|
조회 488
|
용용이용 | 2020.04.08 | 488 |
13634 |
욕실의 양변기 샤워기 입면도면 구합니다
솔개99
|
2020.03.16
|
조회 447
|
솔개99 | 2020.03.16 | 447 |
13633 |
idwg Tap32 (1)
아산사람
|
2020.02.17
|
조회 800
|
아산사람 | 2020.02.17 | 800 |
13632 |
DWG trueview2018 재설치가 안되는 이유...
스콜피언
|
2020.02.09
|
조회 469
|
스콜피언 | 2020.02.09 | 469 |
13631 |
PDF파일에서 CAD파일로 변환하는 프로그램 올려주세요...
켄신 신타로
|
2020.02.07
|
조회 822
|
켄신 신타로 | 2020.02.07 | 822 |
13630 |
사찰도면 (1)
와룡산
|
2020.01.16
|
조회 843
|
와룡산 | 2020.01.16 | 843 |
13629 |
idwg 오토캐드2013용 구할수 있을까요??
가이로
|
2019.12.28
|
조회 467
|
가이로 | 2019.12.28 | 467 |
13628 |
캐비넷 도면 요청 드립니다.
궤도이탈
|
2019.12.25
|
조회 449
|
궤도이탈 | 2019.12.25 | 449 |
13627 |
ZWCAD용 캐드플러스 플롯 (멀티플롯)공개용 프로그램
캐드플러스
|
2019.12.12
|
조회 777
|
캐드플러스 | 2019.12.12 | 777 |
13626 |
cad 2012 64bit 다운로드 가능한 곳 알고 싶어요
사랑tow
|
2019.12.03
|
조회 534
|
사랑tow | 2019.12.03 | 534 |
13625 |
캐드플러스 플롯 (멀티플롯)공개용 프로그램
캐드플러스
|
2019.12.01
|
조회 1195
|
캐드플러스 | 2019.12.01 | 1195 |
13624 |
캐디안이 2019, 11,07일 CADian2020_4.0.29 으로 업그레이드 되었습니다.
백발도인
|
2019.11.13
|
조회 471
|
백발도인 | 2019.11.13 | 471 |
13623 |
폰트좀 부탁드립니다.
김대
|
2019.10.16
|
조회 719
|
김대 | 2019.10.16 | 719 |
13622 |
ngsw 폰트 구합니다 (2)
쫑이님
|
2019.10.05
|
조회 1610
|
쫑이님 | 2019.10.05 | 1610 |
13621 |
아키오피스 2007이나 2008 설치파일 있으신분 있으신가요?
ziny3338
|
2019.09.18
|
조회 583
|
ziny3338 | 2019.09.18 | 583 |
13620 |
폰트주실분있나요
미래온
|
2019.09.17
|
조회 526
|
미래온 | 2019.09.17 | 526 |
13619 |
유치원(어린이집) 가구 소스 있으신분 공유좀 해주실수 있나요 (1)
환타쿠
|
2019.09.17
|
조회 895
|
환타쿠 | 2019.09.17 | 895 |
13618 |
캐드 2012쓰는데 덧셈 리습부탁드려요 ㅠㅠ (1)
꿀놈
|
2019.07.30
|
조회 471
|
꿀놈 | 2019.07.30 | 471 |
13617 |
글꼴 모음 부탁드립니다.~~
clon
|
2019.07.15
|
조회 508
|
clon | 2019.07.15 | 508 |