lisp程序加載后，在命令提示符下輸入mj，在所求的一封閉的區域用鼠標點一下，即可知道面積及周長。其實此類程序許多軟件都有，同時如經常使用可通過修改ACAD.mnu來增加下拉菜單選項，方便使用。
附Lsp程序的使用方法: 進入autocad，在"工具"菜單，下拉選擇"程序調入"，顯示加載Lsp的對話框，按對話框的"File"按鈕，找到要加載的Lsp文件，選中，按"Load"按鈕，加載。加載成功后，一般Lsp的執行命令與它的文件名相同。
;;我來公開源程序，我有版權。copyright(c)1998~2005 (defun c:mj (/ os pt1 a)
(setq os (getvar "osmode"))
(setvar "osmode" 512)
(setq pt1 (getpoint "n１、請在封閉區域的邊界上任選一點："))
(setvar "osmode" os)
(prompt "n２、請將封閉區域的所有邊界加入到選擇集中：")
(setq a (ssget))
(if (= (sslength a) 1)
(command "area" "e" a)
)
(if (> (sslength a) 1)
(progn
(command "pedit" pt1 "y" "j" a "" "")
(command "area" "e" pt1)
(command "explode" pt1)
)
)
)
(setq os (getvar "osmode"))
(setvar "osmode" 512)
(setq pt1 (getpoint "n１、請在封閉區域的邊界上任選一點："))
(setvar "osmode" os)
(prompt "n２、請將封閉區域的所有邊界加入到選擇集中：")
(setq a (ssget))
(if (= (sslength a) 1)
(command "area" "e" a)
)
(if (> (sslength a) 1)
(progn
(command "pedit" pt1 "y" "j" a "" "")
(command "area" "e" pt1)
(command "explode" pt1)
)
)
)
相關文章
- 2021-08-01Visual LISP程序設計(AutoCAD 2006)PDF下載
- 2021-07-30AutoCAD程序設計魔法書 [AutoLISP DCL基礎篇]PDF下載
- 2021-07-16AutoCAD Photoshop園林設計實例 第2版 [張燕，胡大勇 編
- 2021-06-22AutoCAD+3ds Max+Photoshop建筑設計從新手到高手PDF下
- 2021-06-22AutoCAD+3ds Max+Photoshop中文版建筑設計從入門到精
- 2021-06-22AutoCAD+3ds Max+VRay+Photoshop室內外效果圖設計手冊
- 2021-03-07AutoCAD 2014、3dsMax2014與PhotoshopCS6室內設計實例
- 2021-01-30AutoCAD 2012、3ds Max 2012與Photoshop CS5室內設計
- 2015-07-30浙江移動移動客服中心施工圖含效果圖下載
- 2015-05-20廣州Costa咖啡廳效果圖+施工圖下載