(defun c:dash_beyongutmost (/ ename linetypes)
  (setq Linetypes (vla-get-Linetypes (vla-get-ActiveDocument
            (vlax-get-acad-object)
         )
    )
  )
  (if (vlax-read-enabled-p (vlax-invoke-method Linetypes 'item "dashed"))
    (princ "\n dote Linetype is already loaded\n.")
    (vlax-invoke-method Linetypes 'load "dashed" "acad.lin")
  )
  (if (setq ename (car (entsel "选择需要进行虚实变换的实体:")))
    (if (/= (vla-get-Linetype (vlax-ename->vla-object ename)) "DASHED")
      (vla-put-Linetype (vlax-ename->vla-object ename) "dashed")
      (vla-put-Linetype (vlax-ename->vla-object ename) "BYLAYER")
    )
  )
  (princ)
)