有关多面网格转实体

q3_2006

TEKLA STRUCTURES软件导入CAD的多面网格想用meshsmooth命令转成CAD能识别的网格
但无法用command 来调用..不知道什么原因必须屏幕点击才能处理..
请版主指导一下..如果想写到LISP里...

(command "meshsmooth" e "")应该怎么写才对..现在不处理..

st788796

2. 
   
3. (setvar "FACETERSMOOTHLEV" 0)
   
4. (if (setq ss (ssget '((0 . "polyline") (-4 . "&=") (70 . 64))))
   
5.   (vl-cmdf "meshsmooth" ss "")
   
6. )
   

<br /> (setvar "FACETERSMOOTHLEV" 0)<br /> (if (setq ss (ssget '((0 . "polyline") (-4 . "&=") (70 . 64))))<br />   (vl-cmdf "meshsmooth" ss "")<br /> )<br />

然后用 _convtosolid 转换为 solid
https://forums.autodesk.com/t5/v ... rogram/td-p/3391547
disable the dialogue box
filedia 0
cmddia 0

then simply write

_meshsmooth all

q3_2006

st788796 发表于 2017-6-7 15:43

谢谢版主...我试试..如果不行还要来打扰的哈..

q3_2006

st788796 发表于 2017-6-7 15:43

不行哈..版主空了下载我的图试..CAD生成的跟软件导入的多面网格不一样...属性..

q3_2006

st788796 发表于 2017-6-7 15:43

我表达可能不清楚...我录了演示(vl-cmdf "meshsmooth" (entlast) "")
运行这句无效..但点取处理没问题..我要解决这个问题..

st788796

q3_2006 发表于 2017-6-8 05:44

需要变通一下

2. 
   
3. (defun c:tt (/ v1 v2 v3 olderr myerr ss)
   
4.   (defun myerr (msg)
   
5.     (setvar "facetersmoothlev" v1)
   
6.     (setvar "filedia" v2)
   
7.     (setvar "cmdecho" v3)
   
8.     (princ)
   
9.   )
   
10.   (setq    olderr    *error*
    
11.     *error*    myerr
    
12.     v1    (getvar "facetersmoothlev")
    
13.     v2    (getvar "filedia")
    
14.     v3    (getvar "cmdecho")
    
15.   )
    
16.   (setvar "facetersmoothlev" 0)
    
17.   (setvar "filedia" 0)
    
18.   (setvar "cmdecho" 0)
    
19.   (if (setq ss (ssget '((0 . "polyline") (-4 . "&=") (70 . 64))))
    
20.     (progn
    
21.       (vla-sendcommand (vla-get-activedocument (vlax-get-acad-object)) "_meshsmooth p  ")
    
22.       (command "_convtosolid" (ssget "P") "")
    
23.     )
    
24.   )
    
25.   (setvar "facetersmoothlev" v1)
    
26.   (setvar "filedia" v2)
    
27.   (setvar "cmdecho" v3)
    
28.   (setq    *error*    olderr
    
29.     myerr    nil
    
30.   )
    
31.   (princ)
    
32. )
    

<br /> (defun c:tt (/ v1 v2 v3 olderr myerr ss)<br />   (defun myerr (msg)<br />     (setvar "facetersmoothlev" v1)<br />     (setvar "filedia" v2)<br />     (setvar "cmdecho" v3)<br />     (princ)<br />   )<br />   (setq    olderr    *error*<br />     *error*    myerr<br />     v1    (getvar "facetersmoothlev")<br />     v2    (getvar "filedia")<br />     v3    (getvar "cmdecho")<br />   )<br />   (setvar "facetersmoothlev" 0)<br />   (setvar "filedia" 0)<br />   (setvar "cmdecho" 0)<br />   (if (setq ss (ssget '((0 . "polyline") (-4 . "&=") (70 . 64))))<br />     (progn<br />       (vla-sendcommand (vla-get-activedocument (vlax-get-acad-object)) "_meshsmooth p  ")<br />       (command "_convtosolid" (ssget "P") "")<br />     )<br />   )<br />   (setvar "facetersmoothlev" v1)<br />   (setvar "filedia" v2)<br />   (setvar "cmdecho" v3)<br />   (setq    *error*    olderr<br />     myerr    nil<br />   )<br />   (princ)<br /> )<br />

q3_2006

st788796 发表于 2017-6-8 09:27

我试试...感谢哈..三维操作真没玩过..

q3_2006

st788796 发表于 2017-6-8 09:27

太强了..好用.....

q3_2006

st788796 发表于 2017-6-8 09:27

有个问题...现在对全图处理了...只相处理当前选择集要怎么做呢..."_convtosolid"这句没起作用....

st788796

q3_2006 发表于 2017-6-8 10:47

没有处理全图啊，里面是 上一选择集  P

q3_2006

st788796 发表于 2017-6-8 11:07

没按P来..全图处理的..

st788796

q3_2006 发表于 2017-6-8 11:28

那 convtosolid 也改成 All

q3_2006

st788796 发表于 2017-6-8 11:31

意思是只能全图处理了..我写成(vla-get-activeselectionset
                    (vla-get-activedocument (vlax-get-acad-object))
                  )
不行..

st788796

q3_2006 发表于 2017-6-8 11:34

meshsmooth 不接受 ssget

2. 
   
3. (defun c:tt (/ v1 v2 v3 olderr myerr ss)
   
4.   (defun myerr (msg)
   
5.     (setvar "facetersmoothlev" v1)
   
6.     (setvar "filedia" v2)
   
7.     (setvar "cmdecho" v3)
   
8.     (princ)
   
9.   )
   
10.   (setq    olderr    *error*
    
11.     *error*    myerr
    
12.     v1    (getvar "facetersmoothlev")
    
13.     v2    (getvar "filedia")
    
14.     v3    (getvar "cmdecho")
    
15.   )
    
16.   (setvar "facetersmoothlev" 0)
    
17.   (setvar "filedia" 0)
    
18.   (setvar "cmdecho" 0)
    
19.   (if (setq ss (ssget "x" '((0 . "polyline") (-4 . "&=") (70 . 64))))
    
20.     (progn
    
21.       (vla-sendcommand
    
22.     (vla-get-activedocument (vlax-get-acad-object))
    
23.     "_meshsmooth p  "
    
24.       )
    
25.       (command "_convtosolid" "P" "")
    
26.     )
    
27.   )
    
28.   (setvar "facetersmoothlev" v1)
    
29.   (setvar "filedia" v2)
    
30.   (setvar "cmdecho" v3)
    
31.   (setq    *error*    olderr
    
32.     myerr    nil
    
33.   )
    
34.   (princ)
    
35. )
    

<br /> (defun c:tt (/ v1 v2 v3 olderr myerr ss)<br />   (defun myerr (msg)<br />     (setvar "facetersmoothlev" v1)<br />     (setvar "filedia" v2)<br />     (setvar "cmdecho" v3)<br />     (princ)<br />   )<br />   (setq    olderr    *error*<br />     *error*    myerr<br />     v1    (getvar "facetersmoothlev")<br />     v2    (getvar "filedia")<br />     v3    (getvar "cmdecho")<br />   )<br />   (setvar "facetersmoothlev" 0)<br />   (setvar "filedia" 0)<br />   (setvar "cmdecho" 0)<br />   (if (setq ss (ssget "x" '((0 . "polyline") (-4 . "&=") (70 . 64))))<br />     (progn<br />       (vla-sendcommand<br />     (vla-get-activedocument (vlax-get-acad-object))<br />     "_meshsmooth p  "<br />       )<br />       (command "_convtosolid" "P" "")<br />     )<br />   )<br />   (setvar "facetersmoothlev" v1)<br />   (setvar "filedia" v2)<br />   (setvar "cmdecho" v3)<br />   (setq    *error*    olderr<br />     myerr    nil<br />   )<br />   (princ)<br /> )<br />

q3_2006

st788796 发表于 2017-6-8 11:44

好..明白了..这个命令够任性..不过很好用哈..