[已解決]如果有100個圓..中心線是要畫200次嗎??我畫的好累歐..

excause me
圓很多很多
1.一個圓畫完
2.中心線畫兩條
3.上面增加長度3
4.下面增加長度3
5.左邊增加長度3
6.右邊增加長度3
要把一個圓搞定要六個步驟==
偏偏公司的圖都很多很多圓
搞的我快瘋了......
我最近無意中發現有中心線標住這個東西
可是不會用= =!!!
看不懂怎麼用
在標住形式裡面有
在外面的功能表有看到
但是還是不會用
我按下去
應該是兩條線
變成四條線
然後顏色為什麼是青藍色的= =!!!
我說100個圓是不誇張的!!!
因為我們做出來的東西都很大
所以要鎖螺絲
上百個螺絲是很常見的
有沒有辦法讓圓畫完.......就有中心線呢.......還自動全部長度+3呢?????因為老師說長度要+3.......雖然我不懂為什麼.......cns有規定?????我很懷疑.......
thank you

onlygirl 寫到:excause me
圓很多很多

Spoiler（用來隱藏帖子內容）:

老師說的話別懷疑~真的有問題再改~要是你以後當老師~或是長輩~後輩或是學生懷疑你呢?有何感想??
飲水要思源阿......因為看到後面莫名很火大
以下不就都加三了?                            (我以後決定面試謊報經驗....三年.... )

要自動化的，可能要等人幫妳寫lisp了
自動繪製出中心線，這樣100個圓，妳只需要執行一次指令就ok了。

底下是剛剛測試的，但不知為何dimcenter會無法執行，畫不出中心線
看那位有空又好心的網友，會幫忙改一下。

代碼:


(defun c:DC ()
  (setq cmd (getvar "cmdecho"))
  (setq osm (getvar "osmode"))
;;;  (setvar "cmdecho" 0)
  (princ "\n DC 自動繪制中心線(Auto Drew Center)")
  (princ "\n 請輸入中心線線距：")
  (setq start_Leng (getint))
  (if (null start_Leng)
    (setvar "dimcen" 3)
    (setvar "dimcen" start_leng )
  )
  (setq en (SSGET "X" '((0 . "CIRCLE"))))
  (setq n (sslength en))
  (repeat n
    (command "dimCenter" en )
  )
  (setvar "osmode" osm)
  (setvar "cmdecho" cmd)
  (princ)
)

litung 寫到:要自動化的，可能要等人幫妳寫lisp了
自動繪製出中心線，這樣100個圓，妳只需要執行一次指令就ok了。

底下是剛剛測試的，但不知為何dimcenter會無法執行，畫不出中心線
看那位有空又好心的網友，會幫忙改一下。

Spoiler（用來隱藏帖子內容）:

不會改!但是有發現問題!
指令: _appload DC.lsp 成功載入。
指令: ; 錯誤: 已讀取損壞字元 (八進位): 0
而且無法載入,因為有改成DCQ指令

因為打DC是內建簡打指令
指令: dc
ADCENTER

另外 (setvar "dimcen" 3) 可能大於0 只能繪製中心標記

重寫一個土法練鋼的。用line指令，一條一條畫

使用方式：
輸入妳要的線距，再選取妳要標註的圓。可以一次選很多個。
ps：lisp的載入，請搜尋一下站內的文章。

代碼:


(defun C:QDC ()
  (princ "\n 自動繪製中心線")
  (princ "\n 請輸入中心線距：")
  (setq leng (getreal))
  (setq lengangle 0)
  (setq en (ssget))
  (setq n (sslength en)  i 0  )
  (repeat n
    (setq en1 (entget (ssname en i))
    cp  (cdr (assoc 10 en1)) ;;;中心點
    rd  (cdr (assoc 40 en1)) ;;;半徑    
    )
    ;;;繪製中心十字線
    (setq p1 (polar cp (+ lengAngle (* 0.5 pi)) leng))
    (setq p2 (polar cp (+ lengAngle (* -0.5 pi)) leng))
    (setq p3 (polar cp (+ lengAngle)  leng))
    (setq p4 (polar cp (+ lengAngle pi) leng))
    (command "line" p1 p2 "")
    (command "line" p3 p4 "")
    ;;;繪製右線
    (setq p1 (polar cp (+ lengAngle)  (* 2 leng)))
    (setq p2 (polar cp (+ lengAngle)  (+ rd leng)))
    (command "line" p1 p2 "")
    ;;;繪製上線
    (setq p1 (polar cp (+ lengAngle (* 0.5 pi)) (* 2 leng)))
    (setq p2 (polar cp (+ lengAngle (* 0.5 pi)) (+ rd leng)))
    (command "line" p1 p2 "")
    ;;;繪製左線
    (setq p1 (polar cp (+ lengAngle pi)  (* 2 leng)))
    (setq p2 (polar cp (+ lengAngle pi)  (+ rd leng)))
    (command "line" p1 p2 "")
    ;;;繪製下線
    (setq p1 (polar cp (+ lengAngle (* -0.5 pi)) (* 2 leng)))
    (setq p2 (polar cp (+ lengAngle (* -0.5 pi)) (+ rd leng)))
    (command "line" p1 p2 "")
    (setq i (+ 1 i))
  )
  (princ "中心線自動繪製完成")
  (princ)
)


litung 寫到:重寫一個土法練鋼的。用line指令，一條一條畫

使用方式：
輸入妳要的線距，再選取妳要標註的圓。可以一次選很多個。
ps：lisp的載入，請搜尋一下站內的文章。

Spoiler（用來隱藏帖子內容）:

為什麼會這樣啊?
指令: _appload QDC.lsp 成功載入。
指令: ; 錯誤: 已讀取損壞字元 (八進位): 0

錯誤？
那個我不清楚耶，我是在ACE2010中寫的。
但lisp指令應該都一樣啊。看其他朋友會不會出現相同的錯誤。

litung 寫到:錯誤？
那個我不清楚耶，我是在ACE2010中寫的。
但lisp指令應該都一樣啊。看其他朋友會不會出現相同的錯誤。

我之前用autocad 2010 出現錯誤
又用autocad 2008 一樣

ACE 2010 是 AutoCAD Electrical ?

judyyai 寫到:
ACE 2010 是 AutoCAD Electrical ?

嗯。我用autocad 2010執行也沒問題，執行結果的影片在下列網址。
http://cid-f3cdb72c7d6c0b15.skydrive.live.com/browse.aspx/CAD?uc=1&isFromRichUpload=1&sa=487419263

噗噗茶~* 寫到:老師說的話別懷疑~真的有問題再改~要是你以後當老師~或是長輩~後輩或是學生懷疑你呢?有何感想??
飲水要思源阿......因為看到後面莫名很火大
以下不就都加三了?                            (我以後決定面試謊報經驗....三年.... )

.......如果我當老師被懷疑.....我會覺得是我不夠精進....我還會多方蒐集資料來證明事實....

噗噗茶~* 寫到:
以下不就都加三了?                            (我以後決定面試謊報經驗....三年.... )

thank you
但是這樣是不是變成4條線了??因為我的會變成4條

litung 寫到:錯誤？
那個我不清楚耶，我是在ACE2010中寫的。
但lisp指令應該都一樣啊。看其他朋友會不會出現相同的錯誤。

tnank you
I will　try^^

litung 寫到:

judyyai 寫到:
ACE 2010 是 AutoCAD Electrical ?

嗯。我用autocad 2010執行也沒問題，執行結果的影片在下列網址。
http://cid-f3cdb72c7d6c0b15.skydrive.live.com/browse.aspx/CAD?uc=1&isFromRichUpload=1&sa=487419263

代碼:

指令: _appload QDC.lsp  成功載入。


指令: ; 錯誤: 已讀取損壞字元 (八進位): 0

指令:
指令: qdc 不明的指令「QDC」。請按 F1 取得說明。


到底那裡出問題....

噗噗茶.先進謝謝影片分享,了解中。
請問影片中,設定/主要單位/測量比例/比例係數/5
是否正確,以下自錄影片.心得分享內容如有錯誤
望先進賜教!

DARDAR 寫到:噗噗茶.先進謝謝影片分享,了解中。
請問影片中,設定/主要單位/測量比例/比例係數/5
是否正確,以下自錄影片.心得分享內容如有錯誤
望先進賜教!

Spoiler（用來隱藏帖子內容）:

比例要設定為5 才會等於3
DIMSCALE=5 , 則 DIMCEN=-0.6
因為0.6*5=3

DIMSCALE=1 , 則 DIMCEN=-3.0
因為3.0*1=3

DIMCEN>0 才會顯示中心線

以上省略....

onlygirl* 寫到:
有沒有辦法讓圓畫完.......就有中心線呢.......還自動全部長度+3呢?????因為老師說長度要+3.......雖然我不懂為什麼.......cns有規定?????我很懷疑.......
thank you

以下節錄製圖課本

judyyai 寫到:

DARDAR 寫到:噗噗茶.先進謝謝影片分享,了解中。
請問影片中,設定/主要單位/測量比例/比例係數/5
是否正確,以下自錄影片.心得分享內容如有錯誤
望先進賜教!

Spoiler（用來隱藏帖子內容）:

比例要設定為5 才會等於3
DIMSCALE=5 , 則 DIMCEN=-0.6
因為0.6*5=3

DIMSCALE=1 , 則 DIMCEN=-3.0
因為3.0*1=3

DIMCEN>0 才會顯示中心線

謝謝!解惑....

judyyai 寫到:

代碼:

指令: _appload QDC.lsp  成功載入。
指令: ; 錯誤: 已讀取損壞字元 (八進位): 0
指令:
指令: qdc 不明的指令「QDC」。請按 F1 取得說明。


到底那裡出問題....

妳要不要試試看：
輸入vlide，開啟lisp編輯器，把lisp 程式碼放入看看
看它編輯時，有沒有錯誤發生。

請有空的網友也幫忙測試一下，看是不是也會發生錯誤。
測試時，先把鎖點取消，我程式中沒作處理，縮小的話標示中心線時，會因縮點的設定，而造成畫線錯誤。

litung 寫到:
妳要不要試試看：
輸入vlide，開啟lisp編輯器，把lisp 程式碼放入看看
看它編輯時，有沒有錯誤發生。

請有空的網友也幫忙測試一下，看是不是也會發生錯誤。
測試時，先把鎖點取消，我程式中沒作處理，縮小的話標示中心線時，會因縮點的設定，而造成畫新錯誤。

直接開啟 visual Lisp,開啟新檔,將程式碼貼上去,然後 載入作用中的編輯視窗!
就可以使用!
visual Lisp主控台顯示

代碼:

_$

; 1 格式 從 #<editor "<無標題-0> 載入..."> 載入
_$

但是直接 用appload 載入(已存好QDC.LSP) ,或是開啟 visual Lisp編輯器,再開啟舊檔,卻會顯示載入失敗!
visual Lisp主控台顯示

代碼:

_$

 ?悐j~?-N儳琫
; 錯誤: 異常的輸入字串
_$

AUTOCAD 指令列顯示

代碼:

指令: _vlide
 ?悐j~?-N儳琫

不知道原因!目前litung 寫得2支LISP只能用visual Lisp 隨寫隨測!來執行
另外有無鎖點!都沒差別

PS.第一支程式有問題,可以執行但是畫不出來

PS1. visual Lisp編輯器,隨寫隨測,如下影片蘋果爸教學
http://autocad.bestoforum.net/forum-f44/topic-t4511.htm

我使用【工具/autolisp/載入應用程式】也ok。
你要不要檢查一下lsp的內容？說不定有少複製到文字。

對了，我的ace 2010(autocad2010)有更新到sp1，不知這有沒有關係。

litung 寫到:我使用【工具/autolisp/載入應用程式】也ok。
你要不要檢查一下lsp的內容？說不定有少複製到文字。

對了，我的ace 2010(autocad2010)有更新到sp1，不知這有沒有關係。

沒有少複製到字!有檢查過!
但是沒更新到SP1
有空來看看

程式的思路:
01.選擇圓或弧畫出中心線
02.比例問題要考慮進去(也就是不管你出圖比例為何,印出來量測都要為3)
03.線畫出後自動轉變為中心線層

明~ 寫到:程式的思路:
01.選擇圓或弧畫出中心線
02.比例問題要考慮進去(也就是不管你出圖比例為何,印出來量測都要為3)
03.線畫出後自動轉變為中心線層

這些就留給後面的網友修改了，或是您有興趣幫忙修改，讓後面的朋友更便利使用
1. 小弟對比例不熟(只會1:1)
2. 要執行指令之前，先切至該圖層即可，只是多點了二下而己。
3. 圓的中心線小弟知道，但弧的中心線，就沒概念，不知道怎麼畫，所以就不知道怎麼去寫了。
4. 小弟的圖層通常只有三層，畫電路圖、標配置尺寸、標線號(最近多出來的)。

thank you^^

有解決的方法嗎??
有的話 來看看囉!!