AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~
[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 Oooo-110 [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 Oo-2-110 [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 Ia15010 [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 Ziao1510 [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 BPl3tjj [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 Uos15010 [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 Uos15011

[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊

2頁(共3頁) 上一頁  1, 2, 3  下一步

向下

[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 Empty [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊

發表 由 tarpon 于 2010-07-28, 09:03

主題回顧 :

[問題]選取圖塊計算數量後將表格繪製於圖面上並插入圖塊

q1:此程式會計算圖面所有圖塊,如何改成只有選取範圍內圖塊
q2:含屬性圖塊如不將其過濾排除,就必須分解才可插入於圖表
有沒有辦法將含屬性圖塊及其值一併繒製插入於表格內[表格須加屬性值欄位]


---------------------------------------------------------------------------------
希望未來cad版本資料萃取有自動將圖塊插入於表格的功能那就太棒了 竊喜
---------------------------------------------------------------------------------



程式
代碼:
(defun c:bombl()
  (setvar "cmdecho" 0)
  (setq os (getvar "osmode"))
  (setvar "osmode" 0)
  (setq pt1 (getpoint "\n表格左上角插入點: "))
  (setq ww 1200.0);表格總寬度
  (setq hh 100.0);表格高度
  (setq pt2 (polar pt1 0 ww));表格右上角點
  (setq pt3 (polar pt2 (* pi 1.5) hh));表格右下角點
  (setq pt4 (polar pt1 (* pi 1.5) hh))表格左下角點
  (command "pline" pt1 pt2 pt3 pt4 "c");繪表格框線
  (setq pt5 (polar pt1 0 (/ ww 4)));表格第1格右上角點
  (setq pt6 (polar pt5 (* pi 1.5) hh));表格第1格右下角點
  (command "line" pt5 pt6 "");繪表格第1格分隔線
  (setq pt7 (polar pt5 0 (/ ww 2)));表格第2格右上角點
  (setq pt8 (polar pt7 (* pi 1.5) hh));表格第2格右下角點
  (command "line" pt7 pt8 "");繪表格第2格分隔線
  (command "text" "m" (inters pt1 pt6 pt4 pt5) (/ hh 2) 0 "圖塊符號");表格第1格標題
  (command "text" "m" (inters pt5 pt8 pt6 pt7) (/ hh 2) 0 "圖塊名稱");表格第2格標題
  (command "text" "m" (inters pt7 pt3 pt8 pt2) (/ hh 2) 0 "圖塊數量");表格第3格標題
  (setq blk (tblnext "block" t));取出第一個block圖元內含性質
  (while blk
    ;(setq blk1 (assoc 70 blk));取出block屬性
    ;(if(/= (setq blk2 (itoa(cdr blk1))) "2");排除含屬性block
    (progn
      (setq blkn (assoc 2 blk));取出block名稱
      (setq blk_key (substr (cdr blkn) 1 1));取出block名稱
      (if (/= blk_key "*")
        (progn
       (setq ss (ssget "X" (list blkn)));建立過濾block選集
            (if (null ss)
              (setq ssn 0);歸零
              (setq ssn (sslength ss));計算block選集數量           
            )
            (setq blknn (cdr blkn));取出block名稱
       (setq pt1 pt4 pt5 pt6 pt2 pt3 pt7 pt8);點1=點4 點5=點6 依此類推
            (setq pt4 (polar pt1 (* pi 1.5) hh));
            (setq pt6 (polar pt5 (* pi 1.5) hh));
            (setq pt3 (polar pt2 (* pi 1.5) hh));
       (setq pt8 (polar pt7 (* pi 1.5) hh));
       (setq pt9 (polar pt1 (angle pt1 pt6) (/ (distance pt1 pt6) 2.0)));
            (command "pline" pt2 pt3 pt4 pt1 "");
            (command "line" pt5 pt6 "");
       (command "line" pt7 pt8 "");
       (command "text" "m" (inters pt5 pt8 pt6 pt7) (/ hh 2) 0 blknn);寫出block名稱
            (command "text" "m" (inters pt7 pt3 pt8 pt2) (/ hh 2) 0 (itoa ssn));寫出block數量
       (setq blknn (strcat "*" blknn));block名稱加星號分解
       (command "insert" blknn pt9 "1" "1" "0");插入block符號
        )
      )
      ;(setq blk (tblnext "block"));old計算下一個block
    );progn
    ;);if
    (setq blk (tblnext "block"));new計算下一個block
  );while
  (setvar "osmode" os)
  (prompt "bombl")
  (prin1)
)
tarpon
tarpon
中級會員
中級會員

文章總數 : 206
年齡 : 29
來自 : 台北
職業 : 設計
愛好 : 打球
個性 : 溫和
使用年資 : 5年
使用版本 : 2006
積分 : 6
經驗值 : 4370
威望值 : 239
注冊日期 : 2010-07-01
串連貼紙成功 男 巨蟹座 馬

回頂端 向下


[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 Empty 回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊

發表 由 妤璇 于 2011-06-12, 08:10

謝謝分享及教學。
lisp真好
決定要來去研究lisp


妤璇
妤璇
初級會員
初級會員

文章總數 : 66
年齡 : 42
來自 : 台中市
職業 : 家管
愛好 : 看書、音樂、戶外活動、逗女兒生氣……
個性 : 溫和
使用年資 : 五年
使用版本 : 2011
積分 : 3
經驗值 : 3583
威望值 : 39
注冊日期 : 2010-10-01
串連貼紙成功 女 雙子座 蛇

回頂端 向下

[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 Empty 回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊

發表 由 youjyh 于 2011-06-29, 17:42

感謝無私分享,真的收穫很多!! 感動
youjyh
youjyh
初級會員
初級會員

文章總數 : 19
年齡 : 48
來自 : 台北市
職業 :
愛好 : 看電影
個性 : 隨和
使用年資 : 8年
使用版本 : 2008
積分 : 1
經驗值 : 3163
威望值 : 6
注冊日期 : 2011-05-25
藍鵲155號
男 巨蟹座 豬

回頂端 向下

[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 Empty 回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊

發表 由 光卓 于 2011-07-19, 17:29

還沒看懂
先下來觀摩觀摩

感謝大大無私分享
光卓
光卓
一般會員
一般會員

文章總數 : 17
年齡 : 31
來自 : 台中
職業 : 學生(碩)
愛好 : 程式 工程圖
個性 : 極端
使用年資 : 約500小時
使用版本 : 2007
經驗值 : 3121
威望值 : 18
注冊日期 : 2011-07-06
男 金牛座 龍

回頂端 向下

[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 Empty 回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊

發表 由 leoneriol 于 2011-11-23, 12:22

shenhung 寫到:抓點模式.和圖層鎖住排除..程式已修正..
Spoiler(用來隱藏帖子內容):

程式更新檔載點..(0314)
http://db.tt/5910EfY
代碼:

;----計算圖塊並列表--------------
;--------------------------------
;指令  dbom
;
;僅以屬性數量做基本排序----------
;--------------------------------
;屬性值排序未指定位置,無法排序---
;--------------------------------
;更新抓點模式.和圖層鎖住圖塊排除-
;--------------------------------
(defun dbom_err(st)
(if osmode (setvar "osmode" osmode))
(setq *error* old_err)
(setvar "cmdecho" 1)
(princ) 
)
;-----------------------------------------------------------------------
(defun c:dbom(/)
  (setvar "cmdecho" 0)
  (setq osmode (getvar "osmode"))
  (getbom_block)
  (draw_bom)
  (setq *error* old_err)
  (setvar "osmode" osmode)
  (setvar "cmdecho" 1)
  (princ)
 
)
;--------------------------------------------------------------------------
;----選擇圖塊.並過濾圖塊..-------------------------------------------------
(defun getbom_block( / bom_str bom_str1 bom_en bb_name  m-ent en2 att_nae att_val w i bb_layer layer_list)
    (setq old_err *error* *error* dbom_err)
    (setq bom_ss(ssget '((0 . "INSERT"))))
    (setq i 0  @att_lng 0)
    (setq bom_f1 '())  ;無屬性數量串列
    (setq bom_att '())  ;有屬性串列
    (setq bom_str "")  ;屬性字串
    (setq bom_str1 '()) ; 屬性串列
    (repeat (sslength bom_ss)
            (setq bom_en (ssname bom_ss i))
            (setq bb_name  (dxfa 2  bom_en))
            (setq bb_layer (dxfa 8  bom_en))  ;圖層
            (setq layer_list (tblsearch "layer" bb_layer))
        (if (= (cdr (assoc 70 layer_list)) 0)  ;過濾掉圖層鎖住的物件  (70 .4) 為鎖住.
            (progn      
            (setq m-ent (dxfa -1 bom_en))
            (setq en2 (entnext m-ent))
       (if (/= en2 nil)
      (progn
       (if (= (dxfa 0 en2) "ATTRIB") ;有屬性圖塊
          (progn
          (setq w 0) 
          (while(/= (dxfa 0 en2) "SEQEND")
                     (setq att_name (dxfa 2 en2))  ;屬性名
                (setq att_val  (dxfa 1 en2))  ;屬性值
                (if  (= w 0)
                 (progn
                 (setq bom_str  (strcat bb_name "|" att_name "," att_val))
            (setq bom_str1 (cons bb_name bom_str1))
            (setq bom_str1 (cons (strcat att_name att_val) bom_str1))
            )
                 (progn
                      (setq bom_str  (strcat bom_str  "|" att_name "," att_val))
                 (setq bom_str1 (cons (strcat att_name att_val) bom_str1))
            )
              
           ) 
                     (setq en2 (entnext en2))
                (setq w (1+ w))
          );WHILE
          (setq bom_att (cons (list (reverse bom_str1) bom_str) bom_att)) ;將圖塊屬性.放到bom_att串列內
          (setq bom_str ""  bom_str1 '())  ; 設初始變數
          (if (> w @att_lng) (setq @att_lng w))  ;設置屬性數量
          );progn
          (bom-none)
       );  if
       ) ;PROGN  處理有屬性圖塊結束~
             (bom-none)   
       ) 
      ));if progn  圖層打開.才處理過濾
      
          (setq i (1+ i))
    );repeat
   


;---------------------------------------------------------------------------------
(defun draw_bom()
    (setq th  50)      ;字高
    (setq bom_ht  100)  ;欄框高度
    (setq bom_wid1 400)  ;圖例寬度
    (setq bom_wid2 1000) ;圖塊名稱寬度
    (setq bom_wid3 400)  ;數量度
    (setq bom_wid4 400)  ;屬性度
    (setq long_list '(400 1000 400)) ;wid1 wid2 wid3
    (setq bom_text '("圖  例" "圖塊名稱" "數量"))
    (setq att_text '("屬性標籤+值-" "屬性標籤+值二" "屬性標籤+值三" "屬性標籤+值四"  "屬性標籤+值五"))
    (setq base_long (+ bom_wid1 bom_wid2 bom_wid3))
   
;--------------------------------------------------------------------------------
    (setq spt (getpoint "\n插入點:"))
    (cond ((= @att_lng nil)  ;無屬性塊
     (setq all_long base_long)
     )
     ((/= @att_lng nil)  ;有屬性塊加入屬性寬度x屬性數量
     (setq all_long (+ base_long (* @att_lng bom_wid4)))
     )
    )
;---------畫檔頭-------------------------------------------------------------------
  (setvar "osmode" 0)
  (draw_bom_val nil nil)
 
;----------------------------------------------------------------------------------
            (if (/= bom_f1 nil)                      ;無屬性圖塊..畫出.
           (progn
       (setq mm 0)
       (repeat (length bom_f1)
          (setq f1_en (nth mm bom_f1))
          (setq block_name (car f1_en))
          (setq block_quan (cdr f1_en))
          (setq bom_text (list "" block_name block_quan))
          (setq att_text '(""))
          (draw_bom_val block_name 0)
          (setq mm (1+ mm))
       );repeat
       )
       ); if
            (if (/= bom_att nil)                      ;有屬性圖快畫出
           (progn
      (setq bom_att (sort_bom1 bom_att))  ; 屬性長度排序
      (setq bom_qu (reverse (sort_bomx bom_att))) ;計算有屬性圖塊塊量
      
      (setq mm 0)
      (repeat (length bom_qu)
              (setq f1_temp (nth mm bom_qu))
              (setq en_qu  (cdr f1_temp))
              (setq val_list (cutstr_plus (nth 0 (car f1_temp)) '("|")))
              (setq block_name (nth 0 val_list))
              (setq att_val  (nth 1 val_list))
              (setq bom_text (list "" block_name en_qu))
              (setq oo 1 att_text '())
              (repeat (1- (length val_list))
                 (setq att_text (cons (nth oo val_list) att_text))
                 (setq oo (1+ oo))
         ) 
              (setq att_text (reverse att_text) att_qu 1)
              (draw_bom_val block_name 1)
              (setq mm (1+ mm))
      )
      );progn
          )

;---------------------------------------------------------------------------------
;------畫欄框---------------------------------------------------------------------
(defun draw_bom_val(bk_name key /  ii jj pt1 pt2 pt3 pt4 Q txt1 txt2 lpt1 lpt2)
    ; key  識別..有屬性為1 .無屬性為o..標題欄字 nil
    ;bk_name  -->block name
    (setq ii 0 jj 0)
    (setq an (* pi (/ 270.0 180.0)))
    (setq pt1 spt)
    (setq pt2 (polar pt1 0 all_long))
    (setq pt3 (polar pt1 an bom_ht))
    (setq pt4 (polar pt2 an bom_ht))
    (command "pline" pt1 pt2 pt4 pt3 pt1 "")
    (if (/= @att_lng nil)
        (setq Q (+ 3 @att_lng))
        (setq Q 3)
    ) 
   
    (setq tx1 pt1)
    (setq lpt1 pt1 lpt2 pt3)
    (repeat Q
            (cond ((< ii 2)
          (setq lpt1 (polar lpt1 0 (nth ii long_list)))
                    (setq lpt2 (polar lpt2 0 (nth ii long_list)))
          (setq tx2 lpt2)
          (cond ((and (= key 0)(= ii 0)) ;無屬性block 迴圈第1次..插入圖塊
           (command "insert" bk_name (midpt tx1 tx2) "" "" "")
                          )
           ((and (= key 1)(= ii 0)) ;有屬性block,迴圈第1次..插入圖塊
                   (setq k 0)
                   (setvar "attdia" 0)  ;交談框輸入關閉
                   (command "_insert" bk_name (midpt tx1 tx2) "1" "1" "0")
                           (repeat (length att_text)  ;輸入屬性值..
                             (command  (nth 1 (cutstr_plus (nth k att_text) '(",")))
                            
                   )  ;
                               (setq k (1+ k))
                           )
                                                  
           ) ;
               )            
          (setvar "attdia" 1)   
          (command "line" lpt1 lpt2 "")
          (command "text" "m" (midpt tx1 tx2) th  0 (nth ii bom_text))
           
                  )
                ((and (< 1 ii (+ 2 @att_lng)) (/= @att_lng 0))
      
        (setq lpt1 (polar lpt1 0 bom_wid4))
                  (setq lpt2 (polar lpt2 0 bom_wid4))
        (setq tx2 lpt2)
             (command "line" lpt1 lpt2 "")
        (if (and (= key 1) (< jj (length att_text)))
            (command "text" "m" (midpt tx1 tx2) th  0 (vl-string-subst "" "," (nth jj att_text)))
            (command "text" "m" (midpt tx1 tx2) th  0 (nth jj att_text))
         
        ) 
             (setq jj (1+ jj))      
       )
           (T
      
        (setq lpt1 (polar lpt1 0 (nth 2 long_list)))
        (setq lpt2 (polar lpt2 0 (nth 2 long_list)))
        (setq tx2 lpt2)
        (command "text" "m" (midpt tx1 tx2) th  0 (nth 2 bom_text))  ; 最後一個..直接寫入數量抬頭..
                )
         
         
     )
     (setq tx1 lpt1)    
          (setq ii (1+ ii))       
    );repeat
    (setq spt pt3)

;-------無屬性圖塊.直接計算數量-----------------------------------------------------
(defun bom-none( / bktrue bom_quan new_bk_list)
            (setq bk_true (assoc bb_name bom_f1)) ;檢查圖塊是否在數量串列內..
       (if (= bk_true nil)
           (setq bom_f1 (cons (cons bb_name 1) bom_f1))  ;如果不存在..加入圖塊..數量設為1
           (progn
           (setq bom_quan (cdr bk_true))                 
           (setq new_bk_list (cons bb_name (1+ bom_quan)))  ;如果存在.取出串列內 資料..數量加1
           (setq bom_f1 (subst new_bk_list bk_true bom_f1))  ;替換 串列
           )
       )
          
)
;---------------------------------------------------------------------------------
;-------有屬性圖塊.以屬性數量做為排序----------------------------------------------
(defun sort_bom1 (x_list / a b)
    (vl-sort x_list '(lambda (a b)
         (< (length (car a))  (length (car b)))))
)

;------計算屬性數量-------------------------------------------------------------------
(defun sort_bomx (x_list / temp i ss val val_true bom_quan new_bk_list)
            (setq temp '() i 0)
            (repeat (length x_list)
               (setq ss (nth i x_list))
               (setq val (cdr ss))
               (setq val_true (assoc val temp))  ;檢查 屬性資料串是否在串列內
               (if (= val_true nil)
                   (setq temp (cons (cons val 1) temp))  ;如果不存在..加入屬性資料串.數量設為1
                   (progn
                   (setq bom_quan (cdr val_true))
                   (setq new_bk_list (cons val (1+ bom_quan)))  ;如果存在.取出串列內 資料..數量加1
                   (setq temp (subst new_bk_list val_true temp)) ;替換 串列
         )
               )
          (setq i (1+ i))
       )
(if temp temp)

)
;-以下為副程式---------------------------------------------------------------------
;----------------------------------------------------------------------------------
;-取得dxf 碼-----------------------------------------------------------------------
(defun dxfa (code entity / dxf_lis)
  (setq dxf_lis (cdr (assoc code (entget entity (list "*")))))
)
;----2點取中點--------------------------------------------------------------------
(defun midpt (first_pt end_pt)
    (setq mpt (polar first_pt (angle first_pt end_pt) (/ (distance first_pt end_pt) 2)))
    (if mpt mpt)
)
;---------------------------------------------------------------------------------
;------------中文字串轉成串列----------------------------------------------------
(defun cutstr_plus(txt# lis / bs ii ww b al key_code str_int str_length)
      (setq al '())
      (setq bs "")
      (setq ii 0 ww 1)
      (setq key_code (ascii (nth 0 lis)))
      (setq str_code (vl-string-elt txt# ii)) ;找出ascii 碼
      (setq str_length (strlen txt#))
      (while (/= ii  str_length)
     
      (if    (and (or (<=  65 str_code 90)  ; A-Z        英文字
            (<=  97 str_code 122) ; a-z
            (<=  48 str_code 57) ; 0-9
            (=  str_code  32) ;空白
            (=  str_code  34) ;  " 引號
            (=  str_code  40) ;(                 
            (=  str_code  41) ;)
            (=  str_code  46) ; _
            (=  str_code  45) ; -
            (=  str_code 61)  ;=
        )
        (/=  str_code key_code)
            )
       (progn
             (setq bs (strcat bs (substr txt# ww 1) ))
             (setq ww (1+ ww) ii (1+ ii))
       )
            (if (= str_code key_code)
           (progn
          (if (/= ii 0)
          (setq al (cons bs al));如果遇到斷字元..就把字串加入
                    )
          (setq bs "")
          (setq ww (1+ ww) ii (1+ ii))
       )
           (progn
       (setq bs (strcat bs (substr txt# ww 2))) ;中文字
       (setq ww (+ ww 2) ii (+ ii 2))
       ) 
       )
    ) ;if
        (if (/= ii  str_length)
   (setq str_code (vl-string-elt txt# ii)) ;找出ascii碼
   ) 
      );while
      (setq al (reverse (cons bs al)))
     
    (if al al)
) ;defun
;---------------------------------------------------------------------------------
(princ)
超專業的阿!!! 感激

shenhung大大真的是太厲害了!!!

程式內有好多能夠借鏡的地方!! 熱情
leoneriol
leoneriol
榮譽顧問
榮譽顧問

文章總數 : 817
年齡 : 35
來自 : 基隆市七堵區
職業 : 機電工程公司-繪圖(工地)
愛好 : 看小說
個性 : 不愛說話-反應慢
使用年資 : 6年
使用版本 : 2008 & 2012
積分 : 27
經驗值 : 7353
威望值 : 956
發帖精華 : 1
回帖精華 : 1
注冊日期 : 2009-03-12
經典問與答讀者 藍鵲34號
2009聚會勳章 2014聚會勳章 男 雙魚座 鼠

回頂端 向下

[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 Empty 回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊

發表 由 妤璇 于 2012-03-12, 09:38

再次感謝,唯使用時會有一、兩種圖塊沒有計算到,不知是那裡出問題了??
妤璇
妤璇
初級會員
初級會員

文章總數 : 66
年齡 : 42
來自 : 台中市
職業 : 家管
愛好 : 看書、音樂、戶外活動、逗女兒生氣……
個性 : 溫和
使用年資 : 五年
使用版本 : 2011
積分 : 3
經驗值 : 3583
威望值 : 39
注冊日期 : 2010-10-01
串連貼紙成功 女 雙子座 蛇

回頂端 向下

[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 Empty 回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊

發表 由 Tiger&蘋果爸 于 2012-03-14, 11:33

妤璇 寫到:再次感謝,唯使用時會有一、兩種圖塊沒有計算到,不知是那裡出問題了??
請問是哪一種圖塊,有可能無法計算「動態圖塊」!
認同

____________________________________________________________________________________
[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 Oo-2-110 [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 Ia15010 [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 Ziao1510 [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 BPl3tjj
Tiger&蘋果爸
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 18711
年齡 : 43
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 72764
威望值 : 13838
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

回頂端 向下

[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 Empty 回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊

發表 由 fuju 于 2012-04-02, 11:23

工作有用到,先下載來學習謝謝分享。
fuju
fuju
中級會員
中級會員

文章總數 : 61
年齡 : 53
來自 : 台南市
職業 :
愛好 : 靜坐
個性 : 善良
使用年資 : 8
使用版本 : 2004map
積分 : 5
經驗值 : 3697
威望值 : 105
注冊日期 : 2010-07-30
藍鵲209號
男 水瓶座 馬

回頂端 向下

[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 Empty 回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊

發表 由 ching1791 于 2012-04-25, 13:07

真是非常專業,也非常好用的LSP,努力學習研讀
avatar
ching1791
一般會員
一般會員

文章總數 : 104
年齡 : 48
來自 : 知識
職業 :
愛好 : 郊遊
個性 : 平庸
使用年資 : 4
使用版本 : 2004
經驗值 : 4495
威望值 : 21
注冊日期 : 2008-05-13
男 天蝎座 豬

回頂端 向下

[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 Empty 回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊

發表 由 EVONNE 于 2012-04-26, 22:39

很棒的程式,對我工作上需捉預算及數量很有幫助 !!謝謝分享~
EVONNE
EVONNE
初級會員
初級會員

文章總數 : 90
年齡 : 51
來自 : 苓雅區
職業 : 繪圖
愛好 : 看書
個性 : 尚可
使用年資 : 10
使用版本 : 2014 2016
積分 : 1
經驗值 : 3454
威望值 : 30
注冊日期 : 2011-07-18
藍鵲329號
女 天秤座 猴

回頂端 向下

[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 Empty 回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊

發表 由 guanbo.bruce 于 2012-05-05, 04:53

shenhung 寫到:
....
抓點模式.和圖層鎖住排除..程式已修正..
程式更新檔載點..(0314)
http://db.tt/5910EfY
....

太感動了!
謝謝shenhung大大的無私分享與教學!
guanbo.bruce
guanbo.bruce
初級會員
初級會員

文章總數 : 50
年齡 : 50
來自 : Taipei
職業 : Engineer
愛好 : 建築、藝術、閱讀、象棋、游泳、3C與塗鴉。
個性 : 很熱誠、頗自省、好好奇、蠻懶散。
使用年資 : 24
使用版本 : 2015
積分 : 3
經驗值 : 3408
威望值 : 216
注冊日期 : 2011-08-11
男 巨蟹座 雞

https://www.facebook.com/guanbo.bruce

回頂端 向下

[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 Empty 回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊

發表 由 greetingsfromtw 于 2012-05-17, 15:02

shenhung 寫到:
....
抓點模式.和圖層鎖住排除..程式已修正..
程式更新檔載點..(0314)
http://db.tt/5910EfY
....

在擅自使用過shenhung前輩的lisp之後真的是太感動了,太棒了這個lisp,

只能說像您這樣無私的人在這世上太少見了!真的很謝謝您!



greetingsfromtw
greetingsfromtw
初級會員
初級會員

文章總數 : 222
年齡 : 35
來自 : 高雄
職業 : CAD菜鳥繪圖員
愛好 : 吃好吃的東西
個性 : 文靜
使用年資 : 不到兩年
使用版本 : 公司為2008,家中為2011
積分 : 3
經驗值 : 3976
威望值 : 189
注冊日期 : 2012-05-02
經典問與答讀者 藍鵲441號
男 天蝎座 鼠

回頂端 向下

[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 Empty 回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊

發表 由 wwsh3 于 2012-07-31, 11:48

剛好須要這一程式,謝謝大大們的分享,解決小弟工作上之困。
wwsh3
wwsh3
初級會員
初級會員

文章總數 : 46
年齡 : 51
來自 : 彰化
職業 : 建築施工
愛好 : 逛論壇
個性 : 內向
使用年資 : 15YEAR
使用版本 : 2010
積分 : 1
經驗值 : 3428
威望值 : 51
注冊日期 : 2011-01-26
男 雙子座 猴

回頂端 向下

[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 Empty 回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊

發表 由 lingo_st 于 2012-08-05, 13:56

感謝熱心分享,在旁邊偷師獲益不少,也為工作上帶來不少方便
lingo_st
lingo_st
中級會員
中級會員

文章總數 : 211
年齡 : 55
來自 : 新北市
職業 : 營造,建設
愛好 : 學習,服務,電腦軟硬體
個性 : 正直,達觀且無可救藥的雞婆
使用年資 : 使用12年但真的是新手
使用版本 : 2012,2013
積分 : 6
經驗值 : 4127
威望值 : 271
注冊日期 : 2011-12-18
經典問與答讀者 藍鵲238號
男 雙魚座 龍

回頂端 向下

[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 Empty 回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊

發表 由 蜜柑喵喵 于 2012-08-07, 15:51

感謝分享 感動
請問LISP讀取只能是圖塊嗎
聚合線可以嗎 暈倒
蜜柑喵喵
蜜柑喵喵
一般會員
一般會員

文章總數 : 27
年齡 : 29
來自 : 台北
職業 : 學生
愛好 : 動漫
個性 : 隨和
使用年資 : 新手初學
使用版本 : 新手初學
經驗值 : 2890
威望值 : 12
注冊日期 : 2012-04-30
女 摩羯座 蛇

回頂端 向下

[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 Empty 回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊

發表 由 Tiger&蘋果爸 于 2012-08-07, 16:27

蜜柑喵喵 寫到:感謝分享
請問LISP讀取只能是圖塊嗎
聚合線可以嗎
是的!
需要圖塊才能計算數量喔!
認同

____________________________________________________________________________________
[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 Oo-2-110 [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 Ia15010 [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 Ziao1510 [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 BPl3tjj
Tiger&蘋果爸
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 18711
年齡 : 43
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 72764
威望值 : 13838
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

回頂端 向下

[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 Empty 回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊

發表 由 蜜柑喵喵 于 2012-08-08, 15:59

謝謝蘋果拔的解說
但是我要在我的柱子旁邊標示尺寸
LISP可以做到嗎 感動
蜜柑喵喵
蜜柑喵喵
一般會員
一般會員

文章總數 : 27
年齡 : 29
來自 : 台北
職業 : 學生
愛好 : 動漫
個性 : 隨和
使用年資 : 新手初學
使用版本 : 新手初學
經驗值 : 2890
威望值 : 12
注冊日期 : 2012-04-30
女 摩羯座 蛇

回頂端 向下

[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 Empty 回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊

發表 由 Tiger&蘋果爸 于 2012-08-08, 16:51

蜜柑喵喵 寫到:謝謝蘋果拔的解說
但是我要在我的柱子旁邊標示尺寸
LISP可以做到嗎
你是說圖面中所有的柱子都要自動標上尺寸,這部份的確可以使用LISP程式辦到喔!
竊喜

____________________________________________________________________________________
[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 Oo-2-110 [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 Ia15010 [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 Ziao1510 [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 BPl3tjj
Tiger&蘋果爸
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 18711
年齡 : 43
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 72764
威望值 : 13838
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

回頂端 向下

[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 Empty 回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊

發表 由 蜜柑喵喵 于 2012-08-08, 17:10

Tiger&蘋果爸 寫到:
蜜柑喵喵 寫到:謝謝蘋果拔的解說
但是我要在我的柱子旁邊標示尺寸
LISP可以做到嗎
你是說圖面中所有的柱子都要自動標上尺寸,這部份的確可以使用LISP程式辦到喔!
竊喜



可以嗎 歐耶
可是我的柱子是聚合線喔 傻笑
蜜柑喵喵
蜜柑喵喵
一般會員
一般會員

文章總數 : 27
年齡 : 29
來自 : 台北
職業 : 學生
愛好 : 動漫
個性 : 隨和
使用年資 : 新手初學
使用版本 : 新手初學
經驗值 : 2890
威望值 : 12
注冊日期 : 2012-04-30
女 摩羯座 蛇

回頂端 向下

[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 Empty 回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊

發表 由 lingo_st 于 2012-08-08, 20:22

蜜柑喵喵 寫到:可以嗎 歐耶
可是我的柱子是聚合線喔
個人是覺得程式或許使用方法上有限制,不過如果順應它限制的範圍讓它成習,那會帶來更多的便利性,蘋爸的說法應該是指對特定物件可以寫lisp去自動標註,或許單指圖塊,不過個人才疏學淺,無法確認,還請高手協助解惑,只是個人猜測應該聚合線也行吧...
不過如果要能順利計算數量一定要是圖塊這種元件,那就一開始把柱子也建成圖塊就好,只是不同尺寸要建不同名稱,這樣各種不同尺寸的柱也可以一次計算出來.

PS.我們公司的圖上,柱也是建成圖塊...所以有感而發
lingo_st
lingo_st
中級會員
中級會員

文章總數 : 211
年齡 : 55
來自 : 新北市
職業 : 營造,建設
愛好 : 學習,服務,電腦軟硬體
個性 : 正直,達觀且無可救藥的雞婆
使用年資 : 使用12年但真的是新手
使用版本 : 2012,2013
積分 : 6
經驗值 : 4127
威望值 : 271
注冊日期 : 2011-12-18
經典問與答讀者 藍鵲238號
男 雙魚座 龍

回頂端 向下

[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 Empty 回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊

發表 由 Tiger&蘋果爸 于 2012-08-08, 21:24

lingo_st 寫到:
蜜柑喵喵 寫到:可以嗎 歐耶
可是我的柱子是聚合線喔
個人是覺得程式或許使用方法上有限制,不過如果順應它限制的範圍讓它成習,那會帶來更多的便利性,蘋爸的說法應該是指對特定物件可以寫lisp去自動標註,或許單指圖塊,不過個人才疏學淺,無法確認,還請高手協助解惑,只是個人猜測應該聚合線也行吧...
不過如果要能順利計算數量一定要是圖塊這種元件,那就一開始把柱子也建成圖塊就好,只是不同尺寸要建不同名稱,這樣各種不同尺寸的柱也可以一次計算出來.

PS.我們公司的圖上,柱也是建成圖塊...所以有感而發
是的!
柱子標尺寸還是需要在開發適用於「聚合線」的程式才行!
建議算數量還是製作圖塊較好~
認同

____________________________________________________________________________________
[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 Oo-2-110 [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 Ia15010 [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 Ziao1510 [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 BPl3tjj
Tiger&蘋果爸
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 18711
年齡 : 43
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 72764
威望值 : 13838
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

回頂端 向下

[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 Empty 回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊

發表 由 luo.family5 于 2012-08-23, 17:44

書本看不太懂 看看 ginse0727 是如何寫的 謝謝
luo.family5
luo.family5
一般會員
一般會員

文章總數 : 35
年齡 : 59
來自 : 台中縣
職業 : 水電工程
愛好 : 釣魚
個性 : 隨和
使用年資 : 10年
使用版本 : 2010
經驗值 : 3529
威望值 : 49
注冊日期 : 2010-08-23
顧問外掛程式 經典問與答讀者 男 天秤座 鼠

回頂端 向下

[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 Empty 回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊

發表 由 daniel8742 于 2012-09-20, 11:41

這實在是一個需要好好討論的問題。謝謝分享
daniel8742
daniel8742
一般會員
一般會員

文章總數 : 9
年齡 : 50
來自 : 台北市
職業 : 建築
愛好 : 建築
個性 : 安靜
使用年資 : 15
使用版本 : 2010
經驗值 : 3360
威望值 : 6
注冊日期 : 2010-10-11
男 處女座 雞

回頂端 向下

[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 Empty 回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊

發表 由 safardy 于 2013-10-09, 18:35

算圖的問題實在令人頭不已
尤其遇到客戶一改再改 再三改
常常就這邊一點紕漏那邊一點瑕疵
可惜還不會使用這些外掛程式...囧
safardy
safardy
一般會員
一般會員

文章總數 : 30
年齡 : 33
來自 : 台北市
職業 : 室內設計
愛好 : 旅遊
個性 : 腦殘
使用年資 : 2年
使用版本 : 2013
經驗值 : 2748
威望值 : 24
注冊日期 : 2012-10-02
藍鵲639號 女 獅子座 虎

回頂端 向下

[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 Empty 回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊

發表 由 qq711222 于 2013-10-10, 11:34

感謝分享 嘗試中
晚點回報狀況
qq711222
qq711222
一般會員
一般會員

文章總數 : 19
年齡 : 38
來自 : 中華人民共和國
職業 : 建築
愛好 : 電腦
個性 : 悶燒
使用年資 : 6
使用版本 : 2010
經驗值 : 2323
威望值 : 0
注冊日期 : 2013-09-15
男 白羊座 雞

回頂端 向下

[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 Empty 回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊

發表 由 shackle_2005 于 2013-10-11, 06:30

不太完整, 修改中............... ( 我用 VBA 寫的, 參考一下!! )
附件
[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 Attachment
block_manager_002.zip 您無權下載這里的附件。(27 Kb) 下載 32 次
[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 Attachment
block_manager_003.zip 您無權下載這里的附件。(27 Kb) 下載 28 次
shackle_2005
shackle_2005
初級會員
初級會員

文章總數 : 141
年齡 : 48
來自 : 台中
職業 : 程式設計
愛好 : 音樂
個性 : 隨和
使用年資 : 10 年
使用版本 : 2013
積分 : 2
經驗值 : 4410
威望值 : 294
注冊日期 : 2010-09-20
男 獅子座 豬

回頂端 向下

2頁(共3頁) 上一頁  1, 2, 3  下一步

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 Uos15011 [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 Uos15010 [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 BPl3tjj [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 Ziao1510 [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 Ia15010 [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 Oo-2-110 [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 2 Oooo-110