社群資訊
lisp
(高顯忠, sjgau4311@gmail.com, 2013-08-28 14:18)
1樓
; file: mid-per4.LSP
(defun c:mid-per4( / )
(setq en1 (entsel "\n Select Line: "))
(setq ent1 (car en1))
(setq p1 (cadr en1))
(command "-array" ent1 "" "p"
(osnap p1 "mid") 2 90 "")
(princ)
); end defun
; end of file