利用autolisp管理圖形數(shù)據(jù)庫-資料下載頁
2025-10-10 12:04本頁面
【正文】 nc (nth c aa)) (setq c (1+ c)))。repeat ? (princ)) 。end 程序運行后，圖元數(shù)據(jù)表顯示如下： ? Data of last entity: ? (1 . Entity name: 147dd68) ? (0 . CIRCLE) ? (330 . Entity name: 147dcf8) ? (5 . 2D) ? (100 . AcDbEntity) ? (67 . 0) ? (410 . Model) ? (8 . 0) ? (100 . AcDbCircle) ? (10 ) ? (40 . ) ? (210 ) 2）修改、更新圖元數(shù)據(jù) ? a）接受修改的圖元數(shù)據(jù)表 entmod ? 調(diào)用格式： (entmod [圖元數(shù)據(jù)表 ] ) ? 例如：在屏幕上用“ LINE”命令畫一直線，已知起點坐標(biāo)為“ 2， 2”，終點坐標(biāo)為“ 8， 8”。編程修改端點的數(shù)據(jù)： ? (setq e (entlast)) 。獲取圖元名 ? (setq el (entget e)) ；獲取該圖元的數(shù)據(jù)表 ? (setq el (subst ?(11 ) (assoc 11 el) el)) ；修改 ? (entmod el) ；接受新的數(shù)據(jù)表 ? 說明： entmod不能更改圖元的類型和圖元句柄； ? 圖元數(shù)據(jù)表中須修改的數(shù)據(jù)在執(zhí)行 entmod之前 ? 必須存在。 b）更新復(fù)雜圖元屏幕圖象 entupd ? 調(diào)用格式： (entupd [圖元名 ] ) ? 功能：使修改了圖元數(shù)據(jù)的圖形在屏幕上更新顯示。 ? 主要用于復(fù)雜圖元的更新，對于簡單圖元用 entmot函數(shù)即可更新。 ? 注意：在執(zhí)行 entupd函數(shù)之前，必須先執(zhí)行 entmod。 ? 例如：設(shè)圖中最后一個圖元是一條有若干頂點的多義線， ? 若要修改多義線的第一個頂點，可編程如下： ? (setq e1 (entlast)) 。置 e1為多義線的圖元名 ? (setq e2 (entnext e1)) ；置 e2為多義線的第一個頂點 ? (setq ed (entget e2)) ；置 ed為頂點數(shù)據(jù)表 ? (setq ed (subst ?(10 ) (assoc 10 ed) ed)) ? (entmod ed) ；改變 ed中的頂點位置，修改數(shù)據(jù)庫 ? (entupd e1) ；重新生成多義線圖元 e1. 增加圖元和刪除圖元 ? 1）用 entmake函數(shù)創(chuàng)建圖元 ? 調(diào)用格式： (entmake [圖元數(shù)據(jù)表 ] ) ? 功能：根據(jù)提供的圖元數(shù)據(jù)表創(chuàng)建圖元。 ? 例如：創(chuàng)建一個多義線的圖元，其頂點為（ 10， 10）、 ? （ 10， 20）、（ 20， 20），顏色為紅色，位于 1層上。 ? (entmake ?((0 . “polyline”) (62 . 1) (8 . 1) (66 . 1))) ? (entmake ?((0 . “vertex”) (10 ))) ? (entmake ?((0 . “vertex”) (10 ))) ? (entmake ?((0 . “vertex”) (10 ))) ? (entmake ?((0 . “seqend”))) ? 2) 用 entdel刪除指定圖元 ? 調(diào)用格式： (entdel [圖元名 ]
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1