AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~

Join the forum, it's quick and easy

AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~
AutoCAD顧問
Would you like to react to this message? Create an account in a few clicks or log in to continue.
[已解決][問題]圖框自動插入比例問題 Io15011 [已解決][問題]圖框自動插入比例問題 2020-310 [已解決][問題]圖框自動插入比例問題 Oiu15010 [已解決][問題]圖框自動插入比例問題 2020-211 [已解決][問題]圖框自動插入比例問題 Oo-2-110 [已解決][問題]圖框自動插入比例問題 BPl3tjj

[已解決][問題]圖框自動插入比例問題

向下

[已解決][問題]圖框自動插入比例問題 Empty [已解決][問題]圖框自動插入比例問題

發表 由 wuwubaibai 周二 15 12月 2020 - 1:31

小弟我在網路上找了自動插入圖框
但插入的圖框比例因為不是整數
所以想加一條可手動切換比例
但改了許久還是無法成功~凡請各位大大幫忙
原碼為pf工具箱的經修改如下

(defun c:frr()
  (setq mylayer (getvar "clayer"))
  (setq layname1 (substr mylayer 1 2))
  (setq layname2 (strcat layname1 "0"))
  (if(setq ed1 (tblsearch "LAYER" layname2))
    (progn
      (setq ed2 (cdr (assoc 70 ed1)))
      (cond
        ((= ed2 0)  (command "layer" "on" layname2 ""))
        ((= ed2 1)  (command "layer" "t" layname2 "on" layname2 ""))
        ((= ed2 4)  (command "layer" "u" layname2 "on" layname2 ""))
        ((= ed2 5)  (progn (command "layer" "t"  str3 "u" layname2 "on" layname2 "")))
      )
   )  
   (setq layname2 "0")
  )
  (command "layer" "s" layname2 "")
  (PRINC "\n】--自動圖框 ")(PRINC)
  (setq pt1 (getpoint "請選擇圖形左上角:\n"))
  (setq pt2 (getcorner pt1 "請選擇圖形右下角:\n"))
  (setq disx (abs (- (car pt1) (car pt2))))
  (setq disy (abs (- (cadr pt1) (cadr pt2))))
  (setq acx  (/ disx 297.00))
  (setq acy  (/ disy 165.00))
  (if (> acy acx)
      (setq acx acy)
  )
   (setq acx (*  (fix (+ (*  acx 10) 0.9999)) 0.1))
  (setq pt0 (list (/ (+ (car pt1 ) (car pt2) (* (- 0 8) acx)) 2.00)
                  (/ (+ (cadr pt1) (cadr pt2) (* (- 0 23.6) acx)) 2.00)))

  (setq os (getvar "osmode"))
  (setvar "osmode" 0)
  (setvar "attreq" 0) ;關閉屬性對話框
  (command "-insert"  "圖框外" pt0 "x"  acx "" "" "" "" "" "" "" "" "" "" ""
          acc  "" "" ""  "" )
 (command "explode" "l") ;炸開插入的圖塊
(setvar "attreq" 1) ;打開屬性對話框
  (setvar "osmode" os)  
)

算出結果後~~ 一直無法手動輸入~麻煩大大們幫忙~謝謝


wuwubaibai 在 周三 30 12月 2020 - 21:20 作了第 2 次修改
wuwubaibai
wuwubaibai
一般會員
一般會員

文章總數 : 59
年齡 : 38
來自 : 彰化市
職業 : 板金
愛好 : 電腦
個性 : 外向
使用年資 : 4
使用版本 : 2010
經驗值 : 2828
威望值 : 0
注冊日期 : 2014-04-18
男 獅子座 狗

回頂端 向下

[已解決][問題]圖框自動插入比例問題 Empty 回復: [已解決][問題]圖框自動插入比例問題

發表 由 wuwubaibai 周四 17 12月 2020 - 23:15

已解決
wuwubaibai
wuwubaibai
一般會員
一般會員

文章總數 : 59
年齡 : 38
來自 : 彰化市
職業 : 板金
愛好 : 電腦
個性 : 外向
使用年資 : 4
使用版本 : 2010
經驗值 : 2828
威望值 : 0
注冊日期 : 2014-04-18
男 獅子座 狗

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
[已解決][問題]圖框自動插入比例問題 Uos15010 [已解決][問題]圖框自動插入比例問題 BPl3tjj [已解決][問題]圖框自動插入比例問題 Ziao1510 [已解決][問題]圖框自動插入比例問題 Oo-2-110 [已解決][問題]圖框自動插入比例問題 Oooo-110 [已解決][問題]圖框自動插入比例問題 2020-211