Lisp doesn't work.

[manasi4532]

I found a lisp that meets my needs. But when I run it Nothing happened I don't know what happened.

[font=Courier New](defun c:cl(/ eLine ll ur pl pr pt pb ex ss)
(defun eLine(p1 p2)(entmakex (list (cons 0 "LINE")(cons 62 3)(cons 10 p1)(cons 11 p2)(cons 6 "CENTER"))))
(while (setq ss (ssget))
(vlax-for e (vla-get-ActiveSelectionSet (vla-get-ActiveDocument (vlax-get-acad-object)))
(vla-getboundingbox e 'll 'ur)
(setq ll (vlax-safearray->list ll)
ur (vlax-safearray->list ur)
ex (/ (abs (-(car ll)(car ur))) 6) ;Extend outside Rectangle
pl (list (- (car ll) ex) (/ (+ (cadr ll)(cadr ur)) 2))
pr (list (+ (car ur) ex) (cadr pl))
pt (list (/ (+ (car ll)(car ur)) 2) (+ (cadr ur) ex))
pb (list (car pt) (- (cadr ll) ex))
)
(eLine pl pr)
(eLine pt pb)
)
)
)[/font]

Thank you for credit from  [Lisp]Vẽ Center Line

[ВeekeeCZ]

Try like this?

(vl-load-com)

(defun c:cl (/ eLine ll ur pl pr pt pb ex ss)
  (defun eLine(p1 p2)(entmakex (list (cons 0 "LINE")(cons 62 3)(cons 10 p1)(cons 11 p2)(cons 6 "CENTER"))))
  (while (setq ss (ssget))
    (vlax-for e (vla-get-ActiveSelectionSet (vla-get-ActiveDocument (vlax-get-acad-object)))
      (vla-getboundingbox e 'll 'ur)
      (setq ll (vlax-safearray->list ll)
	    ur (vlax-safearray->list ur)
	    ex (/ (abs (-(car ll)(car ur))) 6) ;Extend outside Rectangle
	    pl (list (- (car ll) ex) (/ (+ (cadr ll)(cadr ur)) 2))
	    pr (list (+ (car ur) ex) (cadr pl))
	    pt (list (/ (+ (car ll)(car ur)) 2) (+ (cadr ur) ex))
	    pb (list (car pt) (- (cadr ll) ex))
	    )
      (eLine pl pr)
      (eLine pt pb)
      )
    )
  (princ)
  )

[Moshe-A · Accepted solution]

@manasi4532  hi,

fixed 😀

Moshe

(defun c:cl (/ eLine ll ur pl pr pt pb ex ss)
 (defun eLine (p1 p2)
  (entmake (list '(0 . "LINE") '(100 . "AcDbLine") (cons '10 p1) (cons '11 p2) '(62 . 3) '(6 . "CENTER")))
 )


 ; make sure linetype "center" is loaded
 (if (null (tblsearch "ltype" "center"))
   (command ".linetype" "_Load" "center" "" "")
 )
  
 (while (setq ss (ssget))
  (vlax-for e (vla-get-ActiveSelectionSet (vla-get-ActiveDocument (vlax-get-acad-object)))
   (vla-getboundingbox e 'll 'ur)
   (setq ll (vlax-safearray->list ll)
        ur (vlax-safearray->list ur)
        ex (/ (abs (- (car ll) (car ur))) 6) ;Extend outside Rectangle
        pl (list (- (car ll) ex) (/ (+ (cadr ll) (cadr ur)) 2))
        pr (list (+ (car ur) ex) (cadr pl))
        pt (list (/ (+ (car ll) (car ur)) 2) (+ (cadr ur) ex))
        pb (list (car pt) (- (cadr ll) ex))
   )
   (eLine pl pr)
   (eLine pt pb)
  )
 ); while

 (princ)
); c:cl

[Kent1Cooper]

If the [parts in square brackets] at the beginning and end are in your .lsp file, remove them.

[ec-cad]

Don't know what you mean by 'run' it, but if you just Loaded it, it will not run by itself.

The Lisp has a Function "C:CL" that makes it a Command Function.

Do an Appload or just drag and drop it into ACAD - then at Command Prompt line

just type in  CL<enter>

That should 'run' the Lisp program.

ECCAD

[manasi4532]

It works wonderfully.

[manasi4532]

Nothing changed. Thank you much

[manasi4532]

I  run :cl but Nothing changed. Thank you so much

[Sea-Haven]

If you want run straight away when apploaded add as shown. To run again type CL.`

); c:cl
(c:cl)

A warning CL may already exist as a command, maybe call it something different say CL2.