我想看一级黄色大片_久久亚洲国产精品一区二区_久久精品免视看国产明星_91久久青青青国产免费

您的位置：網站首頁 > CAD新聞

CAD中求面積及周長的小程序 (lsp)

時間:2009-05-25 10:47:43 來源:

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)
)
)
)