[求助]：我想在CAD里面画大小递增的圆?怎么办?

kevinchan

我想在CAD里面画大小递增的圆,应该怎么画?
比如:
   我要在同一线段上画最小点是0.1MM,最大点是0.5MM(直径),圆与圆间距是0.8MM,画20个,应该怎么操作呢?

sh7858

这个问题非常好解决，你只要用偏移命令就可以了！

kevinchan

但是是大小递增的圆呀.比如我只告诉最小点到最大点的距离是50mm,要排列60个点

自由的鱼

这个用程序不难做的，但是不是你的间隔距离经常是要变的？

雨中漫步0423

自由，我想要一个会渐变的……做建筑的弧形窗用，需要渐变的直线和同圆心渐变的圆
也想要同圆心，间距一定的的那一种，可以理解吧？

还有，我用的是R14……VB和VLISP都用不了

自由的鱼

最初由 雨中漫步0423 发布
[B]自由，我想要一个会渐变的……做建筑的弧形窗用，需要渐变的直线和同圆心渐变的圆
也想要同圆心，间距一定的的那一种，可以理解吧？

还有，我用的是R14……VB和VLISP都用不了 [/B]

理解不了，我不懂建筑啊，小雨，你看看晓东工具箱有没有这个功能，要不然就装个天正~~

kevinchan

最初由 自由的鱼 发布
[B]这个用程序不难做的，但是不是你的间隔距离经常是要变的？ [/B]

长老能帮我做个示例文件吗?

雨中漫步0423

自由，你不明白没关系，我让你明白就好啊，晓东和天正我都没找到这个……
就是像图里这样，上面的那个是中间是弧形窗，两边是平窗，下面那个是环形的阳光板顶视图
这样可以理解吗？  ：P*-*1

自由的鱼

建筑的东东我真的很陌生，小鱼，你看看有没有别的高手，：）

心情不好给我写信说说吧，：）

绘图员

你可以试试这个，看能用吗？
(defun c:dcircle()
    (setq 间距(getint"/n请输入间距:"))
    (setq 个数(1- (getint"/n请输入排列个数:")))
    (setq rr(getreal"/n请输入最小园半径:"))
    (setq rrr(getreal"/n请输入最大园半径:"))
    (setq ppp(getpoint"/n请确定起始点位置:"))
    (setq wy(/ (float 间距) (float 个数)))
    (setq bbb(/ (- rrr rr) 个数))
    (setq px(car ppp) py (cadr ppp))
    (repeat 个数
         (command"circle" ppp rr "")
         (setq px (+ px wy))
         (setq ppp (list px py))
         (setq rr(+ rr bbb))
           )
)
这是横向排列的，如果你想纵向排列，可以改为
    (setq py (+ py wy))

kevinchan

有点疑问,因为我实在不是很懂这方面,请问这个是用lisp还是用vba编程的?

kevinchan

我想在CAD里面画大小递增的圆,应该怎么画?
比如:
我要在同一线段上画最小点是0.1MM,最大点是0.5MM(直径),圆与圆中心间距是0.8MM,画20个,应该怎么操作呢?

我用以下代码做出来的却不行,请老大帮帮忙.
(defun c:dcircle()
(setq 间距(getint"/n请输入间距:"))
(setq 个数(1- (getint"/n请输入排列个数:")))
(setq rr(getreal"/n请输入最小园半径:"))
(setq rrr(getreal"/n请输入最大园半径:"))
(setq ppp(getpoint"/n请确定起始点位置:"))
(setq wy(/ (float 间距) (float 个数)))
(setq bbb(/ (- rrr rr) 个数))
(setq px(car ppp) py (cadr ppp))
(repeat 个数
(command"circle" ppp rr "")
(setq px (+ px wy))
(setq ppp (list px py))
(setq rr(+ rr bbb))
)
)

eachy

最初由 kevinchan 发布
[B]我想在CAD里面画大小递增的圆,应该怎么画?
比如:
我要在同一线段上画最小点是0.1MM,最大点是0.5MM(直径),圆与圆中心间距是0.8MM,画20个,应该怎么操作呢?

我用以下代码做出来的却不行,请老大帮帮忙.
(defun c:... [/B]

[PHP]
(defun c:dcircle (/ e dis minr maxr p d ptl vd)
  (if (and (setq e (entsel "\n拾取曲线上起始位置: "));此处最好加过滤选择
           (setq dis (getdist (last e) "\n间距: "))
           (setq minr (getdist (last e) "\n最小半径: "))
           (setq maxr (getdist (last e) "\n最大半径: "))
      )
    (progn
      (setq p        (vlax-curve-getclosestpointto (car e) (last e))
            d        (vlax-curve-getdistatpoint (car e) p)
            ptl        (list p)
      )
      (while (setq p1;;此处和曲线方向有关，最佳解决是后面提示正向多少个和反向少
                     ;;由用户决定往哪个方向绘制, 再 扩展下可以在曲线任意两点间绘制
                    (vlax-curve-getpointatdist (car e) (setq d (+ d dis)))
             )
        (setq ptl (cons p1 ptl))
      )
      (setq vd (/ (- maxr minr) (length ptl)));;此处是按个数平均递增，稍微修改可满足楼主要求
      (command ".undo" "be")
      (mapcar '(lambda (x)
                 (vl-cmdf ".circle" x minr );此处如果追求效率可用entmake
                 (setq minr (+ vd minr))
               )
              (reverse ptl)
      )
      (command "undo" "end")
    )
  )
  (princ)
)[/PHP]

雨中漫步0423

是LSP
好感动,终于又上网了,终于有看到自由
呜