下載首頁 | 資訊中心 | 文章分類 | 最近更新 | 排 行 榜 |
文章搜索: 分類 關鍵字
您的位置:首頁軟件教程AutoCADAutoCAD資料教程 → CAD中自動畫管線圖的LISP程序
CAD中自動畫管線圖的LISP程序
日期:2007-12-3 20:30:19 人氣:113     [ ]
  畫一些管路原理圖時,當代表不同管路的直線在圖中相交時,需將在交點處的某一直線斷開,再用一半圓連接兩斷點,使用下面這個LISP編寫程序,只用鍵入"brel"的命令,其它的就由電腦去完成了。

  程序中使用"break"命令截斷需要被斷開的管線,再用"arc"命令畫一半圓連接兩斷點。變量p讀取管線交點;p1、p2為點p的左右或上下兩點;p3為連接p1、p2半圓的中點。由于使用"break"命令時若AUTOCAD環境處于對象捕捉方式開始時用變量myosmode記錄系統變量OSMODE,而后設置OSMODE為0,程序結束后再設置還原OSMODE。變量horn判斷用戶需要斷開的是水平線還是垂直線。

(defun c:brel(/myosmode horv p p1 p2 p3)
 (setq myosmode (getvar "OSMODE"))
 (setvar "OSMODE" 0)
 (setq p (getpoint "\nselect point to break:"))
 (initget 1 "H V")
 (setq horv (getkword " Direction[H/V]?"))
 (if (= horv "H")
  (progn
   (setq p1 (list (- (car p) 1.5) (cadr p)))
   (setq p2 (list (+ (car p) 1.5) (cadr p)))
   (setq p3 (list (car p) (+ (cadr p) 1.5)))
  )
  (progn
   (setq p1 (list (car p) (- (cadr p) 1.5)))
   (setq p2 (list (car p) (+ (cadr p) 1.5)))
   (setq p3 (list (+ (car p) 1.5) (cadr p)))
  )
 )
 (command "break" p1 p2)
 (command "arc" p1 p3 p2)
 (setvar "OSMODE" myosmode)
 (princ)
)
(princ "\nStart command with brel which will break a line and join it with an arc.")
我有問題,我要進入論壇
出處:本站原創 作者:佚名
 熱點文章
·如何定制自己的個性化..
·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在线-丝瓜视频在线播放