布满填充

lee50310

sunny_8848 发表于 2021-9-27 19:27
将预估距离均分(E)按我上面的思路改下就行，这样输入预估距离(这个预估距离自己有数的)，程序计算实际距离 ...

那你不是可以用 均分(D) 輸入 25 個 也可得到 距離 40
選擇方法 -[定距(M)/均分(D)/預估距離均分(E)] <E>:
因為你後面 那個選項 預估距離均分(E) 的算法會產生誤差  

截取程式中 預估距離均分(E) 算法 的部份程式碼

(or (= SpaceMethod "e")(= SpaceMethod "E"))         ;預估距離均分(E)
         (initget (+ 1 2 4))
         (setq EachSPAce (getdist "\n輸入每個間隔的距離: "))
         (setq NumSpace (fix (+ (/ (- Ent1Length l-s) EachSPAce) 0.5)) )
         (setq temp EachSPAce )
         (setq EachSPAce (/ (- Ent1Length l-s) NumSpace))                ;實際間距   
         (princ (strcat "\n預期間距：" (rtos temp 2 2) "  實際間距：" (rtos EachSPAce 2 2) "   可佈滿間隔數:" (rtos NumSpace 2 0) ))
    )

lee50310

上圖你可比較一下

同樣周長 1003.57

均分(D)  24個  距離 41.81
均分(D)  25個  距離 40.14
均分(D)  26個  距離 38.6
--------------------------這個都能剛好分佈



但是預估距離均分(E) 25個  距離 39.34  
這個距離值39.34 他比上面的 26個大 但比 24個小
不能均佈所以會有誤差值  

sunny_8848

实际就是把D和E综合下。现在的程序，D选项要输入间隔数，但这个间隔数我要标注直线长度和圆弧长度得到路径总长度，然后手工计算 ：总长度/预估间距  ，得到间隔数目，这样的工作量有点大。E选项，我输入预估间距（这个距离我根据矩形宽度可以凭经验瞬间得到），然后程序根据 总长度/预估间距 得到间隔数目（可能含小数，需取整，然后得到实际间距）并画图，这样是不会有误差的。相当于E这个选项我只要输入一个很容易心算得到的预估间距就行了

lee50310

sunny_8848 发表于 2021-9-27 21:09
实际就是把D和E综合下。现在的程序，D选项要输入间隔数，但这个间隔数我要标注直线长度和圆弧长度得到路径 ...

好像有點懂 ,依你說的,我試著改改看 ，不過沒辦法馬上給你,
可能要等明天吧!

sunny_8848

好的，谢谢您。实际就是把那个D选项要输入 的等分数目，改成我容易输入的预估间距，然后根据总长度和预估间距自动计算等分数目和实际间距。

lee50310

其實你寫得很清楚 ! 很抱歉! 昨天頭腦鈍鈍思路不清晰
今早子細一看豁然明白 ,已改好 , 我把 選擇項 均分(D) 保留  
預估距離均分(E) 項目 改成你所說的算法   請至37樓下載 TT9a.lsp
請再測試看看是不是 如你所說

sunny_8848

输入预估距离选项达到预期了，可是路径是直线或半圆弧时，矩形框布置超出了范围，以前的版本是改好了的，是不是每种方式的算法有点区别。

lee50310

sunny_8848 发表于 2021-9-28 13:49
输入预估距离选项达到预期了，可是路径是直线或半圆弧时，矩形框布置超出了范围，以前的版本是改好了的，是 ...

可能跟 物件1的插入點有關
之前版本插入點物件1 需點選
後面的版本插入點改為自動選取物體最小矩形框之左下點所以有空隙
目前在忙,晚一點再幫你改回手動選取插入點 , 若是小矩形 插入點選中點會比較貼近 物2

lee50310

改好了 ,請測試看看

sunny_8848

还是超出范围了，实际需要的就是37楼的那个tt6的效果，首尾两个矩形框边在刚好直线(圆弧)两端点