看板
[ HSNU_986 ]
討論串[八六] 借我放
共 8 篇文章
內容預覽:
lsp. (defun finddat (fn di / fp dat d char). (setq fp (open fn "r")). (if (null fp). (progn. (princ "\nFile not found"). ). ). (while (and (setq dat (
(還有759個字)
內容預覽:
;trod.lsp. (defun tr (ip p0 r1 r2 /)(tr0 ip p0 r1 r2 t t t)(princ)). (defun tu (ip p0 r1 r2 /)(tr0 ip p0 r1 r2 t t nil)(princ)). (defun tm (ip p0 r1 r
(還有1347個字)
內容預覽:
;Rgpin.lsp. (defun C:Rgpin (/ ip p2 d dat). (graphscr). (if (null tm) (load "trod-m.lsp")). (if (null finddat) (load "finddat.lsp")). (if (and (setq i
(還有670個字)