2007-03-02

作中垂線的 AutoLISP 程式

关键字: 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   
评论
发表评论

您还没有登录，请登录后发表评论

sjgau
  • 浏览: 43101 次
  • 性别: Icon_minigender_1
  • 来自: 台灣省 台北市
  • 详细资料
搜索本博客
博客分类
最近加入圈子
存档
最新评论