使用Autolisp刪除Autocad指定圖層內(nèi)的實(shí)體

LispLinkV16.02漢化綠色版

• 類型：編程工具大�。�949KB語(yǔ)言：中文 評(píng)分：5.0
• 標(biāo)簽：

立即下載

如何用autolisp獲取cad圖形文件中直線和多義線的圖層名？

用(cdr(assoc 8 (entget (car (entsel)))))就可以得到直線和其他實(shí)體的圖層名。

想要的程序是：點(diǎn)取一條直線，得到該直線的層名，然后將該層所有直線的線寬改為某個(gè)值。我現(xiàn)在想要的是“點(diǎn)取直線，獲得層名”這一步。

(setq lyname (cdr(assoc 8 (entget (car (entsel)))))) that's it!, What else d

(setq lyname (cdr(assoc 8 (entget (car (entsel)))))) that's it!, What else do you want?    

繪圖過(guò)程中經(jīng)常會(huì)碰到這種情況：某個(gè)圖層已被“清空”，但卻無(wú)法將其刪除，究竟是什么回事？其實(shí)，圖層中還可能含有不可見(jiàn)的實(shí)體。例如，使用mtext命令輸入一連串空格，即產(chǎn)生一個(gè)不可見(jiàn)實(shí)體。在實(shí)際繪圖中，我們當(dāng)然不會(huì)特意去建立這樣的實(shí)體，但無(wú)意的操作或者ACAD應(yīng)用程序的運(yùn)行都有可能產(chǎn)生“副產(chǎn)品”，要?jiǎng)h除這些不可見(jiàn)實(shí)體，如果單靠現(xiàn)成的ACAD命令是難以完成的，必須借助程序來(lái)進(jìn)行，下面的程序能夠刪除指定圖層內(nèi)的一切簡(jiǎn)單實(shí)體，從而能讓用戶進(jìn)一步使用layer或purge命令來(lái)刪除圖層。

需要注意的是，個(gè)別圖層即便使用下列程序處理后,仍可能關(guān)聯(lián)其他對(duì)象（注意，對(duì)象的概念較實(shí)體廣得多，包括標(biāo)注樣式等非實(shí)體對(duì)象）而不能被刪除，除非指定的圖層不再關(guān)聯(lián)圖塊或者不含有任何用戶定義的標(biāo)注樣式。這些圖層是：
1.被塊定義參照的圖層，如a層含有一個(gè)圖塊，塊內(nèi)某條線屬于b層；
2.名字為 DEFPOINTS 的特殊圖層（為某個(gè)標(biāo)注樣式所用）。

程序清單如下：

(defun c:de(/ et ln lay_name ss li)
(princ "刪除指定圖層內(nèi)的實(shí)體\n")
(setq li (entsel"\n請(qǐng)選擇指定圖層內(nèi)的任何一個(gè)實(shí)體<回車直接輸入層名>:"))
(if li 
    (progn ;選擇一個(gè)實(shí)體
         (setq et (entget(nth 0 li)))
         (setq lay_name (cdr (assoc 8 et)))
    )
    (progn ;直接輸入層名，理想的辦法是采用列表框選擇，大家可以自己試試。
         (princ"輸入層名:")
         (while (= ln nil) 
                (setq lay_name (getstring))
                (setq ln (cdr (assoc 2 (tblnext "layer" t))))
                (while (and ln (/= ln "%") ) 
                       (if (/= ln lay_name)
                           (setq ln (cdr (assoc 2 (tblnext "layer"))))
                           (setq ln "%") 
                           ;如指定的圖層名已存在，則設(shè)“%”標(biāo)志
                        )
                )
               (if (/= ln "%") ;錯(cuò)誤處理
                   (princ"指定的圖層不存在，請(qǐng)重新輸入:")
                )
         ) 

    ) 
)
(setq ss (ssget "X"(list(cons 8 lay_name)))) ;構(gòu)造選擇集
(COMMAND "-layer" "u" lay_name "")           ;圖層解鎖
(COMMAND "ERASE" ss "")                      ;清除所有實(shí)體
(princ "\n清除完畢!")
(princ)
)

;程序結(jié)束