(求助)批量生成内轮廓

999999 · 发表于 2022-3-29 21:55

本帖最后由 999999 于 2022-3-29 23:26 编辑

各位大神们，论坛里好像没有关于内轮廓的相关贴子，所以小弟我求助一个关于生成内轮廓的功能，
1.选择需要生成内轮廓的图形（可以识别多段线、构造线、直线）
2.生成的内轮廓为当前图层
3.完成

小弟我期待大神出手

样板改了一下，大神看一下，还烂不烂了

xyp1964 · 发表于 2022-3-29 21:55

本帖最后由 xyp1964 于 2022-11-15 12:34 编辑

区域边界：

999999 · 发表于 2022-3-29 23:27

院长大人，图改了一下，您有空可以看看还算不算烂了

999999 · 发表于 2022-3-29 23:29

院长大人，图改了一下，您有空可以看看还算不算烂了

999999 · 发表于 2022-3-30 14:13

xyp1964 发表于 2022-3-30 13:27
区域边界：

院长大人您好，我用的效果是这样的

403181713 · 发表于 2022-3-30 14:24

这个我好想在论坛里面看见过，记不得了，你搜搜下

999999 · 发表于 2022-3-30 14:35

403181713 发表于 2022-3-30 14:24
这个我好想在论坛里面看见过，记不得了，你搜搜下

有没有关键字来着，我就是找了没有找到呢:D:D

bai2000 · 发表于 2022-3-30 14:55

本帖最后由 bai2000 于 2022-3-30 14:57 编辑

(defun c:Npy()
;错误恢复捕捉
(defun *MYERR* (MSG)
(setvar "CMDECHO" CMD_OLD)
(setvar "OSMODE" OS_OLD)
(setq *ERROR* *OLDERR*)
(if (= MSG "完美退出。谢谢使用。")
(princ (strcat "\\n>>>" MSG))
(princ "\\n>>>虽然中途退出了，对象捕捉已经被恢复。")
)
(princ)
)
(setq *OLDERR* *ERROR*
*ERROR*  *MYERR*
OS_OLD (getvar "OSMODE")
CMD_OLD  (getvar "CMDECHO")
)
(setvar "osmode" 0)　
(if (not ssj) (setq ssj (getstring "\n请输入偏移量:")) (setq ssj (if (/= "" (setq ss2k (getstring (strcat "\n请输入偏移量<" ssj ">:")))) ss2k ssj)))
(while
  (setq pt (getpoint "\n闭合范围里取点(退出ESC)："))
(command "bpoly" pt "")
(setq ssaa (entlast))
  (command "select" ssaa  "")
  (setq ss (ssget "p" '((0 . "LWPOLYLINE,region,circle"))))
(command "offset" ssj  SS PT "")
(COMMAND "_.erase"  ss "");删除生成的边界线！
)
(princ);_关闭程序返回
);_程序结束

bai2000 · 发表于 2022-3-30 14:56

网上的点击内偏移，你改改就能实现

999999 · 发表于 2022-3-30 15:01

bai2000 发表于 2022-3-30 14:56
网上的点击内偏移，你改改就能实现

上面那个我也不知道怎么改呀，而且那个是点击后，生成框再偏移，其实操作和BO差不多吧，多了一个偏移的功能，还是要一个一个点，我是想，能不能有一个框选的直接生成面域，像院长贴的那个动图一样的呢

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

[提问] (求助)批量生成内轮廓

最佳答案

点评

本帖子中包含更多资源

本帖子中包含更多资源