搜索资源列表
2003010296_大作业1
- a CRect rc(x - 12, y - 12, x + 12, y + 12) pDC->Ellipse(&rc) str1.Format( \"%d\",j ) pDC->SetTextColor(RGB(255,0,0)) pDC->DrawText(str1,&rc,DT_CENTER DT_VCENTER DT_SINGLELINE) PaintArrow(pDC,RGB(255,0,0),G.vexs[prev[j]].x,G.vexs[p
cbj
- 查图中各种直径的圆个数,可以快速查出图上有几种直径,并统计出各种直径的数量-(DEFUN C:cbj () (PRINC "查直径及个数") (setq ss (ssget ((0 . "CIRCLE")))) (setq i 0 n 0 zj-j nil) (repeat (sslength ss) (setq el (entget (ssname ss i))) (setq zj (read (rtos (cdr (assoc 40
