利用autolisp管理圖形數(shù)據(jù)庫-文庫吧資料
2024-10-25 12:04本頁面
【正文】 cts: ? 例：編程在屏幕上畫一條線和一個(gè)圓，并過圓心向直線作垂線。end 處理圖元對象 ? AutoLISP提供了下列用于圖元對象處理的函數(shù) ： ? Entlast 獲取圖形數(shù)據(jù)庫中最后一個(gè)圖元名 ? Entnext 獲取圖形數(shù)據(jù)庫中下一個(gè)圖元名 ? Entsel 選擇圖元并獲取圖元名 ? Handent 獲取帶有指定句柄的圖元名稱 ? Nentsel 選擇圖元并獲取子圖元名 ? Nentselp 獲取子圖元名 ? Entget 獲取圖元數(shù)據(jù)表 ? Entmod 更新圖元數(shù)據(jù) ? Entupd 更新復(fù)雜圖元的屏幕顯示 ? Entmake 創(chuàng)建圖元 ? Entdel 刪除指定圖元 獲取圖元名稱 ? 圖元名是一個(gè)指向 AutoCAD圖形編輯程序的文件指針，只有通過圖元名，才能對圖形數(shù)據(jù)庫中圖元進(jìn)行訪問、編輯和修改。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))。progn ? )。 ? (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)))。 操作選擇集 ? 1) (ssadd [圖元名 ][選擇集 ])；向選擇集中加入圖元 ? 建立空集 (setq s1 (ssadd)) ? 建立只有一個(gè)圖元的選擇集 ? (setq s2 (ssadd [圖元名 ])) ? 2) (ssdel [圖元名 ][選擇集 ])；從選擇集中刪除圖元 ? 3) (sslength [選擇集 ]) ；獲取選擇集中圖元個(gè)數(shù) （說明：使用 sslength應(yīng)保證所構(gòu)造的選擇集不為 nil.) ? 4) (ssname [選擇集 ][序號 ])；獲取選擇集中圖元名 ? 5) (ssmemb [圖元名 ][選擇集 ])；測試指定圖元是否為 ? 選擇集中成員。 (3)邏輯分組 ? 通過應(yīng)用邏輯
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1