윈도우10 64비트 및 오토캐드 2016 사용자 입니다.
치수를 높이 박스 치수로 변경하는 과정에서
2012버전 이하에선 기존 치수 그대로 높이 박스 치수가 도시 되었는데
2016버전에서 치수를 일일이 적어줘야하는 경우가 발생하였습니다.
하위 리습 보시고 수정할 부분 좀 검토 요청 드립니다.
(defun wwww ()
(SETVAR “blipmode” 1)
(SETVAR “OSMODE” 183)
(setq p1 (getpoint “n start point:”))
(if (= p1 nil) (exit))
(SETVAR “OSMODE” 0)
(setq p11 (getpoint “n second point:”))
(setq p111 (getpoint “n end point:”))
(SETVAR “blipmode” 0)
(setq ang1 (angle p1 p11));방향성을 판단
(redraw)
(command “arc” p1 p11 p111)
(COMMAND “CHANGE” “L” “” “” “” “P” “LA” “5” “” “” “”)
(setq p2 (polar p111 (dtr 0) 1.2))
(setq p3 (polar p2 (dtr 120) 1.2))
(setq p4 (polar p3 (dtr 180) 1.2))
( setq p5 (polar p4 (dtr 240) 1.2))
( setq p6 (polar p5 (dtr 300) 1.2))
( setq p7 (polar p6 (dtr 0) 1.2))
( setq p8 (polar p7 (dtr 60) 1.2))
(command “Pline” “@” p2 p3 P4 P5 P6 P7 P8 “” “” “”)
(COMMAND “PEDIT” “l” “J” “l” “p” “” “” “”)
(COMMAND “CHANGE” “L” “” “” “” “P” “LA” “6” “” “” “”)
);defun end
;================================
(defun qqqq ()
(setq sel_ (entsel “nSelect Section Height Dim :”))
(redraw (car sel_) 3) ;선택영역 은선상태
(setq head_ (entget (car sel_))
f_code (assoc 10 head_)
end_coor (assoc 13 head_)
dist_1 (cdr(cdr f_code))
dist_2 (cdr(cdr end_coor))
old_dst (distance dist_1 dist_2))
(princ (strcat “n< “(rtos old_dst)” >”))
; (setq dst (roundoff old_dst)) 반올림 연산
(SETQ dst_v (- old_dst (fix old_dst))
dst_vx2 (* dst_v 2))
(if (= dst_v 0) (setq dst old_dst)
(progn
(if (= (fix dst_vx2) 1) (setq dst (+ (fix old_dst) 1))
(setq dst (fix old_dst)))
));반올림 연산과정
(PRINC)
):DEFUND
;===============H 가공기호 0
(defun c:H0 (/ sel_ head_ f_code end_coor dist_1 dist_2 old_dst x1)
(qqqq)
(COMMAND “INSERT” “H0” PAUSE “” “” “” (rtos dst))
(wwww)
(PRINC)
):DEFUND
;===============H 은선 가공기호 0
(defun c:H00 (/ sel_ head_ f_code end_coor dist_1 dist_2 old_dst x1)
(qqqq)
(COMMAND “INSERT” “H00” PAUSE “” “” “” (rtos dst))
(wwww)
(PRINC)
):DEFUND
;===============H 가공기호1
(defun c:H1 (/ sel_ head_ f_code end_coor dist_1 dist_2 old_dst x1)
(qqqq)
(COMMAND “INSERT” “H1” PAUSE “” “” “” (rtos dst))
(wwww)
(PRINC)
):DEFUND
;===============H 은선 가공기호1
(defun c:H11 (/ sel_ head_ f_code end_coor dist_1 dist_2 old_dst x1)
(qqqq)
(COMMAND “INSERT” “H11” PAUSE “” “” “” (rtos dst))
(wwww)
(PRINC)
):DEFUND
;===============H 가공기호2
(defun c:H2 (/ sel_ head_ f_code end_coor dist_1 dist_2 old_dst x1)
(qqqq)
(COMMAND “INSERT” “H2” PAUSE “” “” “” (rtos dst))
(wwww)
(PRINC)
):DEFUND
;===============H 은선 가공기호2
(defun c:H22 (/ sel_ head_ f_code end_coor dist_1 dist_2 old_dst x1)
(qqqq)
(COMMAND “INSERT” “H22” PAUSE “” “” “” (rtos dst))
(wwww)
(PRINC)
):DEFUND
;===============h 가공기호1
(defun c:HH1 (/ sel_ head_ f_code end_coor dist_1 dist_2 old_dst x1)
(qqqq)
(COMMAND “INSERT” “HH1” PAUSE “” “” “” (rtos dst))
(wwww)
(PRINC)
):DEFUND
;===============h 은선 가공기호1
(defun c:HH11 (/ sel_ head_ f_code end_coor dist_1 dist_2 old_dst x1)
(qqqq)
(COMMAND “INSERT” “HH11” PAUSE “” “” “” (rtos dst))
(wwww)
(PRINC)
):DEFUND
;===============h 가공기호2
(defun c:HH2 (/ sel_ head_ f_code end_coor dist_1 dist_2 old_dst x1)
(qqqq)
(COMMAND “INSERT” “HH2” PAUSE “” “” “” (rtos dst))
(wwww)
(PRINC)
):DEFUND
;===============h 은선 가공기호2
(defun c:HH22 (/ sel_ head_ f_code end_coor dist_1 dist_2 old_dst x1)
(qqqq)
(COMMAND “INSERT” “HH22” PAUSE “” “” “” (rtos dst))
(wwww)
(PRINC)
):DEFUND
;===============h 가공기호0
(defun c:HH0 (/ sel_ head_ f_code end_coor dist_1 dist_2 old_dst x1)
(qqqq)
(COMMAND “INSERT” “HH0” PAUSE “” “” “” (rtos dst))
(wwww)
(PRINC)
):DEFUND
;===============h 은선 가공기호0
(defun c:HH00 (/ sel_ head_ f_code end_coor dist_1 dist_2 old_dst x1)
(qqqq)
(COMMAND “INSERT” “HH00” PAUSE “” “” “” (rtos dst))
(wwww)
(PRINC)
):DEFUND
;===============형상 가공기호
(defun c:HS (/ sel_ head_ f_code end_coor dist_1 dist_2 old_dst x1)
(qqqq)
(COMMAND “INSERT” “HS” PAUSE “” “” “” (rtos dst))
(wwww)
(PRINC)
):DEFUND
(defun qqq (no / sel_ sel_v no_v)
(setq sel_ (entsel “를 선택하3! :”))
(redraw (car sel_) 3) ;선택영역 은선상태
(setq sel_v (entget (car sel_))
no_v (assoc 1 sel_v)
no (cdr no_v)
)
(princ (strcat “n< “no” >”))
(PRINC)
no
):DEFUND
현재 리습엔 치수 표시 관련 구문 없습니다 제일 밑에 qqq 관련 구문도 없네요