SOLIDEDIT>Edge>Copy Issues AutoCAD 2015

[lamensterms]

Hey guys,

 

Recently switched to ACAD 2015 and having some trouble with an old LISP routine that I've been using for years.

 

It is a basic routine that copies the selected edge of an 3DSOLID.  Please see code and animation of my problem below (DWG also attached).

 

When trying to copy a CIRCLE edge, the resultant edge (CIRCLE element) is not aligned to the original source edge.  The problem seems to be with the way SOLIDEDIT works in 2015, as running through the same process without the LISP routine will yield the same result.

 

So.. my questions:

 

Has anyone encountered a similar issue, and do you have a solution to get the SOLIDEDIT command to work correctly?

 

If the SOLIDEDIT command is broken - what would be the best way to compensate for the misaligned CIRCLE edge copies?

 

(defun EEtrap1 (errmsg)
  (command "undo" "b")
  (setq *error* temperr)
 (princ)
)

(defun c:ee ( / *error* )

 (command "undo" "m")
 (setq temperr *error*)
 (setq *error* EEtrap1)
 (command "undo" "m")

(setq OROSMODE (getvar "OSMODE"))
(setvar "osmode" 512)
(setq P1 (getpoint "\n Select edge to be copied:"))
(command "solidedit" "edge" "copy" P1 "" P1 P1 "" "")
(setvar "osmode" OROSMODE)

 (setq *error* temperr)

)

 

 

Thanks for any help.

 

SOLIDEDIT Problem.dwg

[JuniorNogueira]

In AutoCAD 2020 Works flawlessly.

[Tharwat]

Hi,

I am not a 3D user but try to disable the OSMODE right before the command "SolidEdit".