实体到网格LISP

raymarcher · 发表于 2022-7-5 22:16:11

我制作了一些脚本来处理实体。
前三种方法有效，但第三种方法无法使用meshsnmooth将实体转化为网格。
有人能帮忙吗？

SOLIDS ERASE 
(
(setvar "qaflags" 1)
(setq SolidsErase (ssget "X" '((0 . "3dsolid"))))
(command "ERASE" SolidsErase "")
(setvar "qaflags" 0)
)
SOLIDS OFFSET BASE POINT
(
(setvar "qaflags" 1)
(setq SolidsOffset (ssget "X" '((0 . "3dsolid"))))
(command "MOVE" SolidsOffset "" "0,0,0" "5,5,0")
(setvar "qaflags" 0)
)
SOLIDS OFFSET DISPLACEMENT
(
(setvar "qaflags" 1)
(setq SolidsOffset (ssget "X" '((0 . "3dsolid"))))
(command "MOVE" SolidsOffset "" "" "2,2,2")
(setvar "qaflags" 0)
)
SOLIDS TO MESH
(
(setq SolidsToMesh (ssget "X" '((0 . "3dsolid"))))
(command "MESHSMOOTH" SolidsToMesh "")
)

谢谢

GP_ · 发表于 2022-7-5 22:27:48

试试这个：

copy

(vl-load-com)
(vla-SendCommand
   (vla-get-ActiveDocument (vlax-get-acad-object))
   (strcat "MESHSMOOTH" " " "(ssget "X" '((0 . "3dsolid")))" " " " ")
)

raymarcher · 发表于 2022-7-5 22:39:32

谢谢，我会让你知道它是否有效。

是否有必要使用visual lisp？
我想在autolisp中保持简单。

hmsilva · 发表于 2022-7-5 22:50:19

在这一侧（仅在AutoCAD 2010中测试）

copy


(setq SolidsToMesh (ssget "X" '((0 . "3dsolid"))))
(command "MESHSMOOTH" SolidsToMesh "")

按预期工作。

亨里克

GP_ · 发表于 2022-7-5 22:51:54

亨里克，代码是一样的。
它在我的A2014上不起作用。

hmsilva · 发表于 2022-7-5 23:07:31

您好，GP，

我知道代码是一样的，我只是对OP说，这是AC2010中预期的工作代码。。。
在你回复后，我在另一台机器上用AC2012和AC2014测试了OP代码，在所有版本中都正常工作。。。

亨里克

GP_ · 发表于 2022-7-5 23:12:02

嗨，Henrique，

在我的AC2014中，OP的代码仅适用于原始实体。

hmsilva · 发表于 2022-7-5 23:20:20

Gian Paolo，

我只测试了原始固体。。。

在AC2014中，在没有原始实体的情况下，只有按照您的建议使用vla SendCommand才能正常工作。

干杯
亨里克

[编程交流] 实体到网格LISP

发表回复

精选推荐