How to use extrim command in autolisp

[Anonymous]

I want use extrim command in my lisp program. But, autolisp not recognizing the command. Can anyone suggest how to use it?

[marko_ribar]

Analyze last 2 codes posted here :

http://www.cadtutor.net/forum/showthread.php?93620-Explode-Blocks-Then-Trim-Rectangle-amp-Circle-Ins...

- you call extrim with (etrim ename pt), but be aware that your highlight sysvar will be reset to 0, so return it back afterwards to 1...

M.R.

[Anonymous]

Thanks for the reply. I'll try this.

[phanaem]

Try

(if
  (cond
    (etrim)
    (T (load "extrim.lsp" "") etrim)
  )
  (etrim <ename> <point>)
  )

where <ename> is the ename of the cutting object and <point> define the cutting side

[saifumk8]

the link is not working it's showing:

"The page you requested does not exist"

[saifumk8]

all express tools lisp code is available in below link:

C:\Program Files\Autodesk\AutoCAD 2015\Express

[saifumk8]

thanks

[saifumk8]

thank you very much it's working with below code:

(setq ent1 (entsel))
(setq pt1 (getpoint))

(if
(cond
(etrim)
(T (load "extrim.lsp" "") etrim)
)
(etrim (car ent1) pt1)
)