作中垂線的 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   

你可能感兴趣的:(C++,c,C#)