各位大神看下实线如何批量生成轮廓线

664571221 · 发表于 2022-9-20 09:20

各位大神看下实线如何批量生成轮廓线

夏生生 · 发表于 2022-9-20 09:20

本帖最后由夏生生于 2022-9-20 16:28 编辑

就是region和boundary的配合应用。

(defun c:tt(/ )
(setq en (entlast)
ss (ssget '((0 . "solid")))
ss1 (ssadd)
ss2 (ssadd)
)
(command "copy" ss "" '(0 0) '(0 0))
(while (setq en (entnext en)) (setq ss1 (ssadd en ss1)))
(setq en (entlast))
(command "region" ss1 "")
(while (setq en (entnext en)) (setq ss2 (ssadd en ss2)))
(command "union" ss2 "")
(setq ss2 (entlast))
(vla-getboundingbox (vlax-ename->vla-object ss2) 'pt1 'pt2)
(setq pt1 (vlax-safearray->list pt1)
pt2 (vlax-safearray->list pt2)
pt1 (mapcar '- pt1 '(100 100))
pt2 (mapcar '+ pt2 '(100 100))
)
(command "zoom" pt1 pt2)
(command "rectangle" pt1 pt2)
(setq en (entlast)
area (vla-get-area
(vlax-ename->vla-object en)
)
en1 en
)
(command "_.-boundary""_a""_b""_n" ss2 en"""_i""_y""_o""_p"""(mapcar '+ pt1 '(50 50))"")
(while (< 0 (getvar 'cmdactive)) (command-s ""))
(while (setq en (entnext en))
(if (equal area
(vla-get-area
(vlax-ename->vla-object en)
)
1e-4
)
(entdel en)
)
)
(entdel en1)
(command "erase" ss2 "")
(command "erase" ss "");_不保留原型注释此句
(command"zoom""p")
)

(defun c:tt(/ ) 
(setq en  (entlast) 
      ss  (ssget '((0 . "solid"))) 
      ss1 (ssadd) 
      ss2 (ssadd) 
      ) 
(command "copy" ss "" '(0 0) '(0 0)) 
(while (setq en (entnext en)) (setq ss1 (ssadd en ss1))) 
(setq en (entlast)) 
(command "region" ss1 "") 
(while (setq en (entnext en)) (setq ss2 (ssadd en ss2))) 
(command "union" ss2 "") 
(setq ss2 (entlast)) 
(vla-getboundingbox (vlax-ename->vla-object ss2) 'pt1 'pt2) 
(setq pt1 (vlax-safearray->list pt1) 
      pt2 (vlax-safearray->list pt2) 
      pt1 (mapcar '- pt1 '(100 100)) 
      pt2 (mapcar '+ pt2 '(100 100)) 
      ) 
(command "zoom" pt1 pt2) 
(command "rectangle" pt1 pt2) 
(setq en   (entlast) 
      area (vla-get-area 
       (vlax-ename->vla-object en) 
       ) 
      en1 en 
      ) 
(command "_.-boundary""_a""_b""_n" ss2 en"""_i""_y""_o""_p"""(mapcar '+ pt1 '(50 50))"") 
(while (< 0 (getvar 'cmdactive)) (command-s "")) 
(while (setq en (entnext en)) 
  (if (equal area 
       (vla-get-area 
         (vlax-ename->vla-object en) 
         ) 
       1e-4 
       ) 
    (entdel en) 
    ) 
  ) 
(entdel en1) 
(command "erase" ss2 "") 
(command "erase" ss "");_不保留原型注释此句 
(command"zoom""p") 
)

mituzhe · 发表于 2022-9-20 09:41

是这样吗？还是不要里面的线。只要最外面的边界？

664571221 · 发表于 2022-9-20 10:11

mituzhe 发表于 2022-9-20 09:41
是这样吗？还是不要里面的线。只要最外面的边界？

里面的来一个，外面的来一个，两种都来一个

guosheyang · 发表于 2022-9-20 12:13

http://bbs.mjtd.com/thread-186269-1-1.html

mituzhe · 发表于 2022-9-20 15:20

guosheyang 发表于 2022-9-20 12:13
http://bbs.mjtd.com/thread-186269-1-1.html

这个绝对是最佳答案。我又学习到了

w090212y · 发表于 2022-9-20 19:33

我有一个插件可以实现，我也是结构的

xyp1964 · 发表于 2022-9-21 14:24

664571221 · 发表于 2022-9-21 14:35

mituzhe 发表于 2022-9-20 15:20
这个绝对是最佳答案。我又学习到了

如何运行呢？

664571221 · 发表于 2022-9-21 14:37

w090212y 发表于 2022-9-20 19:33
我有一个插件可以实现，我也是结构的

什么插件呢

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

[提问] 各位大神看下实线如何批量生成轮廓线

最佳答案

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源