[编程申请]：能不能自动给图形内所有直线的两段自动画圆

binggege1

能不能自动给图形内所有直线的两段自动画上实心圆（半径0.2）
图纸只有直线，且所有直线的两段都要画上圆

似水无痕

2. (defun c:huyuan        (/ ss1 slth ename ent point1 point2 n)
   
3.   (setvar "cmdecho" 0)
   
4.   (setq        ss1  (ssget '((0 . "LINE")))
   
5.         slth (sslength ss1)
   
6.   )
   
7.   (setq n 0)
   
8.   (if (/= ss1 nil)
   
9.     (repeat slth
   
10.       (setq ename  (ssname ss1 n)
    
11.             ent           (entget ename)
    
12.             point1 (cdr (assoc 10 ent))
    
13.             point2 (cdr (assoc 11 ent))
    
14.       )
    
15.       (command "_donut" 0.0 0.2 point1 point2 "")
    
16.       (setq n (+ 1 n))
    
17.     )
    
18.   )
    
19. )
    
20. (princ "\n 直线两侧绘制实心圆 huyuan")

(defun c:huyuan        (/ ss1 slth ename ent point1 point2 n)<br />   (setvar "cmdecho" 0)<br />   (setq        ss1  (ssget '((0 . "LINE")))<br />         slth (sslength ss1)<br />   )<br />   (setq n 0)<br />   (if (/= ss1 nil)<br />     (repeat slth<br />       (setq ename  (ssname ss1 n)<br />             ent           (entget ename)<br />             point1 (cdr (assoc 10 ent))<br />             point2 (cdr (assoc 11 ent))<br />       )<br />       (command "_donut" 0.0 0.2 point1 point2 "")<br />       (setq n (+ 1 n))<br />     )<br />   )<br /> )<br /> (princ "\n 直线两侧绘制实心圆 huyuan")

xyp1964

实心圆的直径应该为0.4。

2. [FONT=courier new](defun c:test ()
   
3.   (CMDLA0)
   
4.   (setq        ss (ssget "X" '((0 . "LINE")))
   
5.         i  -1
   
6.   )
   
7.   (princ "\n")
   
8.   (xyp-MkLaco "实心圆" 3)
   
9.   (while (setq s1 (ssname ss (setq i (1+ i))))
   
10.     (setq p10 (xyp-get-dxf 10 s1)
    
11.           p11 (xyp-get-dxf 11 s1)
    
12.     )
    
13.     (command "_donut" 0.0 0.4 p10 p11 "")
    
14.     (princ ".")
    
15.   )
    
16.   (CMDLA1)
    
17. )[/FONT]

[FONT=courier new](defun c:test ()<br />   (CMDLA0)<br />   (setq        ss (ssget "X" '((0 . "LINE")))<br />         i  -1<br />   )<br />   (princ "\n")<br />   (xyp-MkLaco "实心圆" 3)<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq p10 (xyp-get-dxf 10 s1)<br />           p11 (xyp-get-dxf 11 s1)<br />     )<br />     (command "_donut" 0.0 0.4 p10 p11 "")<br />     (princ ".")<br />   )<br />   (CMDLA1)<br /> )[/FONT]

binggege1

太好了，谢谢楼上两位了^_^