LISP排圆可以这样吧？？？

CAD83 · 发表于 2016-2-22 03:14:29

工作量比较大，哪位仁兄看下写个，要求排圆精度不高，请看图

819534890 · 发表于 2016-2-22 09:15:55

有个沿线矩阵，或许符合你的需要。

ynhh · 发表于 2016-2-22 09:23:16

好象是可能用
路径阵列吧
你试试看

CAD83 · 发表于 2016-2-22 10:50:30

工作量比较大，哪个不好用，是不是很难写??

437271963 · 发表于 2016-2-27 14:33:36

(defun c:tes ( / &ob1 &p1 a0 a8 dis1 dis2 dis3 ent1 i r1)
(if (null vlax-dump-object) (vl-load-com) )
(if (and
  (> (setq r1 (getdist "\n请输入圆半径")) 0)
  (> (setq dis1 (getdist "\n请输入距离")) 0)
  (setq a8 (entsel "\n请选择参考图层对象"))
  (setq a8 (assoc 8 (entget (car a8))))
  (setq ent1 (entsel "\n请选择曲线"))
  (setq ent1 (car ent1))
  (setq a0 (cdr (assoc 0 (entget ent1))))
  (member a0 '("LINE" "ELLIPSE" "CIRCLE" "ARC" "LWPOLYLINE" "SPLINE"))
   )
  (progn
(setq &ob1 (vlax-ename->vla-object ent1))
(setq dis2 (vlax-curve-getDistAtParam &ob1 (vlax-curve-getEndParam &ob1)))
(setq i 1 dis3 0)
(while (>= dis2 dis3)
(setq &p1 (vlax-curve-getPointAtDist &ob1 dis3))
(entmake (list '(0 . "CIRCLE") a8 (cons 10 &p1) (cons 40 r1)))
(setq dis3 (* dis1 i) i (1+ i))
);while
  );progn
);if
(princ)
)

CAD83 · 发表于 2016-2-28 20:59:59

本帖最后由 CAD83 于 2016-2-28 21:11 编辑

很好,请选择参考图层对象这项能不能不用选择，自动到生成一层去,及记忆上次输入的半径\距离

水仙的错 · 发表于 2016-2-29 13:06:23

看看好用不

账号		自动登录	找回密码
密码			注册

[讨论] LISP排圆可以这样吧？？？

本帖子中包含更多资源

点评

浏览过的版块