如何将一个整体分割成多个个体
问题如图所示，求各位大佬解决，如何用LISP表示
点一：分割线会与要分割的图形有交点，分割线为直线
点二：分割线可以为两到三个
如果我还有哪说的不明白的，请大佬可以提出我说的不明白的地方
本帖最后由 mituzhe 于 2022-8-8 10:41 编辑
http://bbs.mjtd.com/thread-173390-1-1.html
另外可以参考这个帖子学习。完全符合你的要求。善用搜索，自我学习。
[求助]如何生成闭合边界？ - AutoLISP/Visual LISP 编程技术 - AutoCAD论坛 - 明经CAD社区 - Powered by Discuz! (mjtd.com)
搜索 闭合边界
本帖最后由 lee50310 于 2022-8-6 12:21 编辑
這裡有現成的,可參考看看 是不是這效果
<<<*** 雙線切割+切割字型功能 ***>>
http://bbs.mjtd.com/thread-184626-1-1.html
執行指令:pcut
1.是否切割文字 是/否? 否
2.輸入切割的寬度: 1
3.選取物體切割
停止切割按 Enter鍵
如動態圖所示
本帖最后由 世人皆醉 于 2022-8-6 13:42 编辑
lee50310 发表于 2022-8-6 12:18
這裡有現成的,可參考看看 是不是這效果
大佬，你这程序有几个问题
1、切割完后原有的长度会改变，中间那条线还在，怪怪的
2、只使用闭合连接体，比如直接用矩形命令画的矩形和直线画的矩形，直线画的是不能用的，会生成一个没有用的矩形
data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAABO0AAAFmCAYAAAAxlG6iAAAQpklEQVR4nO3dTYgeh33H8f88s2/PWtKuoqoY4Y1xkhoTB+L2UEqhUNqTAyGGgnPpoafegqGNW2oIrTE0pKYxTS7JtZSWmB6ck0+FQKHQXpKGqqfm0AhUt2vJelntal9mpodAWuFIWVmrZ34jfT43aQfmB88IPXyf2WeaZ557YShGde7cx+qdt/+mXnr5d+vKlatjzwEAAAAeUxpFjtnYAwAAAACAO4l2AAAAABBGtAMAAACAMKIdAAAAAIQR7QAAAAAgjGgHAAAAAGFEOwAAAAAII9oBAAAAQBjRDgAAAADCiHYAAAAAEEa0AwAAAIAwoh0AAAAAhBHtAAAAACCMaAcAAAAAYUQ7AAAAAAgj2gEAAABAGNEOAAAAAMKIdgAAAAAQRrQDAAAAgDCiHQAAAACEEe0AAAAAIIxoBwAAAABhRDsAAAAACCPaAQAAAEAY0Q4AAAAAwoh2AAAAABBGtAMAAACAMKIdAAAAAIQR7QAAAAAgjGgHAAAAAGFEOwAAAAAII9oBAAAAQBjRDgAAAADCiHYAAAAAEEa0AwAAAIAwoh0AAAAAhBHtAAAAACCMaAcAAAAAYUQ7AAAAAAgj2gEAAABAGNEOAAAAAMKIdgAAAAAQRrQDAAAAgDCiHQAAAACEEe0AAAAAIIxoBwAAAABhRDsAAAAACCPaAQAAAEAY0Q4AAAAAwoh2AAAAABBGtAMAAACAMKIdAAAAAIQR7QAAAAAgjGgHAAAAAGFEOwAAAAAII9oBAAAAQBjRDgAAAADCiHYAAAAAEEa0AwAAAIAwoh0AAAAAhBHtAAAAACCMaAcAAAAAYUQ7AAAAAAgj2gEAAABAGNEOAAAAAMKIdgAAAAAQRrQDAAAAgDCiHQAAAACEEe0AAAAAIIxoBwAAAABhRDsAAAAACCPaAQAAAEAY0Q4AAAAAwoh2AAAAABBGtAMAAACAMKIdAAAAAIQR7QAAAAAgjGgHAAAAAGFEOwAAAAAII9oBAAAAQBjRDgAAAADCiHYAAAAAEEa0AwAAAIAwoh0AAAAAhBHtAAAAACCMaAcAAAAAYUQ7AAAAAAgj2gEAAABAGNEOAAAAAMKIdgAAAAAQRrQDAAAAgDCiHQAAAACEEe0AAAAAIIxoBwAAAABhRDsAAAAACCPaAQAAAEAY0Q4AAAAAwoh2AAAAABBGtAMAAACAMKIdAAAAAIQR7QAAAAAgjGgHAAAAAGFEOwAAAAAII9oBAAAAQBjRDgAAAADCiHYAAAAAEEa0AwAAAIAwoh0AAAAAhBHtAAAAACCMaAcAAAAAYUQ7AAAAAAgj2gEAAABAGNEOAAAAAMKIdgAAAAAQRrQDAAAAgDBLYw94HLWnz9/5F/PNuvT+btX8XLWn2w8d393cXtAyAAAA4HGiUeRqnnnuhWHsEY+SleXle/68PXWufv0zT9dee7qGau55bFNDzbub9U//9p/V7Vy563EHh4cfaSsAAADw6NIopk20O0Ery8v1G7/2K7Xbbvzci/0kNNXX+tEH9Y///K/+UQAAAAA/pVFMn1+PPWG77Zl699wrdXt26qGfa63fqc9feu2hnwcAAACYHo1i2kS7EzbUrG7PTtXe7MyCzgcAAADwYRrFtHl6LAAAAACEEe0AAAAAIIxoBwAAAABhRDsAAAAACCPaAQAAAEAYT48FABhJe/r82BOOrbu5PfYEAIDHimgHADCC9vT5+s0XPlG77Zkagn/5oam+1rsb9b0fCHcAAIsk2p2wpvpa63cWcq61fqeaplnIuQCAk7fbbtS7516p27NTY0+5q7V+p158/+tjzwAAPgKNYtpEuxO0vLxU692NevHKX9VQD/9Cbaqv1ZXlWj3zZB3tHT308wEAJ2e2draGaur27FTtzc6MPeeehprVbO18DZ23jgAwFavzcRrF8vJSHRwePvTzPQ688zphu+2ZhX1ivtbv1O/8z59Vu/l8La17KQFgStrVeVXdGHvGMTW1tPF8NWt7Yw8BAI6pXTmq3bZbbKP47z996Od5nCg9J2yo2YI/MW9qfWOrmn59QecDAE5Cs9RW1cWxZxxL01TNN7dqOOrGngIAHNN8tltD/XgSd/Xzs4l2E9fOmnr7zZfqwoULY08BAO7Dj967UV95fRrRrp019Z03v1CffNIbfgCYisuXL9eX3/jG2DN4AKLdxHX9UC+/+k7tudMOACalWWrr2dznT9yh64f64qvfdacdAEzIfLZbH/d526SJdpM31O71S7V74KUEgClpV+dVE4l2w1C1d+1Sdfu+0w4ApmJYOaoS7SZN6Zm6oaq7dtHTYwFgYoYnzlY9tTX2jGMa6uj6xepufTD2EADgmLr5UtXWp8eewQMQ7SZvqH7v/ep3ffINAFPStEd1MHu2VvtbY0+5p9X+Vh3M5tXf3q5+d3vsOQDAMfU1H3sCD0i0m7ymNjc3am3uHyMATMrm03X28L/qc1feqqFmY6+5q6aGWu+u1+YvPl214jvtAGAq1lZXxp7AAxLtJq5tZ/XNr3+tzp8/P/YUAOA+/Mt/XK2//7u/rnfPvVK3Z7lfbrfW79TnrrxVr/3R79WvfupjY88BAI5pe3u7/uJbfzv2DB6AaDdxXdfXl/7gj+v2/sHYUwCA+zE/V7/0qU/U7dmp2ptlf0v0MDT152+8XrV3ZewpAMAxra2u1Naznx17Bg9AtHsE3Nhfrlt7zdgzAID70M6Wx55wbEP95P1Gt7c69hQA4JiekHwmzys4dU1Vu/l8La17KQFgStrVeVXdGHvGMTW1tPF8NWsefAUAU9GuHNVPPnpjqpSeyWtqfWOrmn597CEAwH1oltqqujj2jGNpmqr55lYNRx5EAQBTMZ/tVtWPx57BAxDtJq6dNfX2my/VhQsXxp4CANyHH713o77y+jSiXTtr6jtvfqE++WT2d+8BAP/n8uXL9eU3vjH2DB6AaDdxXT/Uy6++U3vutAOASWmW2no296Gxd+j6ob746nfdaQcAEzKf7dbHfd42aaLd5A21e/1S7R54KQFgStrVedVEot0wVO1du1Tdvu+0A4CpGFaOqkS7SVN6Jq6pqu7axTraOxp7CgBwH4YnzlY9tTX2jGMa6uj6xepufTD2EADgmLr5UtXWpxd6zqZpFnq+R51od4IODxcfzvb3D2r/xnvVHx4u/NwAwEfXtEfV1FO11u+MPeWe1vqdaqqv/vZ29bvbY88BAI5p/3C5qhYb7fb3D0ZpI48q0W7iPLwZAKZrvbteL77/VvT/501VrYeHRQAgQ/J7mikS7QAARtDd3K7v/WDsFcfX3XSXHQDAIol2AAAjEcIAALib2dgDAAAAAIA7iXYAAAAAEEa0AwAAAIAwoh0AAAAAhBHtAAAAACCMp8eesKb6Wut3FnKutX6nmqZZyLkAAACAadEopk20O2HrRx/U5y+9VsPdDmhmtbqyUrvtRg1174u5qaHWu+u1f3BQNfQ/4+dVKyvLD7wZAAAAePRoFNPWPPPcC3d97bh/K8v3vkDbU+fqlz/7mfqHs79f+7Mn7nnsan+rfvvqt+r7P/z36nau3PW4g8PDj7QVAAAAeHSdfKP4dn3/hxc1igVxp90J+3kXZ3vU1by7Wb919ds/rdhNNTVrZ9V3fQ3/r383VTXvb9XBUVedix4AAAC4DyfbKIaa9zsaxQK5024E7enzd/x5c2OzvvmXX60v/eGf1LXr1z50fHdze1HTAAAAgMeIRpHLnXYj+NAFvtLV1i+sV+1dqe7m1XFGAQAAAI8djSLXbOwBAAAAAMCdRDsAAAAACCPaAQAAAEAY0Q4AAAAAwoh2AAAAABBGtAMAAACAMKIdAAAAAIQR7QAAAAAgjGgHAAAAAGFEOwAAAAAII9oBAAAAQBjRDgAAAADCiHYAAAAAEEa0AwAAAIAwoh0AAAAAhBHtAAAAACCMaAcAAAAAYUQ7AAAAAAgj2gEAAABAGNEOAAAAAMKIdgAAAAAQRrQDAAAAgDCiHQAAAACEEe0AAAAAIIxoBwAAAABhRDsAAAAACCPaAQAAAEAY0Q4AAAAAwoh2AAAAABBGtAMAAACAMKIdAAAAAIQR7QAAAAAgjGgHAAAAAGFEOwAAAAAII9oBAAAAQBjRDgAAAADCiHYAAAAAEEa0AwAAAIAwoh0AAAAAhBHtAAAAACCMaAcAAAAAYUQ7AAAAAAgj2gEAAABAGNEOAAAAAMKIdgAAAAAQRrQDAAAAgDCiHQAAAACEEe0AAAAAIIxoBwAAAABhRDsAAAAACCPaAQAAAEAY0Q4AAAAAwoh2AAAAABBGtAMAAACAMKIdAAAAAIQR7QAAAAAgjGgHAAAAAGFEOwAAAAAII9oBAAAAQBjRDgAAAADCiHYAAAAAEEa0AwAAAIAwoh0AAAAAhBHtAAAAACCMaAcAAAAAYUQ7AAAAAAgj2gEAAABAGNEOAAAAAMKIdgAAAAAQRrQDAAAAgDCiHQAAAACEEe0AAAAAIIxoBwAAAABhRDsAAAAACCPaAQAAAEAY0Q4AAAAAwoh2AAAAABBGtAMAAACAMKIdAAAAAIQR7QAAAAAgjGgHAAAAAGFEOwAAAAAII9oBAAAAQBjRDgAAAADCiHYAAAAAEEa0AwAAAIAwoh0AAAAAhBHtAAAAACCMaAcAAAAAYUQ7AAAAAAgj2gEAAABAGNEOAAAAAMKIdgAAAAAQRrQDAAAAgDCiHQAAAACEEe0AAAAAIIxoBwAAAABhRDsAAAAACCPaAQAAAEAY0Q4AAAAAwoh2AAAAABBGtAMAAACAMKIdAAAAAIQR7QAAAAAgjGgHAAAAAGFEOwAAAAAII9oBAAAAQBjRDgAAAADCiHYAAAAAEEa0AwAAAIAwoh0AAAAAhBHtAAAAACCMaAcAAAAAYUQ7AAAAAAgj2gEAAABAGNEOAAAAAMKIdgAAAAAQRrQDAAAAgDCiHQAAAACEEe0AAAAAIIxoBwAAAABhRDsAAAAACCPaAQAAAEAY0Q4AAAAAwoh2AAAAABBGtAMAAACAMKIdAAAAAIQR7QAAAAAgjGgHAAAAAGFEOwAAAAAII9oBAAAAQBjRDgAAAADCiHYAAAAAEEa0AwAAAIAwoh0AAAAAhBHtAAAAACCMaAcAAAAAYUQ7AAAAAAgj2gEAAABAGNEOAAAAAMKIdgAAAAAQRrQDAAAAgDCiHQAAAACEEe0AAAAAIIxoBwAAAABhRDsAAAAACCPaAQAAAEAY0Q4AAAAAwoh2AAAAABBGtAMAAACAMKIdAAAAAIQR7QAAAAAgjGgHAAAAAGFEOwAAAAAII9oBAAAAQBjRDgAAAADCiHYAAAAAEEa0AwAAAIAwoh0AAAAAhBHtAAAAACCMaAcAAAAAYUQ7AAAAAAgj2gEAAABAGNEOAAAAAMKIdgAAAAAQRrQDAAAAgDCiHQAAAACEEe0AAAAAIIxoBwAAAABhRDsAAAAACCPaAQAAAEAY0Q4AAAAAwoh2AAAAABBGtAMAAACAMKIdAAAAAIQR7QAAAAAgjGgHAAAAAGFEOwAAAAAII9oBAAAAQBjRDgAAAADCiHYAAAAAEEa0AwAAAIAwoh0AAAAAhBHtAAAAACCMaAcAAAAAYUQ7AAAAAAgj2gEAAABAGNEOAAAAAMKIdgAAAAAQRrQDAAAAgDCiHQAAAACEEe0AAAAAIIxoBwAAAABhRDsAAAAACCPaAQAAAEAY0Q4AAAAAwvwvYWZU+/e81cgAAAAASUVORK5CYII=
3、选择第一点和第二点不如直接选择直线实用，如果原本图上有标注，会识别错误，不能用
世人皆醉 发表于 2022-8-6 13:13
大佬，你这程序有几个问题
1、切割完后原有的长度会改变，中间那条线还在，怪怪的
這個程式本來就不是為這個而寫,
所以有些不符合的地方也是正常的
程式源碼已釋出,你只要稍做修改就可解決
lee50310 发表于 2022-8-6 15:29
這個程式本來就不是為這個而寫,
所以有些不符合的地方也是正常的
程式源碼已釋出,你只要稍做修改就可解 ...
大佬，能帮忙改下吗，新手小白一个，不太了解 世人皆醉 发表于 2022-8-6 15:41
大佬，能帮忙改下吗，新手小白一个，不太了解
很抱歉! 那個程式是裁剪 須要輸入裁剪寬度
所以物體會被裁掉一個寬度
後來發現並不適用於你的問題也無法從這個程式去做修改
要讓畫分後的尺寸不變
建議可用CAD 提供的指令 bpoly來手動完成
这些东西本身没多大难度，自己稍微学习下， 就可以解决 lee50310 发表于 2022-8-7 07:39
很抱歉! 那個程式是裁剪 須要輸入裁剪寬度
所以物體會被裁掉一個寬度
後來發現並不適用於你的問 ...
正解
页:
[1]