[討論] 請問一下如何將雲型線與橢圓的圓轉換成正圓~

由 **x26811199** 2011-11-03, 13:32

主題回顧 :

如我今天所提問的~顧客自行將檔案排孔排好後~因為對方不是用autocad的關係
所以我必須將檔案轉成CAD的檔~
但是其他軟體轉換成CAD的檔案時~圓會變成危雲行線 (重點還沒有中心點)

這樣下來排孔花了不少時間不清楚有無將正圓直接複製在雲行線上
或是直接替換成正圓的功能~

蘋果爸發表的複製性質我已經用過但是依然不行@@'

由 **adslwang** 2011-11-15, 20:07

謝謝ㄚ希大大
雖然你copy蘋果爸的：「錯字錯字....每次都繪有錯字Orz」還是有錯字捏
另外再問一下：PT2所取得的座標是相對座標，那'(0 0)究是等於PT1嘛?等於這一個橢圓的圓心基準的的意思嘛！
因為distance的'(0 0)我都以為是圖面的0,0,0，再跟圖面的橢圓第二點來做長度的計算，那每一個長度都不會一樣！
請ㄚ希大大麻煩您再給我指導一下謝謝！

由 **leoneriol** 2011-11-16, 10:37

adslwang 寫到:謝謝ㄚ希大大
雖然你copy蘋果爸的：「錯字錯字....每次都繪有錯字Orz」還是有錯字捏

我不是ㄚ希大啦!!雖然說你這樣一值呼喚他確實是會讓他非常得意沒錯!!但是我不開心阿不會吧

錯字我再找機會去改啦~~懒了不玩了

adslwang 寫到:
另外再問一下：PT2所取得的座標是相對座標，那'(0 0)究是等於PT1嘛?等於這一個橢圓的圓心基準的的意思嘛！

不 '(0 0)並不等於PT1 而是圖面WCS座標中的原點0,0,0
也不是等於這一個橢圓的圓心基準點!!
橢圓的圓心基準點座標就是PT1
也就是因為程式中取得的PT2是"相對座標"的關係
所以我才會再多一行(setq PT3 (polar Pt1 0 (distance '(0 0) pt2)))把PT2改成絕對座標
因為PT3這個絕對座標才是我要的圓邊上的一點

adslwang 寫到:
因為distance的'(0 0)我都以為是圖面的0,0,0，再跟圖面的橢圓第二點來做長度的計算，那每一個長度都不會一樣！
請ㄚ希大大麻煩您再給我指導一下謝謝！

'(0 0)確實是圖面的0,0,0沒錯
這裡你要注意一下!!正確說法是"相對於"橢圓圓心的長軸端點!!是相對的相對座標,而不是圖面上橢圓的第二點喔!那是絕對座標
長度都不一樣?意思是??我不了?
吼~~~!!!!!!!!

這不是ㄚ希大大!!這不是ㄚ希大大!!(害我都想吃肯德基了

)

代碼:: (if (= (cdr (assoc 0 enidate)) "ELLIPSE") (progn (setq PT1 (cdr (assoc 10 enidate)));取出群碼為10的橢圓中心點座標並存於PT1 (setq PT2 (cdr (assoc 11 enidate)));取出群碼為11的相對於橢圓中心點的長軸端點座標並存於PT2(因為是"相對於"中心點的長軸端點座標,所以這裡取得的是相對座標) (setq PT3 (polar Pt1 0 (distance '(0 0) pt2))) ;;PT3=從PT1(基準點)開始往弳度0的方向找到距離為"座標點0,0,0 到 PT2"的點 (command "circle" PT1 PT3);畫圓 "圓心及圓邊上的一點" (setq i (+ i 1)) (setq ellipseN (1+ ellipseN)) ) )