[討論]計算長度LISP如何指定單一圖層

由 **Boss&倫** 2010-05-01, 23:58

下面計算線、聚合線LISP:

(defun c:long_1 ()
(setq ss (ssget '((0 . "*line"))))
(setq nn (sslength ss))
(setq i 0 tnum 0)
(repeat nn
(setq ssn (ssname ss i))
(command "lengthen" ssn "")
(setq num (getvar "perimeter"))
(setq tnum (+ tnum num))
(setq i (1+ i))
)
(alert (strcat "框選的線段加總長為: "(rtos tnum 2)))
)

請教個位寫LISP前輩
1.要在框選前加入指定單一圖層,在計算指定圖層內的線段總長。
這樣計算起來比較不會出錯,請各位前輩指點一二~感恩

2.如果加入弧,該加入哪些語法!
感恩喔

由 **shenhung** 2010-05-02, 16:06

代碼:: (defun c:long_1 ( / en lay_name ss nn ssn num tnum) (setq en (entsel "\n選擇要過濾的圖層:")) (if en (progn (setq lay_name (cdr (assoc 8 (entget (car en))))) (setq ss (ssget (list (cons -4 "<AND") (cons -4 "<OR") (cons 0 "*line") ; (cons 0 "ARC") ;LINE and arc 都被選擇 (cons -4 "OR>") (cons 8 lay_name) ;圖層 (cons -4 "AND>") );LIST );SSGET ) ;;;line 和arc 用or 是表示..line或arc 皆會被選. (setvar "cmdecho" 0) (setq nn (sslength ss)) (setq i 0 tnum 0) (repeat nn (setq ssn (ssname ss i)) (command "lengthen" ssn "") (setq num (getvar "perimeter")) (setq tnum (+ tnum num)) (setq i (1+ i)) );repeat (setvar "cmdecho" 1) (alert (strcat "框選的線段加總長為: "(rtos tnum 2))) );progn );if (princ) )

由 **Boss&倫** 2010-05-02, 20:15

感謝shenhung熱心修改!

我剛剛測試非常OK,這個對於機電計算數量方便多了!

如果能貼上文字(指定高度)加入單位,那更棒!

不知shenhung可否再修改一次

由 **shenhung** 2010-05-02, 21:03

請問貼上文字.加入單位.是什麼意思~能不能解釋一下..這樣修改比較能符合你想要的..

由 **Boss&倫** 2010-05-03, 00:35

又要麻煩shenhung一次~下面是論壇成員分享的面積、長度LISP

[討論]計算長度LISP如何指定單一圖層 34146883

選取線段>輸入文字高度>插入計算文字~

我把指令行貼上供你參考!

[討論]計算長度LISP如何指定單一圖層 50599776

如果需把LISP貼上再通知我~感恩

不知shenhung重哪開始學習LISP,可否指點一下

我目前是看Auto CAD程式設計魔法秘笈[AutoLISP+DCL+Visual LISP]

由 **shenhung** 2010-05-03, 09:11

我用的書一樣是吳老師寫的書..但是我偶爾會去大陸網站.或網路上.看別人針對某一部分問題.所寫的程式..好的部分可以學起來.

代碼:: (defun c:long_1 ( / en lay_name ss nn ssn num tnum ipt) (setq en (entsel "\n選擇要過濾的圖層:")) (if en (progn (setq lay_name (cdr (assoc 8 (entget (car en))))) (setq ss (ssget (list (cons -4 "<AND") (cons -4 "<OR") (cons 0 "*line") ; (cons 0 "ARC") ;LINE and arc 都被選擇 (cons -4 "OR>") (cons 8 lay_name) ;圖層 (cons -4 "AND>") );LIST );SSGET ) ;;;line 和arc 用or 是表示..line或arc 皆會被選. (setvar "cmdecho" 0) (setq nn (sslength ss)) (setq i 0 tnum 0) (repeat nn (setq ssn (ssname ss i)) (command "lengthen" ssn "") (setq num (getvar "perimeter")) (setq tnum (+ tnum num)) (setq i (1+ i)) );repeat (if (null t_sz) (setq t_sz(getreal "\n文字高度:")) (progn (setq t_sz (getreal (strcat "\n文字高度<" (rtos t_sz_tmp 2 2) ">:"))) (if (null t_sz) (setq t_sz t_sz_tmp)) ) ) (setq t_sz_tmp t_sz) (setq ipt (getpoint "\n文字插入點:")) (command "text" ipt t_sz "0" (strcat "總長度為 :" (rtos tnum 2) "公分")) (setq t_sz_tmp t_sz) (setvar "cmdecho" 1) );progn );if (princ) )

Tiger&蘋果爸寫到: 謝謝熱心程式分享~< 積分 +1>
[公告]關於團隊成員的回文及貢獻

由 **Boss&倫** 2010-05-03, 20:07

請教shenhung有測試過嗎?
我測試結果如下!
[討論]計算長度LISP如何指定單一圖層 31883980

可以再幫我看看嗎,因為插入文字變成一個圖型。
還是我哪裡出錯~請shenhung指教!

由 **shenhung** 2010-05-03, 21:42

我測試過沒問題...!!
程式部分.文字是使用當前字型.
而你設定字型的時候..設了字高...(程式就沒辦法設定字高..)
所以..你使用style 命令.
將字的高度.設為0.00<====就可以了..!!祝你使用愉快.!!

由 **Boss&倫** 2010-05-03, 22:42

原來是我自己的問題。
shenhung我測試過了沒有問題,而且非常愉快!

由 **verlth** 2010-05-06, 00:42

又學到了一招~試過後覺得超好用的
以後就不用再用布尺量了~

謝謝大大囉

由 **bruce79** 2010-05-29, 16:18

感謝大大的分享北呗~~~~

有夠好用低

由 **白金之星** 2010-06-17, 15:13

自己不會寫
別人寫也要會用
謝謝大大

由 **Tiger&蘋果爸** 2010-06-17, 16:07

白金之星寫到:自己不會寫
別人寫也要會用
謝謝大大

回帖文章請勿使用相同內文回覆!!

謝謝配合~

由紫綺 2010-07-12, 16:58

想請問一下!! 我用了大大寫的LISP 但是出現了

指令: CUI
自訂檔載入成功。自訂群組: ACAD
自訂檔載入成功。自訂群組: CUSTOM
指令: \n'bf'ef'be'dc'ad'6e'b9'4c'c2'6f'aa'ba'b9'cf'bc'68:*取消*
\n'bf'ef'be'dc'ad'6e'b9'4c'c2'6f'aa'ba'b9'cf'bc'68:; 錯誤: 語法錯誤
指令: DLINE
不明的指令「DLINE」。請按 F1 取得說明。

到底是那裡用錯了呢? 火冒三丈

由 **meet_emily** 2012-08-26, 13:05

試過了很~好用哦!謝謝~

由 **lingo_st** 2012-08-28, 21:50

這lisp真的很體貼很好用
有需求的試用過會愛不釋手
一般再繪製時確實都會以圖層來管理物件居多
篩選圖層後分開計算這想法也太神
如此一來,點險需求作業圖層物件,再框選整張圖就一指稿定囉
只要先建好表格
刷完也同時貼好,然後就可以交卷

小小的要求遇到大大的用心,大家得到的是滿滿的收穫
逛這論壇真的會上癮
今天廠商來還在問說
你的cad怎麼特別好用?
哈,帥呆囉
感謝ShenHung前輩的用心讓大家都受益了