[编程申请]：请黄斑竹帮忙改改这个程序。

lb945227

请问各位编程高图中随意手在CAD给出的直线段中，能不能以给出的直线段为轴心画出给定直径的圆管呢？且圆管的长度要保持和直线一样长。要是能框选直线段然后直接生成相应尺寸的圆管就太好了。
   谢谢黄斑竹给的程序，真的挺好用的，免去了老是使用Z轴坐标的麻烦，还省略了画圆和拉伸的繁琐步骤，但是在这里还是恳请黄斑竹能改改程序，使机械化重复步骤进一步减少。

xyp1964

2. [FONT=courier new](defun c:test ()
   
3.   (CMDLA0)
   
4.   (setvar "ISOLINES" 64)
   
5.   (setq        no1 (UREAL 7 "" "\n圆管直径" no1)
   
6.         ss  (ssget '((0 . "LINE")))
   
7.         i   -1
   
8.   )
   
9.   (while (setq s1 (ssname ss (setq i (1+ i))))
   
10.     (command "_cylinder"
    
11.              (xyp-get-dxf 10 s1)
    
12.              no1
    
13.              "c"
    
14.              (xyp-get-dxf 11 s1)
    
15.     )
    
16.   )
    
17.   (CMDLA1)
    
18. )[/FONT]

[FONT=courier new](defun c:test ()<br />   (CMDLA0)<br />   (setvar "ISOLINES" 64)<br />   (setq        no1 (UREAL 7 "" "\n圆管直径" no1)<br />         ss  (ssget '((0 . "LINE")))<br />         i   -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (command "_cylinder"<br />              (xyp-get-dxf 10 s1)<br />              no1<br />              "c"<br />              (xyp-get-dxf 11 s1)<br />     )<br />   )<br />   (CMDLA1)<br /> )[/FONT]

lb945227

谢谢黄斑竹，有段时间没来论坛了，感谢不是太及时，请原谅啊。

lb945227

(defun c:test ()
  (CMDLA0)
  (setvar "ISOLINES" 64)
  (setq        no1 (UREAL 7 "" "\n圆管直径" no1)
        ss  (ssget '((0 . "LINE")))
        i   -1
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
    (command "_cylinder"
             (xyp-get-dxf 10 s1)
             no1
             "c"
             (xyp-get-dxf 11 s1)
    )
  )
  (CMDLA1)
)黄斑竹您好，我有不情之请，就是这个画圆管的程序能不能麻烦你改进一下啊，让它变成画钢管的程序，要不然画图的时候还是有点麻烦，老是要用外面的圆管和里面的圆管进行差集运算才能得到我想要的钢管。恳求您改进一下程序使之符合以下条件：直接框选几条直线后然后直接以这些直线为相应轴心自动生成给定内外径的钢管。