AutoCAD 中當有物件被炸開之後，該物件選集便消失了，那怎麼取回被炸開後的那些物件呢?

AutoCAD 中當有物件被炸開之後，該物件選集便消失了，那怎麼取回被炸開後的那些物件呢?
找了好多網路文章 ... 想到黑眼圈都跑出來了.... 失敗了N 次，也沒人可問，乾脆寫信給國外的高手 :P 糗~~

他回答我 :

1. Selection Set 1 : Get selection set of everything in the drawing.

2. Remove the block that is about to be exploded from the set.

3. Explode the block.

4. Selection Set 2 :Get another selection set containing everything in the drawing.

5. Remove everything in Selection Set 2 that exist in Selection Set 1

6. Selection Set 2 should now contain the entities of the exploded block.

看到之後真是太開心了，他的回答的確可行，立刻隔著太平洋給他三拜。

他是這麼說 :
1. 取得圖中所有物件選集 (setq ssuni (ssget "x"))
2. 移除你要炸開的物件 (ssdel eni ss)
3. 炸開該物件 (command "explode" ss )
4. 再選一次所有物件，這次便會包含被炸開的物件 (setq ssuni2 (ssget "x"))
5. (setq ssuni2 (ssget "x")) - [(setq ssuni (ssget "x"))-SS]
6. 這樣就剩下被炸開的物件 exploded


接著冰雪聰明的我立刻寫出一個副程式就是下面安ㄋ :



這傻蛋又在陶醉了....

(defun ExplodeAndGetExplodedObject (SS          /         i
                   n          enNameI     enNameN
                   ssuni      ssuni2     ssExclude
                   ssexploded result
                  )
  (if (/= SS nil)
    (progn
      (setq ssuni (ssget "x"))
      (setq i 0)
      (repeat (sslength SS)
    (setq enNameI (ssname SS i))
    (setq ssExclude (ssdel enNameI ssuni))
    (setq i (+ 1 i))
      )
      ;;repeat

      (setvar "qaflags" 1)
      (command "explode" SS "")
      (setvar "qaflags" 2)

      (setq ssuni2 (ssget "x"))
      (setq n 0)
      (repeat (sslength ssExclude)
    (setq enNameN (ssname ssExclude n))
    (setq ssexploded (ssdel enNameN ssuni2))
    (setq n (+ 1 n))
      )
      ;;repeat
    )
    ;;progn
    (exit)
  )
  ;;if
  (setq result ssexploded)
)
;;defun

相關文章

安裝 Guset OS Debian 的副加( Additions )程式

如何安裝 Guset OS Debian 的副加( Additions )程式

1. 打開 Root 終端機
2. 輸入Root 密碼
3. 輸入 " apt-get update "
4. 輸入 " apt-get install build-essential module-assistant " 安裝必要的套件
5. 執行 "m-a prepare" 建立核心模組
6. 在 VirtualBox 的功能表第二個 "裝置" 按下 \\安裝 Guest Additions
7. 執行 " sh '/media/cdrom0/VBoxLinuxAdditions-86.run' "
8. 重新啟動 Guest OS

安裝好了之後滑鼠可以自由進出於 Host OS 與 Guest OS ， Guest OS 也可以隨著VirtualBox (ver 3.2.6 r63112 )視窗縮放而改變解析度。

Debian 5 用起來效能真是不錯，爛電腦都可以跑的很快，我比較懶，覺得用起來方便性比起 Ubuntu 要差些 :P

《有ECFA真好? 》ECFA哪裡好?三部曲

他馬的馬英九，檢視其一生，對社會對人民毫無貢獻，廢人一個..