Yahoo Answers is shutting down on May 4th, 2021 (Eastern Time) and the Yahoo Answers website is now in read-only mode. There will be no changes to other Yahoo properties or services, or your Yahoo account. You can find more information about the Yahoo Answers shutdown and how to download your data on this help page.

AutoCAD erase

請問有人知道AutoCAD erase的框選形狀是否可改為圓形?

註:提示如何在圈圈內erase物件(大量的)?

Update:

有誰能好心的告訴我這個程式怎麼寫呢?

2 Answers

Rating
  • 1 decade ago
    Favorite Answer

    建議你用 多邊形框選或窗選的模式

    erase 指令後 加上 CP ( 多邊形框選 ) 或 加上 wp ( 多邊形窗選 )

    如果你一定要用圓形框,那麼也可以用 lisp 寫個程式,只是有點麻煩...

    2006-10-19 16:05:40 補充:

    (DEFUN C:circle_erase()(SETVAR "CMDECHO" 0)(SETQ circle_center (GETPOINT "指令: 【 刪除圓形範圍內物件 】,請輸入或指定圓形之中心點位置 : "))(command "circle" circle_center pause)(setq os (getvar "osmode"))(setvar "osmode" 0)

    2006-10-19 16:06:15 補充:

    (SETQ circle_r (cdr(assoc 40(entget(entlast)))))(command "erase" "l" "" )(setq circle_x (car circle_center))(setq circle_y (cadr circle_center)) (setq change_ang 0)(command "erase" "wp") (repeat 359 (setq change_ang (+ change_ang 1))

    2006-10-19 16:06:35 補充:

    (command (list (+ circle_x (* circle_r (cos (* change_ang (/ pi 180))))) (+ circle_y (* circle_r (sin (* change_ang (/ pi 180 )))))))) (command "" "")(setvar "osmode" os)(PRIN1) )

    2006-10-19 16:12:40 補充:

    功能表列→工具→AutoLISP→Visual LISP 編輯器將上述程式內容放入新檔內,再存成 circle_erase.lsp 請留意存放路徑必須在支援檔路徑下,不然請新增該支援檔路徑,否則必須在 load 時指定路徑

    2006-10-19 16:17:16 補充:

    在指令列輸入 ( load"circle_erase")注意上列左右括號必須存在指令列上會回應一個訊息 C:CIRCLE_ERASE只要輸入 circle_erase 指令即可,如果要永久載入 ,必須在功能表列→工具→載入/釋放應用程式 去載入

  • 1 decade ago

    我找到一個不錯的相關網站供您參考….

    http://tw.myblog.yahoo.com/jw!HILmA2GfHxk4xEqcCeef...

Still have questions? Get your answers by asking now.