索引范围，圆圈不能改变线宽。矩形可以，见下图怎样让圆圈也能改变线宽的，用来表示索引放大的区域线。
书上有这样的图，。那个虚线的圆圈是怎样得到的，请高手帮忙？

多线段可以画圆啊，虚线是线条选择问题。。。

yylanhuen 发表于 2013-4-4 13:49
多线段可以画圆啊，虚线是线条选择问题。。。

谢谢你的回答，不过多线段画圆变成虚线后两个结合点就成了实线，还是不能达到照片上的要求。就是图片上的那样。

画个圆，PE？

;;;Written By: Jason Piercey 07.31.01;Revised: 01.16.02 To handle multiple selection
;;;把圆转为多段线

1. 
   
2. (defun C:C2Pl (/ CirEnt  CirElst  CirCen  CirRad  CirLay
   
3.                        CirLin  CirClr  CirLts  PlineEnt
   
4.                        ss i );ss1)
   
5. 
   
6. (setq ss (ssget '((0 . "CIRCLE"))))
   
7. 
   
8. (if ss
   
9. (progn
   
10. (setq i 0 );ss1 (ssadd))
    
11. (repeat (sslength ss)
    
12. (setq CirEnt (ssname ss i)
    
13. CirElst (entget CirEnt)
    
14. CirCen  (cdr (assoc 10 CirElst))
    
15. CirRad  (cdr (assoc 40 CirElst))
    
16. CirLay  (cdr (assoc  8 CirElst))
    
17. CirLin  (cdr (assoc  6 CirElst))
    
18. CirClr  (cdr (assoc 62 CirElst))
    
19. CirLts  (cdr (assoc 48 CirElst))
    
20. )
    
21. (setq PlineEnt (list '(0 . "LWPOLYLINE")
    
22.                      '(100 . "AcDbEntity")
    
23.                       (cons 8 CirLay)
    
24.                      '(100 . "AcDbPolyline")
    
25.                      '(90 . 2)
    
26.                      '(70 . 1)
    
27.                      '(43 . 0.0)
    
28.                      '(38 . 0.0)
    
29.                      '(39 . 0.0)
    
30.                      (cons 10 (polar CirCen (* pi) CirRad))
    
31.                      '(40 . 0.0)
    
32.                      '(41 . 0.0)
    
33.                      '(42 . 1.0)
    
34.                      (cons 10 (polar CirCen (* pi 2.0) CirRad))
    
35.                      '(40 . 0.0)
    
36.                      '(41 . 0.0)
    
37.                      '(42 . 1.0)
    
38.                      '(210 0.0 0.0 1.0)
    
39.                      )
    
40.             )
    
41.      (if CirLin (setq PlineEnt (append PlineEnt (list (cons 6 CirLin)))))
    
42.      (if CirClr (setq PlineEnt (append PlineEnt (list (cons 62 CirClr)))))
    
43.      (if CirLts (setq PlineEnt (append PlineEnt (list (cons 48 CirLts)))))
    
44.      (entmake PlineEnt)
    
45.      (entdel CirEnt)
    
46.      (setq i (1+ i))
    
47.      )
    
48.     )
    
49.   )  
    
50. ;(ssget "p")
    
51. (princ (strcat "\n"(itoa i) " Circles converted to LwPolylines"))
    
52. (princ)
    
53. )
    

复制代码

复制进TXT文件，文件后缀改为lsp，CAD加载后启动命令为C2PL

圆画好  在编辑栏里有线条粗细的设置 记得把显示打上勾