(defun c:slh ()
(defun *error* (msg)
    (if (not (wcmatch (strcase msg t) "*cancel*,*exit*"))
      (progn
(setvar "osmode" os)
      (princ (strcat "\nError: " msg)))))
  (setq os (getvar "osmode"))
(if (setq slh_sec (ssget (list (cons 0 "HATCH"))))
  (progn
    (setq c 0 slh_say (sslength slh_sec))
    (while (< c slh_say)
      (setq slh_tek (ssname slh_sec c))
(vla-getboundingbox (vlax-ename->vla-object slh_tek) 'MinP 'MaxP)
(setq MinP (vlax-safearray->list MinP)
      MaxP (vlax-safearray->list MaxP)
      sagalt (list (car maxp)(cadr minp))
      solust (list (car minp)(cadr maxp)))
      (setvar "osmode" 0)
      (command "_.pline" (polar minp 0.0 (/ (distance sagalt maxp)2.0))
       (polar minp 0.0 (- (distance minp sagalt) (distance sagalt maxp)))
       "a"
       (polar (getvar 'lastpoint) (/ pi 2.0) (distance sagalt maxp))
       "l"
       (polar (getvar 'lastpoint) pi (- (distance minp sagalt)(* (distance sagalt maxp)1.5)))
       "a"
       "close")     
    (command "_.erase" slh_tek "")
    (setq c (1+ c)))
   (setvar "osmode" os) (setq *error* nil)
    ))(princ))

(defun c:acn (/ ss pt dc ns k ls) (vl-load-com)
  (if (setq ss (ssget ":s" '((0 . "lwpolyline"))))
    (progn (redraw (ssname ss 0) 3)
      (if (setq pt (getpoint "\nPoint:"))
        (progn
          (vla-startundomark (setq dc (vla-get-activedocument (vlax-get-acad-object))))
          (setq ns (vlax-ename->vla-object (ssname ss 0)) k 0 ls (cons pt ls))
          (repeat (fix (vlax-curve-getendparam ns))
            (setq ls (cons (polar pt 0 (vlax-curve-getdistatparam
              ns (setq k (1+ k)))) ls)))
          (setq ls (apply 'append (mapcar '(lambda(a) (list (car a) (cadr a)))
            (reverse ls))))
          (vla-addLightWeightPolyline (vla-get-modelspace dc) (vlax-safearray-fill
            (vlax-make-safearray vlax-vbdouble (cons 0 (1- (length ls)))) ls))
          (vla-endundomark dc)
        )
      ) (redraw (ssname ss 0) 4)
    )
  ) (prin1)
)

(defun c:Aaa (/ os tp ad pt ss) (vl-load-com)
  (if (and (ssget (list (cons 0 "*Line,Arc,Ellipse,Spline,Circle")))
        (setq tp 0 ad (vla-get-activedocument (vlax-get-acad-object))
              pt (getpoint "\nSpecify point: ")))
    (progn
      (vlax-for os (setq ss (vla-get-activeselectionset ad))
        (setq tp (+ tp (vlax-curve-getDistAtParam os (vlax-curve-getEndParam os)))))
      (vla-startundomark ad) (vla-addline (vla-get-modelspace ad) (vlax-3d-point pt)
        (vlax-3d-point (polar pt 0 tp))) (vla-endundomark ad) (vla-delete ss)
    )
  ) (princ)
)