CAD 3D对各轴生成投影或生成底面轮廓线怎么做？除了SOLPROF

君是我的泪 · 发表于 2018-5-28 14:30:12

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由君是我的泪于 2018-5-28 15:55 编辑

CAD文件是3DMAX导出的，主要是俯视，同时如何只获取底面，别的对xyz轴其中两轴形成的平面有也好，SOLPROF 太难用了，没教程，又有选择的不是实体，CAD还是2006版本的

newer · 发表于 2018-5-28 16:09:13

请截取能说明问题的图，贴到论坛来

君是我的泪 · 发表于 2018-5-28 16:57:09

这个的边界轮廓线

newer · 发表于 2018-5-28 17:53:07

生成三视平面图

右视图
右视图.png

俯视图

后视图

(defun c:tt ()
(xdrx_begin)
(if (setq e (car (xdrx_entsel "\n拾取对象<退出>:")))
(progn
(setq mat (xdrx_matrix_identity 3)
mz (xdrx_matrix_setprojection
mat
(list '(0 0 0) '(0 0 1))
'(0 0 1)
)
my (xdrx_matrix_setprojection
mat
(list '(0 0 0) '(1 0 0))
'(1 0 0)
)
mx (xdrx_matrix_setprojection
mat
(list '(0 0 0) '(0 1 0))
'(0 1 0)
)
)
(if (not #PROJECT)
(setq #PROJECT 0)
)
(xdrx_initget "0 1 2")
(if (setq val (getint (xdrx_prompt
"\n投影平面[XY(0)/XZ(1)/YZ(2)]<"
#PROJECT
">:"
T
)
)
)
(setq #PROJECT val)
)
(cond
((= #PROJECT 0)
(setq e1 (xdrx_entity_transformedcopy e mz)
)
)
((= #PROJECT 1)
e2
(xdrx_entity_transformedcopy e my)
)
((= #PROJECT 2)
e3
(xdrx_entity_transformedcopy e mx)
)
)
)
)
(xdrx_end)
(princ)
)

(defun c:tt () 
  (xdrx_begin) 
  (if (setq e (car (xdrx_entsel "\n拾取对象<退出>:"))) 
    (progn 
      (setq mat        (xdrx_matrix_identity 3) 
            mz        (xdrx_matrix_setprojection 
                  mat 
                  (list '(0 0 0) '(0 0 1)) 
                  '(0 0 1) 
                ) 
            my        (xdrx_matrix_setprojection 
                  mat 
                  (list '(0 0 0) '(1 0 0)) 
                  '(1 0 0) 
                ) 
            mx        (xdrx_matrix_setprojection 
                  mat 
                  (list '(0 0 0) '(0 1 0)) 
                  '(0 1 0) 
                ) 
      ) 
      (if (not #PROJECT) 
        (setq #PROJECT 0) 
      ) 
      (xdrx_initget "0 1 2") 
      (if (setq        val (getint (xdrx_prompt 
                              "\n投影平面[XY(0)/XZ(1)/YZ(2)]<" 
                              #PROJECT 
                              ">:" 
                              T 
                            ) 
                    ) 
          ) 
        (setq #PROJECT val) 
      ) 
      (cond 
        ((= #PROJECT 0) 
         (setq e1 (xdrx_entity_transformedcopy e mz) 
         ) 
        ) 
        ((= #PROJECT 1) 
         e2 
         (xdrx_entity_transformedcopy e my) 
        ) 
        ((= #PROJECT 2) 
         e3 
         (xdrx_entity_transformedcopy e mx) 
        ) 
      ) 
    ) 
  ) 
  (xdrx_end) 
  (princ) 
)

君是我的泪 · 发表于 2018-5-28 18:35:52

本帖最后由君是我的泪于 2018-5-28 18:38 编辑

newer 发表于 2018-5-28 17:53
生成三视平面图

右视图

如何获取边界线啊？现在是多面网格，只要最外面平面的多段线

newer · 发表于 2018-5-28 19:02:25

君是我的泪发表于 2018-5-28 18:35
如何获取边界线啊？现在是多面网格，只要最外面平面的多段线

炸开，变成LINE，把中间的没用的尽可能删除掉，然后用 (xdrx_geom_searchoutline (ssget))
因为你这个网格炸开好几万个实体，让程序自动给你算，那你就得有的等了，删除不必要的，速度快。

搜狗截图20180528190032.png

君是我的泪 · 发表于 2018-5-28 19:41:20

不能用一个面截它，得到截取平面线吗？

君是我的泪 · 发表于 2018-5-28 19:42:37

newer 发表于 2018-5-28 19:02
炸开，变成LINE，把中间的没用的尽可能删除掉，然后用 (xdrx_geom_searchoutline (ssget))
因为你这个网 ...

不能用一个面截它，得到截取的平面线吗？明天试试

账号		自动登录	找回密码
密码			立即注册

[编程申请] CAD 3D对各轴生成投影或生成底面轮廓线怎么做？除了SOLPROF

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

点评

[编程申请] CAD 3D对各轴 生成投影或生成底面 轮廓线怎么做？除了SOLPROF

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

点评

[编程申请] CAD 3D对各轴生成投影或生成底面轮廓线怎么做？除了SOLPROF