请教大侠如何选择封闭多段线自动画内部定距网格

wanhongron

工作中经常用到在多段线内部画指定间距的水平、垂直正交网格，类似填充但不是填充，请问大效如何实现

lee50310

wanhongron 发表于 2022-7-27 16:22
@lee50310，谢谢，能用，如果能改进一下更完美，把手绘区域范围改为直接选择多段线，另外间距可自动平均分 ...

寫好了 ! 請測試看看



選擇封閉矩形物體輸入水平,垂直數目, 間距自動平均分配
;;執行指令:grd2

酷酷提

lee50310 发表于 2022-7-27 12:58
像這個天花板網格程式嗎?  如動圖所示

cgrid2.lsp  取自網路

老師，麻煩請問一下這個代碼的均分依據 是 以哪個點或者坐標為參照 來分布的呢？沒有找到規律呢。。。
或者說有沒有可能可以自己設置參照物呢？
例如
1：以哪兩條邊為參照，往當前选择的形狀內部分布；
2：以當前选择形狀的中心點為參照，往當前选择的形狀外擴（內部）分布

xyp1964

1. (defun c:tt ()
   
2.   (setvar 'HPORIGINMODE 1)
   
3.   (setq s1 (car (entsel "\n选择: ")))
   
4.   (command "hatch" "net" 100 0 s1 "")
   
5.   (command "Explode" (entlast))
   
6.   (princ)
   
7. )
   

(defun c:tt ()<br />   (setvar 'HPORIGINMODE 1)<br />   (setq s1 (car (entsel "\n选择: ")))<br />   (command "hatch" "net" 100 0 s1 "")<br />   (command "Explode" (entlast))<br />   (princ)<br /> )<br />

自贡黄明儒

填充后爆炸，省时省力。

ynhh

黄总的方法可能不精确，感觉不好办吧？

自贡黄明儒

ynhh 发表于 2022-7-27 10:18
黄总的方法可能不精确，感觉不好办吧？

可以精确的，您可以试一下。

ynhh

自贡黄明儒 发表于 2022-7-27 10:44
可以精确的，您可以试一下。

谢谢黄总肯定
我只是猜测
您这么说我肯定是相信的

wanhongron

请问下怎么精确填充呢

wanhongron

这个是填充的效果，两端及间距均达不到要求

自贡黄明儒

wanhongron 发表于 2022-7-27 11:38
这个是填充的效果，两端及间距均达不到要求

仔细看填充 ，不是在图中点一下就完了

wanhongron

好像间距不太精确，而且边线位置有点随意，达不到标注要求

lee50310

像這個天花板網格程式嗎?  如動圖所示

cgrid2.lsp  取自網路

執行指令:cgrid