기존 중심 객체를 중심선으로 바꾸면서 중심 기준으로 확대
;---그려진 선 중심선으로 바꾸면서 1.2배 확대
(defun c:CCLL ()
(defun c:CCLL ()
(defun *error* (msg)(princ "error: ")(princ msg)
(setvar "osmode" os) (setvar "clayer" cla)(princ) )
(setq os (getvar "osmode") cla (getvar "clayer"))
(setq ent (entsel "n > 변경할 라인을 선택하세요 : "))
(setvar "osmode" 2) ; 2 mid
(command "scale" ent "" "\" "1.1")
(command "change" ent "" "p" "la" "22" "")
(setvar "osmode" os)
(setvar "clayer" cla)
(princ)
(setvar "osmode" os) (setvar "clayer" cla)(princ) )
(setq os (getvar "osmode") cla (getvar "clayer"))
(setq ent (entsel "n > 변경할 라인을 선택하세요 : "))
(setvar "osmode" 2) ; 2 mid
(command "scale" ent "" "\" "1.1")
(command "change" ent "" "p" "la" "22" "")
(setvar "osmode" os)
(setvar "clayer" cla)
(princ)
) ; end of defun