三维到二维lisp

Millsy29 · 发表于 2022-7-6 09:32:11

是否有人拥有将三维实体更改为二维的lisp

谢谢

designerstuart · 发表于 2022-7-6 09:39:24

命令扁平化不起作用吗？

Millsy29 · 发表于 2022-7-6 09:50:22

除了三维实体外，它还将其他所有物体展平。。

ReMark · 发表于 2022-7-6 09:58:17

从三维实体获取二维视图的方法包括：

1、剖面

2、平射

3.SolView/SolDraw/SolProf

Millsy29 · 发表于 2022-7-6 10:04:42

这不是我想要的观点，更多的是家具问题。一旦命令“aecobjexplode”完成，家具就在三维实体或三维面中，我想展平家具，使事情变得更容易。

ReMark · 发表于 2022-7-6 10:10:15

这是“家具”问题？那你到底做什么？分解家具的三维实体，然后尝试将所有几何体的“Z”标高设置为“0”？

Millsy29 · 发表于 2022-7-6 10:18:14

我已经整理好了。。我在三维视图中使用了“展平”命令，而不是平面视图。。谢谢你的意见！！

Ahankhah · 发表于 2022-7-6 10:20:46

但展平并不适用于小对象或视野较远的对象：（。在交付前测试您的绘图：生病：。

asos2000 · 发表于 2022-7-6 10:29:14

试试这个
PS：不是我的，我想是给李的

copy

(defun c:Supflat  (/ ss ssObj j)
 (vl-load-com)
 (vlax-map-collection
   (vla-get-Layers
     (vla-get-ActiveDocument
       (vlax-get-acad-object)))
   '(lambda (x) (vla-put-lock x :vlax-false)))
 (if (setq ss (ssget "X" (list (cons 410 (getvar "CTAB")))))
   (progn
     (setq ssObj (mapcar 'vlax-ename->vla-object
                         (mapcar 'cadr (ssnamex ss))) j 0)
     (foreach Obj  ssObj
       (foreach n  '(1e99 -1e99)
         (if (vl-catch-all-error-p
               (vl-catch-all-apply
                 '(lambda (x)
                    (vla-move x (vlax-3d-point (list 0 0 0))
                                (vlax-3d-point (list 0 0 n))))
                 (list Obj)))
           nil
           (setq j (1+ j)))))
     (princ (strcat "\n" (rtos (/ j 2.0)) " Objects Flattened.")))
   (princ "\n<!> No Objects Found <!>"))
 (princ))

Lee Mac · 发表于 2022-7-6 10:33:26

更多信息：

http://www.cadtutor.net/forum/showthread.php?2019-展平

[编程交流] 三维到二维lisp

发表回复

精选推荐