(defun c:SD(/ os cla)
(defun *error* (msg)(princ "error: ")(princ msg)
(setvar "osmode" os) (setvar "clayer" cla)(command "ucs" "" "") (princ) )
(prompt "n ≫ 사선으로 대각 치수넣기 ≪")
(setq os (getvar "osmode") cla (getvar "clayer"))
(setvar "osmode" 33) ; int 32,end 1
(prompt "n≫ 회전할 UCS의 기준 객체를 선택하시오")(terpri)
(command "ucs" "ob" "\")
(prompt "n≫ 첫 번째 및 두번째 치수보조선 원점 지정 또는 <객체 선택>:")
(command "LAYER" "S" "44" "" "_dimlinear" "\" "\" "\")
(command "ucs" "" "")
(setvar "osmode" os)
(setvar "clayer" cla)
(princ)
)
(defun c:SD2(/ dec ss ed)
;->*error* start
(defun *error* (msg)(princ "error: ")(princ msg)
(setvar "osmode" os)(setvar "blipmode" bl)
(setvar "cmdecho" cm)
(princ))
;-<*error* end
(setq dec (getvar "dimdec"))
(command "ucs" "ob" "\")
(command "dimlinear" "\" "\" "\")
(setq ss (ssget "l"))
(setq ed (entget (ssname ss 0)))
(entmod (subst (cons 1 "<>") (assoc 1 ed) ed))
(command "ucs" "P")
(princ)
)
(defun *error* (msg)(princ "error: ")(princ msg)
(setvar "osmode" os) (setvar "clayer" cla)(command "ucs" "" "") (princ) )
(prompt "n ≫ 사선으로 대각 치수넣기 ≪")
(setq os (getvar "osmode") cla (getvar "clayer"))
(setvar "osmode" 33) ; int 32,end 1
(prompt "n≫ 회전할 UCS의 기준 객체를 선택하시오")(terpri)
(command "ucs" "ob" "\")
(prompt "n≫ 첫 번째 및 두번째 치수보조선 원점 지정 또는 <객체 선택>:")
(command "LAYER" "S" "44" "" "_dimlinear" "\" "\" "\")
(command "ucs" "" "")
(setvar "osmode" os)
(setvar "clayer" cla)
(princ)
)
(defun c:SD2(/ dec ss ed)
;->*error* start
(defun *error* (msg)(princ "error: ")(princ msg)
(setvar "osmode" os)(setvar "blipmode" bl)
(setvar "cmdecho" cm)
(princ))
;-<*error* end
(setq dec (getvar "dimdec"))
(command "ucs" "ob" "\")
(command "dimlinear" "\" "\" "\")
(setq ss (ssget "l"))
(setq ed (entget (ssname ss 0)))
(entmod (subst (cons 1 "<>") (assoc 1 ed) ed))
(command "ucs" "P")
(princ)
)