(求助)批量生成内轮廓
本帖最后由 999999 于 2022-3-29 23:26 编辑各位大神们，论坛里好像没有关于内轮廓的相关贴子，所以小弟我求助一个关于生成内轮廓的功能，
1.选择需要生成内轮廓的图形（可以识别多段线、构造线、直线）
2.生成的内轮廓为当前图层
3.完成
小弟我期待大神出手
样板改了一下，大神看一下，还烂不烂了;P;P 本帖最后由 xyp1964 于 2022-11-15 12:34 编辑
区域边界：
院长大人，图改了一下，您有空可以看看还算不算烂了:lol:lol
院长大人，图改了一下，您有空可以看看还算不算烂了:lol:lol xyp1964 发表于 2022-3-30 13:27
区域边界：
院长大人您好，我用的效果是这样的;P;P
这个我好想在论坛里面看见过，记不得了，你搜搜下 403181713 发表于 2022-3-30 14:24
这个我好想在论坛里面看见过，记不得了，你搜搜下
有没有关键字来着，我就是找了没有找到呢:D:D 本帖最后由 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" ssjSS PT "")
(COMMAND "_.erase"ss "");删除生成的边界线！
)
(princ);_关闭程序返回
);_程序结束 网上的点击内偏移，你改改就能实现 bai2000 发表于 2022-3-30 14:56
网上的点击内偏移，你改改就能实现
上面那个我也不知道怎么改呀，而且那个是点击后，生成框再偏移，其实操作和BO差不多吧，多了一个偏移的功能，还是要一个一个点，我是想，能不能有一个框选的直接生成面域，像院长贴的那个动图一样的呢