1樓：匿名使用者
我想四個和一個是一樣的，舉個例子
(sslength
(ssget "x" '((0 . "circle") (40 . 50)))
)返回的是圖紙中半徑是50的圓的個數
2樓：
(defun c:cr()
(princ "\n選擇要進行統計的圓物件")
(setq ss (ssget (list (cons 0 "circle"))))
(setq pt (getpoint "\n選擇輸出基點:"))
(setq si 0 tx 65 px (car pt) py (cadr pt) li '() lii 0)
(setq os (getvar "osmode") om (getvar "cmdecho"))
(command "osmode" 0 "osmode" 0 "_.ucs" "w")
(repeat (sslength ss)
(setq cs (ssname ss si) ce (entget cs))
(setq cp (cdr (assoc 10 ce)))
(setq cr (cdr (assoc 40 ce)))
(if (setq lst (assoc cr li))
(setq ct (nth 1 lst) li (subst (list cr ct (1+ (nth 2 lst))) lst li))
(setq ct tx tx (1+ tx) li (cons (list cr ct 1) li))
)(command "_.text" (polar cp (/ pi 2) (- cr 2)) 3 0 (chr ct))
(command "_.chprop" "l" "" "p" "c" 6 "")
(setq si (1+ si))
)(foreach l li
(setq cp (list px (+ py (* lii 5))) )
(setq cr (nth 0 l) ct (nth 1 l) cn (nth 2 l))
(command "_.text" cp 3 0 (strcat (chr ct) ":" (itoa cn) "-%%c" (rtos (* cr 2) 2))2)
(command "_.chprop" "l" "" "p" "c" 6 "")
(setq lii (1+ lii))
)(setvar "osmode" os)
(setvar "cmdecho" om)
(princ "\n統計完成!")
(princ))
用圓片可以擺出幾個不同的數，用5個圓片可以擺出幾個不同的數？
敬孤鬆 應是10個，可在個位擺10個，個位擺10個是10個一，10個一是10，所以除了以上回答九個數還有10也算兩位數。10 19 91 28 82 37 73 46 64 55 風景角 為什麼不能是113 131 311 104 140 用五個圓圈能擺出幾個不同的數想一想寫出來 布拉不拉布拉 用五...
CAD中如何畫出圓的建立區域覆蓋
賀小亠 1 電腦開啟autocad，然後輸入polygon，空格確定。2 確定polygon後，輸入1024條邊，空格確定。3 確定邊邊輸後，輸入c，空格確定。4 確定c後，在矩形旁畫1024條邊的多選線。5 畫好類似圓的圖形後，輸入wipeout，空格確定。6 確定wipeout後，輸入p，空格確...
C語言程式設計如何實現「計算圓的面積」
新學it課堂 案例 輸入圓的半徑，計算圓的面積。用c語言怎麼編寫求圓的周長和麵積的程式？ include define pi 3.1415926 void main 編寫程式求圓的面積並輸出，半徑可以利用輸入函式scanf 進行輸入，圓周率利用符號常量。用c語言？ 小黑哎啊 include defi...