출도 도장 리습 오류 좀 봐주십시오.
(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
|
조회 22182
|
gocad | 2022.09.01 | 22182 |
13598 |
요양원 도면 구합니다.
☜아♡르☞
|
2018.11.07
|
조회 414
|
☜아♡르☞ | 2018.11.07 | 414 |
13597 |
캐드폰트모음
올마
|
2018.10.17
|
조회 1198
|
올마 | 2018.10.17 | 1198 |
13596 |
아파트나 주택 도면 자료 구할 수 있을까요
jjjjjjjjh
|
2018.10.13
|
조회 595
|
jjjjjjjjh | 2018.10.13 | 595 |
13595 |
보링 주상도 그리는 리습이나 프로그램 부탁합니다.
빛과그림자
|
2018.10.12
|
조회 537
|
빛과그림자 | 2018.10.12 | 537 |
13594 |
hzdxf 폰트 부탁드립니다
담사담사
|
2018.10.09
|
조회 572
|
담사담사 | 2018.10.09 | 572 |
13593 |
cad_connect_excel
Sharp4
|
2018.10.04
|
조회 1273
|
Sharp4 | 2018.10.04 | 1273 |
13592 |
출도 도장 리습 오류 좀 봐주십시오.
차나한잔
|
2018.09.28
|
조회 678
|
차나한잔 | 2018.09.28 | 678 |
13591 |
전기박스 자재발주 심볼 부탁합니다
부천시민
|
2018.09.21
|
조회 655
|
부천시민 | 2018.09.21 | 655 |
13590 |
박물관, 병원 도면구합니다
토투로
|
2018.09.18
|
조회 442
|
토투로 | 2018.09.18 | 442 |
13589 |
요양원 도면 구합니다
csjcjs
|
2018.09.13
|
조회 396
|
csjcjs | 2018.09.13 | 396 |
13588 |
파주시 지형도 구합니다! (1)
상욱
|
2018.09.07
|
조회 474
|
상욱 | 2018.09.07 | 474 |
13587 |
컴퓨터 64비트XP 오류
어게인
|
2018.09.06
|
조회 426
|
어게인 | 2018.09.06 | 426 |
13586 |
동대문구 관내도 부탁드립니다.
징기쟈카
|
2018.08.31
|
조회 394
|
징기쟈카 | 2018.08.31 | 394 |
13585 |
간단한 단독주택 cad파일 보내주세요
마니10002
|
2018.08.28
|
조회 623
|
마니10002 | 2018.08.28 | 623 |
13584 |
longbow converter 요청
재커
|
2018.08.21
|
조회 430
|
재커 | 2018.08.21 | 430 |
13583 |
오토바이, 4륜오토바이 자가용 등등 소스 부탁드립니다.
성꿀
|
2018.08.02
|
조회 470
|
성꿀 | 2018.08.02 | 470 |
13582 |
점검사다리~도면 있으신분 부탁드립니다.
달콤쌉싸름
|
2018.07.27
|
조회 547
|
달콤쌉싸름 | 2018.07.27 | 547 |
13581 |
아키오피스2008 좀 요청합니다.
김롹
|
2018.07.19
|
조회 397
|
김롹 | 2018.07.19 | 397 |
13580 |
선굵기 플롯 정리된거 받고싶습니다.
jinyjiny
|
2018.07.05
|
조회 447
|
jinyjiny | 2018.07.05 | 447 |
13579 |
글꼴 모음 부탁드리겠습니다.. (3)
다라아바오
|
2018.07.03
|
조회 673
|
다라아바오 | 2018.07.03 | 673 |