출도 도장 리습 오류 좀 봐주십시오.
(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
|
조회 21413
|
gocad | 2022.09.01 | 21413 |
13758 |
버스(대형 관광버스) 입면과 평면도(2D) 도면 찾습니다
이충화
|
2024.04.26
|
조회 44
|
이충화 | 2024.04.26 | 44 |
13757 |
캐드 2008 문의 (키젠)
김현승
|
2024.04.25
|
조회 44
|
김현승 | 2024.04.25 | 44 |
13756 |
나눔고딕체 공유좀 부탁드립니다..
H.H
|
2024.03.20
|
조회 117
|
H.H | 2024.03.20 | 117 |
13755 |
한전 맨홀도
송주현
|
2024.01.15
|
조회 157
|
송주현 | 2024.01.15 | 157 |
13754 |
pump 외형도 부탁드립니다
장동현
|
2024.01.08
|
조회 153
|
장동현 | 2024.01.08 | 153 |
13753 |
XCLIP된 블럭/외부참조 선택하는 리습
유리민
|
2023.11.24
|
조회 225
|
유리민 | 2023.11.24 | 225 |
13752 |
문자 수정시 등호(=) 이후 부터 수정가능한 리습 없을까요?ㅜㅜ
조상흠
|
2023.11.23
|
조회 143
|
조상흠 | 2023.11.23 | 143 |
13751 |
인벤터 알루미늄 프로파일 라이브러리 파일 요청드립니다. (2)
오뚜기진라면
|
2023.11.15
|
조회 271
|
오뚜기진라면 | 2023.11.15 | 271 |
13750 |
[캣츠 가설재] 다운로드 및 소개 자료
CATS_Developer
|
2023.10.25
|
조회 252
|
CATS_Developer | 2023.10.25 | 252 |
13749 |
괄호치수'
케이알
|
2023.10.25
|
조회 140
|
케이알 | 2023.10.25 | 140 |
13748 |
혹시 치수 자동 산출 리습을 만들 수 있을까요? (4)
이기영
|
2023.09.29
|
조회 532
|
이기영 | 2023.09.29 | 532 |
13747 |
두선사이 중심선 리습 수정가능할까요…? 요청리습 (5)
캐드플러스
|
2023.09.19
|
조회 529
|
캐드플러스 | 2023.09.19 | 529 |
13746 |
잔도교 또는 잔도길 관련 단면도면 요청드립니다
보칼리지
|
2023.09.15
|
조회 226
|
보칼리지 | 2023.09.15 | 226 |
13745 |
측량도면 성과심사시 격자에 좌표 넣는 리습 (1)
정원곤
|
2023.09.12
|
조회 312
|
정원곤 | 2023.09.12 | 312 |
13744 |
다중출력(멀티플롯)리습 프로그램 업그레이드 (5)
캐드플러스
|
2023.09.07
|
조회 792
|
캐드플러스 | 2023.09.07 | 792 |
13743 |
zw cad 담장 그려주는 리습 있으신분 계십니까??
한동민
|
2023.08.31
|
조회 353
|
한동민 | 2023.08.31 | 353 |
13742 |
석공사 Shop 일부 구할수 있나요?
작전제1참모
|
2023.07.28
|
조회 363
|
작전제1참모 | 2023.07.28 | 363 |
13741 |
MoeumT 폰트 있으신분 있나요 ㅠ?
미소
|
2023.07.14
|
조회 336
|
미소 | 2023.07.14 | 336 |
13740 |
사각형 여러개를 가로와세로 치수만 나오는 리습 요청드립니다.
이경재
|
2023.07.11
|
조회 395
|
이경재 | 2023.07.11 | 395 |
13739 |
배관관련 캐드소스 부탁드려도될까요.. 기계배관..
porolsy
|
2023.07.11
|
조회 614
|
porolsy | 2023.07.11 | 614 |