1樓：匿名使用者
不知道你的「一種線」是什麼？我這有一個選擇一些直線，統計總長度的lisp，供你參考，有問題可追問。
(defun c:tx (/ a b c d e m n n1) ;選擇直線,統計總長度
(setq a (ssget)) ;得到選擇集
(setq n 0) ;設定迴圈變數初值,同時也是遍歷選擇集的指標
(setq m 0) ;設定統計初值
(setq n1 (sslength a)) ;得到選擇集長度
(while (< n n1) ;迴圈開始,以選擇集物件數作為迴圈次數
(progn
(setq b (entget (ssname a n))) ;得到第n個物件的資料庫
(setq c (cdr (assoc 10 b))) ;得到直線起點
(setq d (cdr (assoc 11 b))) ;得到直線終點
(setq e (distance c d)) ;得到兩點距離,即直線長度
(setq m (+ m e)) ;累加直線長度
(setq n (+ n 1)) ;迴圈變數加一))
(princ "共有") ;列印結果
(princ (itoa n1))
(princ "條直線，總長度為")
(princ (rtos m 2 4)) ;轉換實數為字串,小數形式,小數點後四位
(princ "。")
(princ))
2樓：
(defun c:dl ( )
(if (null vlax-dump-object)
(vl-load-***)
)(princ "\n選擇要進行線長統計的物件")
(if (setq #si 0 &ss (ssget))
(progn
(setq #lc 0 #ll 0 #lp 0 #lr 0 #nc 0 #nl 0 #np 0 #nr 0)
(repeat (sslength &ss)
(setq &cs (vlax-ename->
(cond
)(princ (strcat "\n選擇的 " (itoa (sslength &ss)) " 個物件中:"))
(princ (strcat "\n圓形物件 = " (itoa #nc) " 個,線長 = " (rtos #lc 2 3) " ,"))
(princ (strcat "\n圓弧物件 = " (itoa #nr) " 個,線長 = " (rtos #lr 2 3) " ,"))
(princ (strcat "\n直線物件 = " (itoa #nl) " 個,線長 = " (rtos #ll 2 3) " ,"))
(princ (strcat "\n聚合物件 = " (itoa #np) " 個,線長 = " (rtos #lp 2 3) " ,"))
(princ (strcat "\n所有物件匯流排長 = " (rtos (+ #lc #lr #ll #lp) 2 3) " ."))))
(princ)
) 命令dl使用,可計算直線，圓形，圓弧，聚合線的線長。
3樓：匿名使用者
橢圓和樣條曲線也可加進去,
兄弟，可以試著自己加呀。
誰能給我個WiFi,誰能給我個QQ
wifi網路需要家裡有寬頻網路,然後通過無線路由器搭建才可以使用,不能贈與使用的。誰能給我個 自己申請帳號不就可以了,讓別人幫你創一個 號。誰能給我個驅動?可以在來這裡 源驅動 url http support1.lenovo.或者安裝一個驅動精靈自動安 裝也可以。yf 誰能給我解決一下 10 找到...
誰能給我答案，誰能給我一個答案
放棄?繼續?自己慎重考慮.做到問心無愧就可以.努力學到自己的專業是重,畢竟以後的路長.我才畢業的 現在在升本 你們什麼專業開數學？要拿獎學金要每科不低於80分 而不是平均分 也就是說你一科80分以下就沒了 不要太擔心那種科目 重點明確的很 到時準過 我感覺真的 拿獎學金那麼多人 沒幾個真的學的紮實平...
誰能給我介紹個好點的網遊，誰能給我介紹一個好玩的網遊啊啊啊啊啊！
qq自有幻想是一個挺好玩的遊戲，而且不收費！試試吧，我的術士角色45級了！有幻神和坐騎！當然首推魔獸世界 啦暴雪出品 必屬精品！畫面故事情節很好的也耐玩，我都玩了3年了已經 嘻嘻 遠征ol即將內測，並且遠征ol，低配置，小客戶端，遊戲玩法豐富，對電腦的配置要求不高，個人覺得這款網遊很不錯 指環王ol...