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

三维到二维lisp

是否有人拥有将三维实体更改为二维的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：不是我的，我想是给李的
 
(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 ObjssObj
       (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-展平
页: [1]
查看完整版本: 三维到二维lisp