[编程申请]：恳请黄斑竹再帮帮忙，修改一下画圆管的程序

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)
    黄大哥，我有不情之请，就是这个画圆管的程序能不能麻烦你改进一下啊，让它变成画钢管的程序，要不然画图的时候还是有点麻烦，老是要用外面的圆管和里面的圆管进行差集运算才能得到我想要的钢管。恳求您改进一下程序使之符合以下条件：直接框选几条直线后然后直接以这些直线为相应轴心自动生成给定内外径的钢管。
   谢谢黄大哥给的程序，真的挺好用的，免去了老是使用Z轴坐标的麻烦，还省略了画圆和拉伸的繁琐步骤，但是在这里还是恳请黄斑竹能改改程序，使机械化重复步骤进一步减少。

xyp1964

老“黄”实在不懂楼主的意思！

lb945227

这张图中的钢管我经过了好些步骤才能画好，黄大哥已经帮我编了个画圆管的程序已经省了很大一步了，但请黄大哥再改改，使得我只要框选直线就能以该直线为轴心生成给定内外直径的钢管管且轴线和钢管还是保持一样长。在附图中的钢管，给定的外径是45，内径是35。

xyp1964

zxyg(直线圆管)

xyp1964

直线圆管

lb945227

非常感谢黄大哥，现在所有的问题解决了，画圆管变的好简单啊，呵呵，再次感谢黄大哥。