分解后检索对象

grandhougday · 发表于 2022-7-5 20:04:59

我需要一个lisp来分解一个圆柱形实体形状。事实上，爆炸了2次。首先它浮出水面，然后在另一次爆炸后变成两个圆。然后我想用这个圆做点什么。
我该怎么做？
在VBA by Explode函数中，默认情况下返回对象：
explodedObjects=BlockObj。爆炸
但是在lisp中是如何实现的呢？

Lee Mac · 发表于 2022-7-5 20:23:58

copy

(vlax-invoke [color=green][/color] 'explode)

将返回分解对象的列表（其中是要分解的对象）；请注意，此方法将保留原始对象。

pBe · 发表于 2022-7-5 20:36:39

或

copy

(defun c:demo (/ qf)
 (setq qf (getvar 'Qaflags
   )
 )
 (setvar 'qaflags 1)
 (if (setq ss (ssget "_:L" '((0 . "3DSOLID"))))
   (progn
     (command "_explode" ss "")
     (command "_explode" "_Previous" "")
     (sssetfirst nil (ssget "P" '((0 . "[color=blue][b]CIRCLE"[/b][/color][color=black]))))[/color]
     (setvar 'qaflags qf)
   )
 )
)

vanowm · 发表于 2022-7-5 20:52:48

你好

我正在规则曲面上尝试pBe的代码：
但它返回
你知道如何在不影响原始曲面的情况下从直纹曲面中检索3dface吗？
非常感谢。

pBe · 发表于 2022-7-5 20:56:06

copy

(defun c:demo (/ qf)
 (setq qf (getvar 'Qaflags
   )
 )
 (setvar 'qaflags 1)
 (if (setq ss (ssget '((100 . [b]"Mesh"[/b]))))
   (progn
    [b] (command "_copy" ss "" "0,0" "@" "")[/b]
     (command "_explode" ss "")
     (sssetfirst nil (ssget "P" '((0 . "3DFACE"))))
     (setvar 'qaflags qf)
   )
 )
)

vanowm · 发表于 2022-7-5 21:06:58

非常感谢你！

问题是

copy

去掉了那条线，它成功了。
复制对象本身也起作用了，谢谢。

附笔。
rulesurf使用创建网格
（100.“AcDbPolygonMesh”）

[编程交流] 分解后检索对象

发表回复

精选推荐