Topic: Calling MESHSMOOTH in LSP

[Matt__W]

Anyone have any tricks for calling the MESHSMOOTH within a LSP program? After doing a little Googling it appears it's a common issue.

[danallen]

me... smooooooooth

some words just look funny

[Matt__W]

me... smooooooooth

some words just look funny

[ribarm]

Run MESHSMOOTH command on selection set that consist of 3DFACES and POINTS - you may use triangulation for quick setup...
Then first warning dialog box will appear - choose to create MESH and check box to always apply this option when converting non-primitive solids to meshes...
Then second dialog box will appear stating that some entities can't be converted (your selected POINTS)... Also check box that skip this warning and click OK...

Finally gather new selection set :

Code: [Select]

(setq ss (ssget "_:L"))

And according to my investigations - this won't work with "ss" : (command "_.MESHSMOOTH" ss ""); instead you must use :

Code: [Select]

(vla-sendcommand (vla-get-activedocument (vlax-get-acad-object)) "_.MESHSMOOTH\n!ss\n\n")

Warning!!! : Do not try this if you don't want to perform actions automatically without showing warning dialog boxes... I don't know how to turn them on back after I applied check button to always apply action and skip pop ups...

[EDIT] Found and answer to warning message here : https://www.theswamp.org/index.php?topic=52592.msg575026#msg575026 [/EDIT]

[Matt__W]

I posted some code in a somewhat (un)related post over here. I think I need to stay away from vla-sendcommand for the fact that it runs last regardless of where it is within the program.

[ribarm]

I posted some code in a somewhat (un)related post over here. I think I need to stay away from vla-sendcommand for the fact that it runs last regardless of where it is within the program.

I think the best you can do with MESHSMOOTH is to separate processes - create 2 defuns - first for conversion to MESHES and second one is actually your main routine that operates with created MESHES from previous step...

[ribarm]

Look, I don't know what do you want to do with created MESH(es) after MESHSMOOTH... All I can guess is to UNION them and get single MESH... Then you can try to wrap all this things into single (vla-sendcommand) process :

Code: [Select]

(defun c:xxx nil
  (vl-load-com)
  (vla-sendcommand (vla-get-activedocument (vlax-get-acad-object)) "(setq entss (ssget \"_:L\"))\nall\n\n_.MESHSMOOTH\n!entss\n\n(setq mshss (ssget \"_:L\" '((0 . \"MESH\"))))\nall\n\nUNION\n!mshss\n\n(setq entss nil mshss nil)\n(princ)\n")
)


[ribarm]

OK, I just saw topic here : http://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/convert-3d-solid-to-3d-faces-with-lsp-program/td-p/6630098

If you want to convert 3D SOLIDS to 3D FACES, try something like this :

Code: [Select]

(defun preprocess nil
  (prompt "\nSelect 3DSOLIDS to convert to 3DFACES...")
  (setq e (ssget "_:L" '((0 . "3DSOLID"))))
  (while (not e)
    (prompt "\nMissed... Select 3DSOLIDS to convert to 3DFACES again...")
    (setq e (ssget "_:L" '((0 . "3DSOLID"))))
  )
)

(defun postprocess nil
  (vl-load-com)
  (vla-sendcommand (vla-get-activedocument (vlax-get-acad-object)) "(setq e (entlast))\n_.MESHSMOOTH\n_Previous\n\n(setq mshss (ssadd))\n(while (setq e (entnext e)) (ssadd e mshss))\nEXPLODE\n!mshss\n\n(setq mshss nil preprocess nil postprocess nil e nil)\n(princ)\n")
)

(defun c:xxx nil
  (preprocess)
  (postprocess)
)


[Matt__W]

 
I'm actually helping Tony at the moment with this. I posted here just to make sure I wasn't missing something with regards to the MESHSMOOTH command.