展示：
轉貼自網路
程式碼：(回覆後可見)
代碼:;;;轉貼自http://bbs.xdcad.net/thread-644560-1-1.html
(vl-load-com)
(defun c:JZ (/ err)
(defun algion (msg / ss lst i vlalst boxlst
x cor1 cor2 findboxpt newboxpt
en1 en enlst y y2
)
(princ msg)
(setq ss (ssget '((0 . "text"))))
...
↧