cad二次開發(fā)之圖形數(shù)據(jù)庫(參考版)
2025-05-17 19:56本頁面
【正文】 令 e等于 e的下一個圖元的名字 )) 。顏色替換 (entmod el) 。判斷圖元的顏色是否與待改的顏色相同 (progn 。更新圖形數(shù)據(jù)庫的 el圖元表 ))) (progn 。相同 ， 該層顏色為被改色 (setq el (cons new_cl el)) 。得到圖層的顏色號 (if(= oldcolor laycolor)。得到圖層名 (setq laytab (tblsearch LAYER layname)) 。判斷顏色子表是否為空 (progn 。是直線 (setq old_cl (assoc 62 el)) 。得到一個圖元表 (if(= LINE (cdr (assoc 0 el)))。得到第一個圖元名 (while e 。 (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)) 。 如果 設(shè)置下一個 為 T， 該表將作為定位點 ， 隨后調(diào)用 tblnext函數(shù)在不回繞的設(shè)置下 ， 就會返回該表的下一個表 。 例如 (tblobjname layer 0)， 返回名字為0的圖層表的圖元名 Entity name: 4002cc80。 如果找到 ， 返回符號表的圖元名 。 再輸入這個表達(dá)式 ， 將返回 nil， 因為 layer3是最后的圖層 。因為回繞項為 nil或缺省 ， 所以返回當(dāng)前圖層表的下一個圖層表 。 因為回繞項為 T， 所以返回當(dāng)前作業(yè)的第一個圖層表 。 例如返回圖層表 ， 若當(dāng)前作業(yè)的圖層名依次是 0、layer layer2和 layer3。 符號表操作函數(shù) （ 1） (tblnext 表的種類 [回繞 ]) 表的種類可以是 LAYER、 LTYPE、 VIEW、 STYLE、BLOCK、 UCS、 APPID、 DIMSTYLE和 VPORT。 (defun c:csth( / h s1 n e el) (setq h(getdist \n輸入文本的高度： )) (setq s1(ssget))；以交互方式得到一個選擇集 (setq n 0) ；序號的初值為 0 (repeat (sslength s1)；重復(fù)執(zhí)行 ， 執(zhí)行的次數(shù)等于所選對象的個數(shù) (setq e(ssname s1 n))；得到選擇集內(nèi)第 n個對象的圖元名 (setq el(entget e))；得到這個對象的圖元表 (if (= TEXT (cdr (assoc 0 el)))；判斷這個對象是否為 TEXT (progn ；是 TEXT (setq el(subst (cons 40 h) (assoc 40 el) el))；用新字高替換圖元表的原字高點 表 (if (= 3 (cdr (assoc 72 el))) ；如果文本為 Align方式對齊 (setq el(subst (cons 72 0)(assoc 72 el) el))；忽略第二個定位點 ) (entmod el) ；更新圖形數(shù)據(jù)庫的 el圖元表 ) ) (setq n(1+ n)) ；序號 n的數(shù)量加 1 ) ) 符號表 AutoCAD的符號表是指視窗表 、 線型表 、 圖層表 、 字樣表 、視圖表 、 用戶坐標(biāo)系表 、 用戶應(yīng)用程序標(biāo)識表 、 尺寸式樣表和塊記錄表 。 選擇集內(nèi)第一個元素的序號為零 。 （ 5） (sslength ss) 返回選擇集的長度 ， 即選擇集內(nèi)圖元的數(shù)量 。 如果調(diào)用該函數(shù)時無參數(shù) ， 將創(chuàng)建一個空選擇集；如果只提供圖元名 ， 將創(chuàng)建一個僅含該圖元的選擇集 。 返回值為兩個元素組成的表 ， 第一個元素是所選的圖元名 ， 第二個元素是用戶選擇對象時拾取點在當(dāng)前 UCS下的坐標(biāo) 。 選擇集由交互選擇的這些圖元組成 ， 將選擇集的名字賦給變量 s4 （ 2） (entsel [提示信息 ]) 提示用戶以單點方式選擇單個對象 。 執(zhí)行到該表達(dá)式時 ， 自動切換到圖形窗口 ， 出現(xiàn) Select objects： 提示 ， 等待用戶操作 。(10 10)))；創(chuàng)建一個選擇集 ， 它的成員是所有整體在對角點 (0,0)和 (10,10)窗口內(nèi)的圖元 ， 如果成功則將選擇集的名字賦給變量 s2 (setq s3 (ssget
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1