[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
+81
WillChen199903
linuslo
s5512825
andy75
WayneJ
Reimi
kcn1u2t
安東尼
cadshun
Cher
winnie
kmh
DaVinci520
aweiyang
wateraustin
MANman
user63316d6143117
kim910100
andyhang88
lmt112233
白宗禮
狗狗
ALEX_YU
rickyyang
fina12
Jatsou
johnson887135
kit92064
煙雨宵宵
kaven0922
hua
wkckmjs
minture
jackiehover
et1029et
Monkey.D
klarencee
jenniferaptg
sidney
happyfat
crihy
蔣秉澔
vicki1021
hfwuming
hung
amandattl
verlth
awi
jakehuang
honech57
yu0678
shackle_2005
qq711222
safardy
daniel8742
luo.family5
蜜柑喵喵
lingo_st
wwsh3
greetingsfromtw
guanbo.bruce
EVONNE
ching1791
fuju
leoneriol
光卓
youjyh
妤璇
gill0923
阿德
pizg
Tiger&蘋果爸
shenhung
jack0615.tw
avenir
bruce79
adslwang
長陳
ginse0727
阿希
tarpon
85 posters
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第2頁(共5頁)
[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
主題回顧 :
[問題]選取圖塊計算數量後將表格繪製於圖面上並插入圖塊
q1:此程式會計算圖面所有圖塊,如何改成只有選取範圍內圖塊
q2:含屬性圖塊如不將其過濾排除,就必須分解才可插入於圖表
有沒有辦法將含屬性圖塊及其值一併繒製插入於表格內[表格須加屬性值欄位]
---------------------------------------------------------------------------------
希望未來cad版本資料萃取有自動將圖塊插入於表格的功能那就太棒了
---------------------------------------------------------------------------------
程式
[問題]選取圖塊計算數量後將表格繪製於圖面上並插入圖塊
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- 中級會員
- 文章總數 : 209
年齡 : 34
來自 : 台北
職業 : 設計
愛好 : 打球
個性 : 溫和
使用年資 : 5年
使用版本 : 2006
積分 : 6
經驗值 : 6208
威望值 : 263
注冊日期 : 2010-07-01
Tiger&蘋果爸, DaVinci520, ten0418, miemie120, arvin, dome香, sass720625 and like this post
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
謝謝分享及教學。
lisp真好
決定要來去研究lisp
lisp真好
決定要來去研究lisp
妤璇- 初級會員
- 文章總數 : 66
年齡 : 47
來自 : 台中市
職業 : 家管
愛好 : 看書、音樂、戶外活動、逗女兒生氣……
個性 : 溫和
使用年資 : 五年
使用版本 : 2011
積分 : 3
經驗值 : 5377
威望值 : 39
注冊日期 : 2010-10-01
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
感謝無私分享,真的收穫很多!!
youjyh- 初級會員
- 文章總數 : 22
年齡 : 53
來自 : 台北市
職業 : 工
愛好 : 看電影
個性 : 隨和
使用年資 : 8年
使用版本 : 2008
積分 : 1
經驗值 : 4970
威望值 : 6
注冊日期 : 2011-05-25
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
還沒看懂
先下來觀摩觀摩
感謝大大無私分享
先下來觀摩觀摩
感謝大大無私分享
光卓- 一般會員
- 文章總數 : 17
年齡 : 36
來自 : 台中
職業 : 學生(碩)
愛好 : 程式 工程圖
個性 : 極端
使用年資 : 約500小時
使用版本 : 2007
經驗值 : 4915
威望值 : 18
注冊日期 : 2011-07-06
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
超專業的阿!!!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- 榮譽顧問
- 文章總數 : 818
年齡 : 40
來自 : 基隆市七堵區
職業 : 機電工程公司-繪圖(工地)
愛好 : 看小說
個性 : 不愛說話-反應慢
使用年資 : 6年
使用版本 : 2008 & 2012
積分 : 27
經驗值 : 9156
威望值 : 960
發帖精華 : 1
回帖精華 : 1
注冊日期 : 2009-03-12
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
再次感謝,唯使用時會有一、兩種圖塊沒有計算到,不知是那裡出問題了??
妤璇- 初級會員
- 文章總數 : 66
年齡 : 47
來自 : 台中市
職業 : 家管
愛好 : 看書、音樂、戶外活動、逗女兒生氣……
個性 : 溫和
使用年資 : 五年
使用版本 : 2011
積分 : 3
經驗值 : 5377
威望值 : 39
注冊日期 : 2010-10-01
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
請問是哪一種圖塊,有可能無法計算「動態圖塊」!妤璇 寫到:再次感謝,唯使用時會有一、兩種圖塊沒有計算到,不知是那裡出問題了??
____________________________________________________________________________________
👉[訂購]AutoCAD圖塊大師課程(點我)👈
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
工作有用到,先下載來學習謝謝分享。
fuju- 中級會員
- 文章總數 : 61
年齡 : 58
來自 : 台南市
職業 : 工
愛好 : 靜坐
個性 : 善良
使用年資 : 8
使用版本 : 2004map
積分 : 5
經驗值 : 5491
威望值 : 105
注冊日期 : 2010-07-30
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
真是非常專業,也非常好用的LSP,努力學習研讀
ching1791- 一般會員
- 文章總數 : 112
年齡 : 52
來自 : 知識
職業 : 工
愛好 : 郊遊
個性 : 平庸
使用年資 : 4
使用版本 : 2004
經驗值 : 6336
威望值 : 30
注冊日期 : 2008-05-13
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
很棒的程式,對我工作上需捉預算及數量很有幫助 !!謝謝分享~
EVONNE- 初級會員
- 文章總數 : 108
年齡 : 56
來自 : 苓雅區
職業 : 繪圖
愛好 : 看書
個性 : 尚可
使用年資 : 10
使用版本 : 2014 2016
積分 : 1
經驗值 : 5324
威望值 : 36
注冊日期 : 2011-07-18
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
shenhung 寫到:
....
抓點模式.和圖層鎖住排除..程式已修正..
程式更新檔載點..(0314)
http://db.tt/5910EfY
....
太感動了!
謝謝shenhung大大的無私分享與教學!
____________________________________________________________________________________
寧做不通,勿作庸庸;寧可不屑,不做愚忠;寧試刀鋒,不屑跟風;寧可裝瘋,不為不公!
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
shenhung 寫到:
....
抓點模式.和圖層鎖住排除..程式已修正..
程式更新檔載點..(0314)
http://db.tt/5910EfY
....
在擅自使用過shenhung前輩的lisp之後真的是太感動了,太棒了這個lisp,
只能說像您這樣無私的人在這世上太少見了!真的很謝謝您!
greetingsfromtw- 初級會員
- 文章總數 : 222
年齡 : 39
來自 : 高雄
職業 : CAD菜鳥繪圖員
愛好 : 吃好吃的東西
個性 : 文靜
使用年資 : 不到兩年
使用版本 : 公司為2008,家中為2011
積分 : 3
經驗值 : 5770
威望值 : 189
注冊日期 : 2012-05-02
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
剛好須要這一程式,謝謝大大們的分享,解決小弟工作上之困。
wwsh3- 初級會員
- 文章總數 : 62
年齡 : 56
來自 : 彰化
職業 : 建築施工
愛好 : 逛論壇
個性 : 內向
使用年資 : 15YEAR
使用版本 : 2010
積分 : 1
經驗值 : 5298
威望值 : 51
注冊日期 : 2011-01-26
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
感謝熱心分享,在旁邊偷師獲益不少,也為工作上帶來不少方便
____________________________________________________________________________________
沒有功勞也有苦勞,沒有苦勞也有疲勞的年代已經過去
現在是...........................................
沒有功勞直接就是個屁,連個屁都不是,那就真的很疲勞了
大家一起努力吧,努力別落到連個屁都不是................
lingo_st- 中級會員
- 文章總數 : 211
年齡 : 60
來自 : 新北市
職業 : 營造,建設
愛好 : 學習,服務,電腦軟硬體
個性 : 正直,達觀且無可救藥的雞婆
使用年資 : 使用12年但真的是新手
使用版本 : 2012,2013
積分 : 6
經驗值 : 5921
威望值 : 271
注冊日期 : 2011-12-18
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
感謝分享
請問LISP讀取只能是圖塊嗎
聚合線可以嗎
請問LISP讀取只能是圖塊嗎
聚合線可以嗎
蜜柑喵喵- 一般會員
- 文章總數 : 29
年齡 : 34
來自 : 台北
職業 : CAD繪圖員
愛好 : 動漫
個性 : 隨和
使用年資 : 新手初學
使用版本 : 新手初學
經驗值 : 4699
威望值 : 12
注冊日期 : 2012-04-30
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
是的!蜜柑喵喵 寫到:感謝分享
請問LISP讀取只能是圖塊嗎
聚合線可以嗎
需要圖塊才能計算數量喔!
____________________________________________________________________________________
👉[訂購]AutoCAD圖塊大師課程(點我)👈
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
謝謝蘋果拔的解說
但是我要在我的柱子旁邊標示尺寸
LISP可以做到嗎
但是我要在我的柱子旁邊標示尺寸
LISP可以做到嗎
蜜柑喵喵- 一般會員
- 文章總數 : 29
年齡 : 34
來自 : 台北
職業 : CAD繪圖員
愛好 : 動漫
個性 : 隨和
使用年資 : 新手初學
使用版本 : 新手初學
經驗值 : 4699
威望值 : 12
注冊日期 : 2012-04-30
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
你是說圖面中所有的柱子都要自動標上尺寸,這部份的確可以使用LISP程式辦到喔!蜜柑喵喵 寫到:謝謝蘋果拔的解說
但是我要在我的柱子旁邊標示尺寸
LISP可以做到嗎
____________________________________________________________________________________
👉[訂購]AutoCAD圖塊大師課程(點我)👈
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
Tiger&蘋果爸 寫到:你是說圖面中所有的柱子都要自動標上尺寸,這部份的確可以使用LISP程式辦到喔!蜜柑喵喵 寫到:謝謝蘋果拔的解說
但是我要在我的柱子旁邊標示尺寸
LISP可以做到嗎
可以嗎 歐耶
可是我的柱子是聚合線喔
蜜柑喵喵- 一般會員
- 文章總數 : 29
年齡 : 34
來自 : 台北
職業 : CAD繪圖員
愛好 : 動漫
個性 : 隨和
使用年資 : 新手初學
使用版本 : 新手初學
經驗值 : 4699
威望值 : 12
注冊日期 : 2012-04-30
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
個人是覺得程式或許使用方法上有限制,不過如果順應它限制的範圍讓它成習,那會帶來更多的便利性,蘋爸的說法應該是指對特定物件可以寫lisp去自動標註,或許單指圖塊,不過個人才疏學淺,無法確認,還請高手協助解惑,只是個人猜測應該聚合線也行吧...蜜柑喵喵 寫到:可以嗎 歐耶
可是我的柱子是聚合線喔
不過如果要能順利計算數量一定要是圖塊這種元件,那就一開始把柱子也建成圖塊就好,只是不同尺寸要建不同名稱,這樣各種不同尺寸的柱也可以一次計算出來.
PS.我們公司的圖上,柱也是建成圖塊...所以有感而發
lingo_st- 中級會員
- 文章總數 : 211
年齡 : 60
來自 : 新北市
職業 : 營造,建設
愛好 : 學習,服務,電腦軟硬體
個性 : 正直,達觀且無可救藥的雞婆
使用年資 : 使用12年但真的是新手
使用版本 : 2012,2013
積分 : 6
經驗值 : 5921
威望值 : 271
注冊日期 : 2011-12-18
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
是的!lingo_st 寫到:個人是覺得程式或許使用方法上有限制,不過如果順應它限制的範圍讓它成習,那會帶來更多的便利性,蘋爸的說法應該是指對特定物件可以寫lisp去自動標註,或許單指圖塊,不過個人才疏學淺,無法確認,還請高手協助解惑,只是個人猜測應該聚合線也行吧...蜜柑喵喵 寫到:可以嗎 歐耶
可是我的柱子是聚合線喔
不過如果要能順利計算數量一定要是圖塊這種元件,那就一開始把柱子也建成圖塊就好,只是不同尺寸要建不同名稱,這樣各種不同尺寸的柱也可以一次計算出來.
PS.我們公司的圖上,柱也是建成圖塊...所以有感而發
柱子標尺寸還是需要在開發適用於「聚合線」的程式才行!
建議算數量還是製作圖塊較好~
____________________________________________________________________________________
👉[訂購]AutoCAD圖塊大師課程(點我)👈
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
書本看不太懂 看看 ginse0727 是如何寫的 謝謝
luo.family5- 一般會員
- 文章總數 : 35
年齡 : 63
來自 : 台中縣
職業 : 水電工程
愛好 : 釣魚
個性 : 隨和
使用年資 : 10年
使用版本 : 2010
經驗值 : 5323
威望值 : 49
注冊日期 : 2010-08-23
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
這實在是一個需要好好討論的問題。謝謝分享
daniel8742- 一般會員
- 文章總數 : 9
年齡 : 55
來自 : 台北市
職業 : 建築
愛好 : 建築
個性 : 安靜
使用年資 : 15
使用版本 : 2010
經驗值 : 5154
威望值 : 6
注冊日期 : 2010-10-11
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
算圖的問題實在令人頭不已
尤其遇到客戶一改再改 再三改
常常就這邊一點紕漏那邊一點瑕疵
可惜還不會使用這些外掛程式...囧
尤其遇到客戶一改再改 再三改
常常就這邊一點紕漏那邊一點瑕疵
可惜還不會使用這些外掛程式...囧
safardy- 一般會員
- 文章總數 : 30
年齡 : 38
來自 : 台北市
職業 : 室內設計
愛好 : 旅遊
個性 : 腦殘
使用年資 : 2年
使用版本 : 2013
經驗值 : 4542
威望值 : 24
注冊日期 : 2012-10-02
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
感謝分享 嘗試中
晚點回報狀況
晚點回報狀況
qq711222- 一般會員
- 文章總數 : 19
年齡 : 43
來自 : 中華人民共和國
職業 : 建築
愛好 : 電腦
個性 : 悶燒
使用年資 : 6
使用版本 : 2010
經驗值 : 4123
威望值 : 6
注冊日期 : 2013-09-15
shackle_2005- 初級會員
- 文章總數 : 232
年齡 : 53
來自 : 台中
職業 : 程式設計
愛好 : 音樂
個性 : 隨和
使用年資 : 10 年
使用版本 : 2013
積分 : 3
經驗值 : 6714
威望值 : 361
注冊日期 : 2010-09-20
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第2頁(共5頁)
這個論壇的權限:
您 無法 在這個版面回復文章