출도 도장 리습 오류 좀 봐주십시오.
(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" "")
)
캐드오류 발생하는데 이유를 모르겠습니다.
캐드오류 첨부파일 참고해주세요 ㅠㅠ
번호 | 제목 | 작성자 | 작성일 | 조회 |
8265 |
소스 공유 부탁드립니다.. (1)
루디브리엄
|
2021.10.23
|
조회 1074
|
루디브리엄 | 2021.10.23 | 1074 |
8264 |
운전면허시험장(기능시험장) 도면 요청드립니다.
뿌꾸러버
|
2021.09.09
|
조회 640
|
뿌꾸러버 | 2021.09.09 | 640 |
8263 |
File.BAK--->Filwe.dwg로 변환 방법 요청
notong59
|
2021.04.27
|
조회 602
|
notong59 | 2021.04.27 | 602 |
8262 |
버스터미널 도면 구합니다. ㅠ 도와주세요
아이해버아키드림
|
2021.01.20
|
조회 952
|
아이해버아키드림 | 2021.01.20 | 952 |
8261 |
캐드 폰트 부탁 드립니다
희망의빛
|
2021.01.14
|
조회 1138
|
희망의빛 | 2021.01.14 | 1138 |
8260 |
폰트좀 부탁드립니다.
김대
|
2019.10.16
|
조회 726
|
김대 | 2019.10.16 | 726 |
8259 |
ngsw 폰트 구합니다 (2)
쫑이님
|
2019.10.05
|
조회 1637
|
쫑이님 | 2019.10.05 | 1637 |
8258 |
폰트주실분있나요
미래온
|
2019.09.17
|
조회 530
|
미래온 | 2019.09.17 | 530 |
8257 |
유치원(어린이집) 가구 소스 있으신분 공유좀 해주실수 있나요 (1)
환타쿠
|
2019.09.17
|
조회 920
|
환타쿠 | 2019.09.17 | 920 |
8256 |
연동도어 도면이 급히 필요합니다..
레오빈스
|
2019.06.10
|
조회 639
|
레오빈스 | 2019.06.10 | 639 |
8255 |
연천 도밀리170번지 일원 5000도구합니다...
재익이
|
2019.02.26
|
조회 508
|
재익이 | 2019.02.26 | 508 |
8254 |
출도 도장 리습 오류 좀 봐주십시오.
차나한잔
|
2018.09.28
|
조회 658
|
차나한잔 | 2018.09.28 | 658 |
8253 |
전기박스 자재발주 심볼 부탁합니다
부천시민
|
2018.09.21
|
조회 605
|
부천시민 | 2018.09.21 | 605 |
8252 |
간단한 단독주택 cad파일 보내주세요
마니10002
|
2018.08.28
|
조회 600
|
마니10002 | 2018.08.28 | 600 |
8251 |
도어핸들,도어핸들(공정),도어락 뭐가 다른건가요??
poll
|
2018.06.19
|
조회 553
|
poll | 2018.06.19 | 553 |
8250 |
오피스 도면
은하수별나라
|
2018.04.22
|
조회 864
|
은하수별나라 | 2018.04.22 | 864 |
8249 |
공장 도면 부탁드립니다
dorothea
|
2018.04.07
|
조회 565
|
dorothea | 2018.04.07 | 565 |
8248 |
목조주택 도면과 디테일 구하고 있습니다.
하지만
|
2018.04.03
|
조회 570
|
하지만 | 2018.04.03 | 570 |
8247 |
hztxt Font(중국폰트)
제롬이
|
2018.01.17
|
조회 837
|
제롬이 | 2018.01.17 | 837 |
8246 |
철골 공장 캐트도면 구합니다.
sonofcain
|
2018.01.10
|
조회 695
|
sonofcain | 2018.01.10 | 695 |