AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~
 [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 2020-211  [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Oooo-110  [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Oo-2-110  [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Ziao1510  [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 BPl3tjj  [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Uos15010

[分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖

向下

 [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Empty [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖

發表 由 djh1006 于 2014-10-07, 14:01

代碼:
;XAN.lsp
;作圖線-任意角度

(defun C:XAN()
  (graphscr)
  (setvar "CMDECHO" 0)

;===作圖線建構於TEMP圖層===
  (command "-LAYER" "P" "N" "0" "")
  (setq LAY_CURRENT (getvar "CLAYER"))
  (command "-LAYER" "ON" LAY_CURRENT "T" LAY_CURRENT "U" LAY_CURRENT "")
  (setq LL (tblsearch "LAYER" "TEMP"));偵測是否有TEMP圖層
  (if (= LL nil)(command "-LAYER" "N" "TEMP" ""));若無則新建TEMP圖層
  (command "-LAYER" "ON" "TEMP" "T" "TEMP" "U" "TEMP" "C" "47" "TEMP"  "P" "N" "TEMP""")
  ;打開TEMP並解鎖,解凍,設為不出圖
;===

  (setq
    OSP (getvar "OSMODE")
    OCT (getvar "CTAB")
    OCV (getvar "CVPORT")
  )
  (setq PT1 (getpoint "\n作圖線第一點:"))
  (while (/= PT1 nil)
    (command "UNDO" "BE")
    (princ "\n作圖線另一點 [Esc 離開]:")
    (command ".XLINE" PT1 pause "")
    (setq PT2 (getvar "LASTPOINT"))
    (setq P1 (polar PT1 (/ (* 135 PI) 180) 10))
    (setq P2 (polar PT1 (/ (* 315 PI) 180) 10))
    (setvar "OSMODE" 0)
    (if (or (= OCT "Model")(= OCV 1))(command "ZOOM" P1 P2))
    (setq PTN (ssget PT1))
    (if (/= PTN nil)
      (command "CHANGE" PT1 "" "P" "LA" "TEMP" "C" "BYLAYER" "LT" "BYLAYER" "")
    )
    (if (or (= OCT "Model")(= OCV 1))(command "ZOOM" "P"))
    (setvar "OSMODE" OSP)
    (command "UNDO" "E")
    (setvar "OSMODE" 4151)
    (setq PT1 (getpoint "\n作圖線第一點:"))
  )
  (prin1)
)

程式載入後,直接輸入XAN
附件
 [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Attachment
xan.zip 您無權下載這里的附件。(1 Kb) 下載 49 次
djh1006
djh1006
中級會員
中級會員

文章總數 : 169
年齡 : 48
來自 : 彰化縣員林鎮中山路二段369巷二弄15-14號
職業 : 連續沖壓模具設計工程師
愛好 : UG,SOLIDWORKS,AUTOCAD 2D,autolisp
個性 : 內向偏外
使用年資 : 23年以上
使用版本 : 2014
積分 : 7
經驗值 : 4398
威望值 : 336
注冊日期 : 2011-06-16
男 獅子座 豬

回頂端 向下

 [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Empty 回復: [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖

發表 由 李青繡 于 2014-10-13, 13:53

謝謝無私的分享
李青繡
李青繡
初級會員
初級會員

文章總數 : 12
年齡 : 42
來自 : 彰化
職業 : 會計
愛好 : 看書
個性 : 一板一眼
使用年資 : 新手初學
使用版本 : 2014
積分 : 1
經驗值 : 2243
威望值 : 6
注冊日期 : 2014-04-17
經典問與答讀者 2014聚會勳章 女 雙子座 蛇

回頂端 向下

 [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Empty 回復: [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖

發表 由 meet_emily 于 2014-10-14, 07:00

~謝謝分享~受益了~
meet_emily
meet_emily
高級會員
高級會員

文章總數 : 123
年齡 : 49
來自 : 宜蘭
職業 : 學習
愛好 : 電影,音樂
個性 : 有點呆板,但不古板!有點天真,但不失真!有點強硬,但不強勢!
使用年資 : 6
使用版本 : 2010
積分 : 12
經驗值 : 4493
威望值 : 56
回帖精華 : 1
注冊日期 : 2008-10-12
女 處女座 狗

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
 [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Uos15010  [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 BPl3tjj  [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Ziao1510  [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Oo-2-110  [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Oooo-110  [分享]畫圖任意角度輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 2020-211