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

主題回顧 :

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

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

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

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

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))
   )
      )

leoneriol 大大 真是對不起 是我的錯
在我的印像中 常常在這裏對 lisp 有發表的就屬您跟ㄚ希大大讓我的印像最深
叫錯名 我很尷尬 (奈A安捏) 所以 拍謝捏
肯德雞有機會再請你吃嘿......

謝謝您的回答 我了解的 感謝...

adslwang 寫到:leoneriol 大大 真是對不起 是我的錯
在我的印像中 常常在這裏對 lisp 有發表的就屬您跟ㄚ希大大讓我的印像最深
叫錯名 我很尷尬 (奈A安捏) 所以 拍謝捏
肯德雞有機會再請你吃嘿......

謝謝您的回答 我了解的 感謝...

呵呵~謝謝你的讚美囉!

一起加油吧!!從你提出的問題的深度我相信你一定有能力超越我的

leoneriol 寫到:呵呵~謝謝你的讚美囉!
一起加油吧!!從你提出的問題的深度我相信你一定有能力超越我的

是啊～
論壇裡的高手真的是越來越多囉！
這是我樂見的事，而我的收穫也很多！
大家一起無限進步吧～