漂亮的矩形輔助選擇窗 SSBOX

lee50310 · 发表于 2022-5-20 10:44:07

本帖最后由 lee50310 于 2022-6-6 08:55 编辑

**** 漂亮的矩形輔助選擇窗 *****
ssbox.fas 這是一個輔助程式用的
可拉出矩形選擇窗並支援抓點功能與 ssget 配合
載入程式後使用說明輸入指令:hlp

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

lee50310 · 发表于 2022-5-20 10:44:30

本帖最后由 lee50310 于 2022-5-20 10:52 编辑

ssbox函數
使用範例說明:

copy

(defun c:test( / pt1 pt2)
(command "load" "D:\\lsp\\ssbox.fas")    ;載入 ssbox.fas
(setq pt1(getpoint "\n第一點:"))
(setq pt2(ssbox pt1))                  ;執行 ssbox 函數

(setq ss(ssget "_c" pt1 pt2))          ;執行 ssget
(print (strcat "\n共選取 " (rtos(sslength ss)2 0) " 個物體"))
)