作中垂線的 AutoLISP 程式

cpp 代码

1. ; mid-per.lsp   
2.   
3. (defun c:mid-per( / ent1 l1 p1 pm )   
4.   (setq ent1 (entsel "\n Select a Line: "))   
5.      
6.   (setq l1 (car ent1))   
7.   (setq p1 (cadr ent1))   
8.   (setq pm (osnap p1 "mid"))   
9.   (setvar "cmdecho" 0)   
10.   
11.   (command "-array" l1 "" "P" pm 2 90 "Y")   
12.   (princ)   
13.   ); end of mid-per()   
14.   
15. ; end of file