Hi Sin,
You did not include the dcl file.

You can use the feature "Compare by content" of the Total Commander to find out the difference.
It's the shareware: https://www.ghisler.com/download.htm

Here's the result.

Hi Hamm,

Yes, it works on both IntelliCAD and AutoCAD.

Regards.

Hi Hamm,
Yep, why don't think that it's a bonus (new feature) of IntelliCAD?!

Try this: (defun c:A2 ( / cmde deriv dist lst obj pt el ent) (vl-load-com) (if (and (setq lst (entsel)) (setq obj (vlax-ename->vla-object (setq ent (car lst)))) (or (wcmatch (cdr (assoc 0 (entget ent))) "*LINE,ARC,CIRCLE,ELLIPSE") (prompt "\nError: invalid object \n") ) (or (equal (cdr (assoc 210 (e...

You can use Lisp to select and highlight invisible objects:

Hi Denis,
Please use the latest version: CMS IntelliCAD 10.0.1462
it fixed the issue.
Regards.

Hi, Try to remove the line: (if (= NEWTILE "s7") (DRAW_PIPE_SHAPE) ) in function INSERT_BLOCK_VIEW . And using this: (defun C:sln_piping ( / sel flg ftg fce sch clss fname ) ;define function (setq OLDERR *ERROR* *ERROR* ERR ) ;_ end of setq (setq OS (getvar "OSMODE")) (setvar "OSMODE" 111) (DIALOG) ...

Hi Steven, If I don't misunderstand your descriptor, It's very basic in dialog design. - first, please add the code to catch event PIPE click (in DIALOG function), something like this : (action_tile "s7" "(setq NEWTILE $key)") - and in the INSERT_BLOCK_VIEW function, add the action if the PIPE is se...

I've made some modifications, it works both of the 9.2 and 10 version. Here's the code: (defun c:extucs ( / spt1 spt2 dis ENT1 ENT2) (if (and (setq spt1 (getpoint "\nSpecify Start point of Pipe")) (setq spt2 (getpoint "\nSpecify End point of Pipe" spt1) ) ) (progn (command "ucs" "ZA" spt1 spt2) (com...

Hi Steven,
I see the bug in the line :
(command "extrude" ENT1 "" "D" spt1 spt2)

Maybe there's an issue with the option "Direction" of the Extrude command in ICAD 10.

Hi Steve,
Not sure what is the issue with the routine, but it seems that it comes from your slides.
Please recreate the slides.

Hi,
Please attach your lisp if you don't mind.
Regards.

Hi, Please use TRY .... CATCH to catch errors if any. Not sure what you want achievement but this can run without any error. #Region "Namespaces" 'Imports System.Text 'Imports System.Linq 'Imports System.Xml 'Imports System.Reflection 'Imports System.ComponentModel 'Imports System.Collections 'Impor...

Hi,
In case of calling a command from the menu/form, you should call via Editor.Command(...)

However, we can also create a context to run a function (ex: LineVBNet), please refer to the attached file.