AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~

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

1頁(共2頁) 1, 2  下一步

向下

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

發表 由 x26811199 于 2011-11-03, 13:32

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

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

蘋果爸發表的複製性質我已經用過 但是依然不行@@'
avatar
x26811199
一般會員
一般會員

文章總數 : 24
年齡 : 29
來自 : 鑫北市樹林區
職業 : 剛接觸美工
愛好 : 鋼琴~網球~
個性 : 樂天開朗
使用年資 : 新手初學
使用版本 : 2008
經驗值 : 2639
威望值 : 0
注冊日期 : 2011-10-15
男 摩羯座 龍

回頂端 向下

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

發表 由 Tiger&蘋果爸 于 2011-11-04, 12:03

這部份沒有內建的指令可以轉!
是否可以上傳DWG來測試!

____________________________________________________________________________________
avatar
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 17994
年齡 : 42
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 69021
威望值 : 13382
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

回頂端 向下

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

發表 由 x26811199 于 2011-11-04, 17:23

蘋果爸 我將檔案寄給你~
上傳那個我不太會用......
麻煩您惹
附件
777777777.zip 您無權下載這里的附件。(25 Kb) 下載 13 次
avatar
x26811199
一般會員
一般會員

文章總數 : 24
年齡 : 29
來自 : 鑫北市樹林區
職業 : 剛接觸美工
愛好 : 鋼琴~網球~
個性 : 樂天開朗
使用年資 : 新手初學
使用版本 : 2008
經驗值 : 2639
威望值 : 0
注冊日期 : 2011-10-15
男 摩羯座 龍

回頂端 向下

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

發表 由 Tiger&蘋果爸 于 2011-11-04, 17:41

x26811199 寫到:蘋果爸 我將檔案寄給你~
上傳那個我不太會用......
麻煩您惹
很簡單的~已經先幫您上傳!
認同

上傳方式請參考:「教學」論壇上傳附件功能

____________________________________________________________________________________
avatar
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 17994
年齡 : 42
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 69021
威望值 : 13382
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

回頂端 向下

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

發表 由 judyyai 于 2011-11-04, 21:20

請問你客戶用甚麼軟體
下載你的圖~可以抓到雲行線的四分點~用掣點抓取
不過有281個雲行"圓"要抓很久 不玩了


____________________________________________________________________________________
avatar
judyyai
管理顧問
管理顧問

文章總數 : 7655
年齡 : 41
來自 : 台南
職業 : 機械製圖
愛好 : 電腦相關
個性 : think too much...
使用年資 : 10↑
使用版本 : AC2014(開始於2015九月底)
AutoCAD基礎篇等級 : 10星級
積分 : 392
最佳解答 : 1
經驗值 : 27611
威望值 : 3472
發帖精華 : 2
回帖精華 : 4
注冊日期 : 2008-11-19
2D基礎函授 3D基礎函授 顧問外掛程式 經典問與答讀者 藍鵲2號
2009聚會勳章 串連貼紙成功 女 巨蟹座 蛇

回頂端 向下

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

發表 由 adslwang 于 2011-11-05, 00:36

試試看吧!應該可以幫到你.....
測試的時後特別用紅色的色系來作更改區別,如果不想要再自行修改...
其次是該圖連直線條也是雲形線,在選取的時後要小心..........
我最後只能夠篩選到雲形線而已..不知道其它前輩有沒有更好的方法...
代碼:

      (defun c:ttoo3()
      (SETVAR "CMDECHO" 0)
      (setq FTT (getint "\n 輸入圓直徑大小: "))
      (princ "請選預替換的雲型線 ")
      (setq en (ssget '((0 . "spline"))))
      (setq ppp (sslength en))
      (setq qqq 0) 
      (repeat ppp
      (setq ggg (ssname en qqq))
      (command "-color" 1)
      (setq hhh (entget ggg))
      (setq pt1 (cdr (assoc 10 hhh)))
      (command "circle" "2p" PT1 (polar pt1 (* pi 1.5) FTT))
      (setq qqq (+ qqq 1)))
      (command "erase" en "")
      (command "-color" "bylayer")
      (princ (strcat "\n共有 " (itoa ppp) " 個雲型線物件替換成圓物件...."))
      (prin1)
      )
打瞌睡

Tiger&蘋果爸 寫到:讚啦!! 謝謝熱心程式分享~< 積分 +1>
[公告]關於團隊成員的回文及貢獻




Tiger&蘋果爸 在 2011-11-05, 15:31 作了第 1 次修改 (原因 : 讚一個!!)
avatar
adslwang
高級會員
高級會員

文章總數 : 376
年齡 : 40
來自 : 台南
職業 : 自由業
愛好 : 電腦、旅行
個性 : 樂觀
使用年資 : 1年
使用版本 : 2009
積分 : 17
經驗值 : 4984
威望值 : 355
回帖精華 : 1
注冊日期 : 2008-10-02
藍鵲88號
男 處女座 馬

回頂端 向下

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

發表 由 judyyai 于 2011-11-05, 13:41

adslwang 寫到:試試看吧!應該可以幫到你.....
測試的時後特別用紅色的色系來作更改區別,如果不想要再自行修改...
其次是該圖連直線條也是雲形線,在選取的時後要小心..........
我最後只能夠篩選到雲形線而已..不知道其它前輩有沒有更好的方法...
Spoiler(用來隱藏帖子內容):
代碼:

      (defun c:ttoo3()
      (SETVAR "CMDECHO" 0)
      (setq FTT (getint "\n 輸入圓直徑大小: "))
      (princ "請選預替換的雲型線 ")
      (setq en (ssget '((0 . "spline"))))
      (setq ppp (sslength en))
      (setq qqq 0) 
      (repeat ppp
      (setq ggg (ssname en qqq))
      (command "-color" 1)
      (setq hhh (entget ggg))
      (setq pt1 (cdr (assoc 10 hhh)))
      (command "circle" "2p" PT1 (polar pt1 (* pi 1.5) FTT))
      (setq qqq (+ qqq 1)))
      (command "erase" en "")
      (command "-color" "bylayer")
      (princ (strcat "\n共有 " (itoa ppp) " 個雲型線物件替換成圓物件...."))
      (prin1)
      )
打瞌睡


這LSP真不錯用~ 給你拍拍手~佛心來的~ 認同
要先求得雲行線產生之圓直徑數據~這點~可以用掣點方式求得
非圓形的雲行線~可以用圖層去控制關閉就好~
可是不能全選~要分次~ 全選會有錯誤


代碼:
指令: ttoo3

 輸入圓直徑大小: 9
請選預替換的雲型線
選取物件: 指定對角點: 找到 281 個

選取物件:
*無效*
; 錯誤: 函數被取消

但是有些還是無法選取 會一直有錯誤
代碼:
令:  TTOO3
 輸入圓直徑大小:  請選預替換的雲型線
選取物件: 找到 1 個

選取物件:  ; 錯誤: 損壞的引數類型: numberp: nil

指定圓直徑的第二個端點: *取消*

如圖 紅色為LSP重新繪製,綠色為變更圖層後的雲行線的圓 (TEST 版本 AutoCAD 2010)


最後有幾個lsp不能畫...
https://redcdn.net/ihimizer/img64/9378/20111105140154.png

____________________________________________________________________________________
avatar
judyyai
管理顧問
管理顧問

文章總數 : 7655
年齡 : 41
來自 : 台南
職業 : 機械製圖
愛好 : 電腦相關
個性 : think too much...
使用年資 : 10↑
使用版本 : AC2014(開始於2015九月底)
AutoCAD基礎篇等級 : 10星級
積分 : 392
最佳解答 : 1
經驗值 : 27611
威望值 : 3472
發帖精華 : 2
回帖精華 : 4
注冊日期 : 2008-11-19
2D基礎函授 3D基礎函授 顧問外掛程式 經典問與答讀者 藍鵲2號
2009聚會勳章 串連貼紙成功 女 巨蟹座 蛇

回頂端 向下

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

發表 由 x26811199 于 2011-11-07, 10:23

adslwang那個是什麼阿....應該要放在哪裡

JUDY大大~我也是一個一個慢慢移~雖然他沒有中心點
但是還友四邊的點 一個一個抓 抓到眼睛快瞎了...

現在才一個字而已...

我總共弄了''三重妙聖宮'' <~這五個字~
一個圓一個圓移動.....簡直快死了
大概弄了七百多孔吧.....差點眼睛度數就要再增加了

想說有時候我光弄這一個case 其他的都會被拖到
所以趕緊試來詢問一下各位高手@@

LSP那個要怎麼用呀..
avatar
x26811199
一般會員
一般會員

文章總數 : 24
年齡 : 29
來自 : 鑫北市樹林區
職業 : 剛接觸美工
愛好 : 鋼琴~網球~
個性 : 樂天開朗
使用年資 : 新手初學
使用版本 : 2008
經驗值 : 2639
威望值 : 0
注冊日期 : 2011-10-15
男 摩羯座 龍

回頂端 向下

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

發表 由 x26811199 于 2011-11-07, 10:30

剛剛看了一下JUDY大大的才發現~原來JUDY大大畫了一個十字在求中心點~

我是弄一弄才發現~其實他四邊都有點~我畫出一個直徑9MM正圓

用複製選項選取左邊的四分點~接著在覆蓋上去的時候對準左邊

正圓就很剛好的複製在雲型線上面了~

只是說很奇怪的是 客戶有些雲行線得四分點很怪= =

有些左邊沒 有些右邊 很麻煩 浪費很多時間...
avatar
x26811199
一般會員
一般會員

文章總數 : 24
年齡 : 29
來自 : 鑫北市樹林區
職業 : 剛接觸美工
愛好 : 鋼琴~網球~
個性 : 樂天開朗
使用年資 : 新手初學
使用版本 : 2008
經驗值 : 2639
威望值 : 0
注冊日期 : 2011-10-15
男 摩羯座 龍

回頂端 向下

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

發表 由 Tiger&蘋果爸 于 2011-11-07, 11:21

x26811199 寫到:adslwang那個是什麼阿....應該要放在哪裡
LSP那個要怎麼用呀..
請把 adslwang 提供的LISP代碼複製後 → 開啟記事本貼上 → 副檔名請存成LSP格式(如:ttoo3.lsp) → 掛入到AutoCAD中 [影片]自訂CUI 載入LISP → 指令名稱為 ttoo3
LSP可以放在 C:\Program Files\AutoCAD 2008\support 中!
建議你多搜尋相關文章了解一下LISP的用途及作法!

____________________________________________________________________________________
avatar
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 17994
年齡 : 42
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 69021
威望值 : 13382
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

回頂端 向下

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

發表 由 Tiger&蘋果爸 于 2011-11-07, 11:43

adslwang 寫到:試試看吧!應該可以幫到你.....
測試的時後特別用紅色的色系來作更改區別,如果不想要再自行修改...
其次是該圖連直線條也是雲形線,在選取的時後要小心..........
我最後只能夠篩選到雲形線而已..不知道其它前輩有沒有更好的方法...
竊喜 我有稍作修改,您再參考一下,也請其他更有經驗的朋友不吝指教~
1.加入UNDO設定程式開始
2.儲存原始圖層名稱及物件鎖點
3.新增圖層名稱畫圓
4.畫圓不輸入半徑,改用抓取第二個串列資料



judyyai 寫到: 這LSP真不錯用~ 給你拍拍手~佛心來的~ 認同
要先求得雲行線產生之圓直徑數據~這點~可以用掣點方式求得
非圓形的雲行線~可以用圖層去控制關閉就好~
可是不能全選~要分次~ 全選會有錯誤
judy我試過可以一次完成,是否可以再試試~ 認同