利用autolisp管理圖形數(shù)據(jù)庫(編輯修改稿)
2024-11-15 12:04 本頁面
【文章內(nèi)容簡介】 ? OR OR 或運(yùn)算，測試一個或多個 DXF組 ? XOR XOR 異或運(yùn)算，測試兩個 DXF組 ? NOT NOT 非運(yùn)算，測試一個 DXF組 ? 例如： ? (setq s (ssget “X” ?((4 . “OR”) (8 . “1”) ? (8 . “2”) (4 . “OR”)))) ? 表示創(chuàng)建由 1層或 2層上的圖元組成的選擇集。 操作選擇集 ? 1) (ssadd [圖元名 ][選擇集 ])；向選擇集中加入圖元 ? 建立空集 (setq s1 (ssadd)) ? 建立只有一個圖元的選擇集 ? (setq s2 (ssadd [圖元名 ])) ? 2) (ssdel [圖元名 ][選擇集 ])；從選擇集中刪除圖元 ? 3) (sslength [選擇集 ]) ；獲取選擇集中圖元個數(shù) （說明：使用 sslength應(yīng)保證所構(gòu)造的選擇集不為 nil.) ? 4) (ssname [選擇集 ][序號 ])；獲取選擇集中圖元名 ? 5) (ssmemb [圖元名 ][選擇集 ])；測試指定圖元是否為 ? 選擇集中成員。是則返回該圖元名，否則返回 nil. ? 若要釋放選擇集 s，可執(zhí)行 : (setq s nil) 選擇集操作函數(shù)實(shí)例 ? 例 1：選擇屏幕上要保留的圖形，刪除其它為被選種的圖形。 ? (defun c:remainder (/ s1 s2 s3 n ent) ? (setq s1 (ssget) s2 (ssget “x”)) ? (if (not s1) (mand “erase” s2 “”) ? (progn (setq s3 (ssadd) n 0) ? (repeat (sslength s2) (setq ent (ssname s2 n)) ? (if (not (ssmemb ent s1)) (ssadd ent s3)) ? (setq n (1+ n)))。repeat ? (mand “erase” s3 “” “redraw”))。progn ? )。if ? )。end 例 2：改變現(xiàn)行圖形中所有文本的尺寸大小 ? (defun c:chtxt (/ a ts n index b1 b c d b2) ? (setq a (ssget “X” ?((0 . “TEXT”)))) ? (setq ts (getdist “\nEnter new text size:”)) ? (setq n (sslength a)) ? (setq index 0) ? (repeat n (setq b1 (entget (ssname a index))) ? (setq index (+ index 1)) ? (setq c (assoc 40 b1)) ? (setq d (cons (car c) ts))) ? (setq b2 (subst d c b1)) ? (entmod b2))。repeat ? )。end 處理圖元對象 ? AutoLISP提供了下列用于圖元對象處理的函數(shù) ： ? Entlast 獲取圖形數(shù)據(jù)庫中最后一個圖元名 ? Entnext 獲取圖形數(shù)據(jù)庫中下一個圖元名
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1