cpp 代码
- ; mid-per.lsp
- (defun c:mid-per( / ent1 l1 p1 pm )
- (setq ent1 (entsel "\n Select a Line: "))
- (setq l1 (car ent1))
- (setq p1 (cadr ent1))
- (setq pm (osnap p1 "mid"))
- (setvar "cmdecho" 0)
- (command "-array" l1 "" "P" pm 2 90 "Y")
- (princ)
- ); end of mid-per()
- ; end of file