cad二次開發(fā)之圖形數據庫-資料下載頁
2025-05-13 19:56本頁面
【正文】 當前表符號的下一個符號表 。 例如返回圖層表 ， 若當前作業(yè)的圖層名依次是 0、layer layer2和 layer3。 隨時輸入表達式 (tblnext layer T)都返回 ((0 . LAYER) (2 . 0) (70 . 0) (62 . 7) (6 . CONTINUOUS))。 因為回繞項為 T， 所以返回當前作業(yè)的第一個圖層表 。 接 著 輸 入 表 達 式 (tblnext layer nil) 或(tblnext layer) 返回 ((0 . LAYER) (2 . layer1) (70 . 0) (62 . 7) (6 . CONTINUOUS))。因為回繞項為 nil或缺省 ， 所以返回當前圖層表的下一個圖層表 。 同樣的操作依次返回 layer layer3的圖層表 。 再輸入這個表達式 ， 將返回 nil， 因為 layer3是最后的圖層 。 例如返回塊定義表 ， 若當前作業(yè)已定義了名字為BOX的圖塊 ， 輸入表達式 (tblnext block) 返回((0 . BLOCK) (2 . BOX) (70 . 0) (10 ) (2 . 圖元名： 1dca370)) （ 2） (tblobjname 表的種類 表名 ) 返回指定種類表的圖元名 。 如果找到 ， 返回符號表的圖元名 。 返回的圖元名可以用于 entget和 entmod 操作 。 例如 (tblobjname layer 0)， 返回名字為0的圖層表的圖元名 Entity name: 4002cc80。 （ 3） (tblsearch 表的種類 表名 [設置下一個 ]) 返回指定種類和名字的符號表 。 如果 設置下一個 為 T， 該表將作為定位點 ， 隨后調用 tblnext函數在不回繞的設置下 ， 就會返回該表的下一個表 。 例如(tblsearch layer t) 返回 ((0 . LAYER) (2 . layer1) (70 . 0) (62 . 7) (6 . CONTINUOUS))圖層表 ， 且 layer1為定位點 ， 接著輸入表達式 (tblnext layer )返回 ((0 . LAYER) (2 . layer2) (70 . 0) (62 . 7) (6 . CONTINUOUS))圖層表 。 (defun c:ccolor (/ oldcolor newcolor new_cl e el old_cl layname laytab laycolor) (setq oldcolor (getint \n輸入待改變的顏色號 : )) (setq newcolor (getint \n輸入新的顏色號 : )) (setq new_cl (cons 62 newcolor)) 。構造新顏色子表 (setq e (entnext)) 。得到第一個圖元名 (while e 。當圖元的名字有定義時 (setq el (entget e)) 。得到一個圖元表 (if(= LINE (cdr (assoc 0 el)))。判斷該圖元是否是直線 (progn 。是直線 (setq old_cl (assoc 62 el)) 。得到老顏色子表 （ 點對 ） (if (null old_cl)。判斷顏色子表是否為空 (progn 。沒有顏色子表 ， 即顏色隨層 (setq layname (cdr (assoc 8 el))) 。得到圖層名 (setq laytab (tblsearch LAYER layname)) 。得到指定圖層名的圖層表 (setq laycolor (cdr (assoc 62 laytab))) 。得到圖層的顏色號 (if(= oldcolor laycolor)。判斷圖層的顏色是否與待改的顏色相同 (progn 。相同 ， 該層顏色為被改色 (setq el (cons new_cl el)) 。插入顏色子表 (entmod el)。更新圖形數據庫的 el圖元表 ))) (progn 。有顏色子表 ， 即顏色獨立于圖層 (if(= oldcolor (cdr old_cl))。判斷圖元的顏色是否與待改的顏色相同 (progn 。相同 ， 該層顏色為被改色 (setq el (subst new_cl old_cl el)) 。顏色替換 (entmod el) 。 更新圖形數據庫的 el圖元表 )))))) (setq e (entnext e))。令 e等于 e的下一個圖元的名字 )
環(huán)評公示相關推薦
鄂ICP備17016276號-1