下載首頁 | 資訊中心 | 文章分類 | 最近更新 | 排 行 榜 |
文章搜索: 分類 關鍵字
您的位置:首頁軟件教程AutoCADAutoCAD資料教程 → 工程圖中標注序號的LISP程序
工程圖中標注序號的LISP程序
日期:2007-12-3 20:30:38 人氣:724     [ ]
上一頁 [1] [2] 下一頁

在工程設計工作中,經常要對設備、零件等標注序號。根據標準化要求,在標注點處要加上實心小圓點,然后引出直線 ;在另一端畫出一個810mm的圓 ;在圓中寫上所標注的序號文字。用AutoCAD基本命令完成上述工作費工費時,并且不易修改,特別是在圖形密集處,效果很不理想,圖面質量差。

  我們利用AutoLISP語言編制了BXH.LSP(標序號),很好地解決了以上問題,該程序為AutoCAD增加了一條BXH命令,可方便地在圖紙中標注序號,并且如果修改或刪除標注也十分方便,工效提高十倍以上。根據該程序的編制原理,可演繹出使用在機械制圖中標注序號,標注焊接符號等程序。

  BXH.LSP源程序如下:

  ;---------------------------

 (defun C:Bxh (/ p1 p2 p3 1 ang 1 bx bxh radi txth) ;標序號

  (setq radi 5) ;圓圈半徑

  (setq txth 5) ;字高

  (if (not bx) (setq bx 1))

  (setq p1 (getpoint "\n請選擇起點:")) ;在零件上選一點

  (setq p2 (getpoint "\n請選擇第二點或回車表示無第二點")) ;標注位置處一點

  (setq bxh (getint (gstr "\n請輸入序號" bx))) ;序號數

  (if bxh (setq bx bxh))

  (cond (p2

   (command "layer" "set" 2 " ") ;改到畫細線圖層

   (setq ang 1 (angle p1 p2))

   (setq p3 (polar p1 ang (-(distance p1 p2) radi))) ;畫圓、線

   (command "pline"

   (polar p1 ang 1 0.25)

   "w" 0.5 0,5 "A" "CE"p1"A"359.9"L""W"0 0 p3"")

   (command"circle"p2 radi)

   (command "layer" "set" 6 " " ;改到寫文字圖層

   "text" "J" "M" p2 txth 0 bx) ;寫文字

  )

   ((not p2) ;如果在零件中直接標注

   (command "layer" "set" 2 " ") ;改到畫細線圖層

   (Command "circle" p1 radi) ;畫圓

   (command "layer" "set" 6 " " ;改到寫文字圖層

   "text" "J" "M" p1 txth 0 bx) ;寫文字

   )

  )

  (setq bx (+ bx 1))

  (princ)

上一頁 [1] [2] 下一頁
我有問題,我要進入論壇
出處:本站原創 作者:佚名
 熱點文章
·如何定制自己的個性化..
·proe超級技巧
·怎樣學好PRO/E軟件?
·PRO/E COFNIG文件設置..
·PROE將默認英制轉換成..
·PRO/E分模經驗總結
·Pro/E 各種曲線方程集..
·Pro/E 各種曲線方程集..
·Pro/E 各種曲線方程集..
·Pro/E 各種曲線方程集..
·Pro/E 各種曲線方程集..
·舊版ProE如何讀取野火..
·Pro/E如何做兩條c2(曲..
·Pro/E 2001下一個陣列..
·一款鈑金產品的結構設..
 推薦文章
·翻砂鑄造的特點及其工..
·整編SolidWorks應用技..
·模具選材原則
·如何解決中文Pro/E工程..
·Pro/ENGINEER 中的文本..
·Pro/ENGINEER Wildfir..
·模型從proe->ansys..
·用行為建模優化設計的..
·簡單的Top-Down設計實..
·適合初學者的基礎練習..
·ProE不傳之秘笈(高級技..
·PRO/E 關于零件精度的..
·Pro/E的scan-tools工具..
·關系式的世界
·關系式教程
丝瓜视频app色-丝瓜视频app在线-丝瓜视频在线播放