中心圆（穿线孔）

zwq8629 · 发表于 2023-8-8 20:03:58

(defun c:zy (/ ss r i minpt maxpt p p_r p_u p_l p_d)
  (prompt "\n选择对象")

  (if (and (setq ss (ssget))
         (setq r 0.33)
   )
(repeat (setq i (sslength ss))
   (setq i (1- i) a (vlax-ename->vla-object (ssname ss i)))
   (vla-getboundingbox a 'minpt 'maxpt)
   (mapcar 'set '(minpt maxpt) (mapcar 'vlax-safearray->list (list minpt maxpt)))
   (setq p (mapcar '(lambda (x y) (/ (+ x y) 2.0)) minpt maxpt))
   (entmake (list '(0 . "CIRCLE") (cons 10 p) (cons 40 r)))
(entmake (list '(0 . "line") ))

)
  )

请大师帮忙修改：根据选择对象的大小改变中心圆的大小，（选择对象越大中心圆越大，反之越小）

ssyfeng · 发表于 2023-8-8 23:13:57

本帖最后由 ssyfeng 于 2023-8-8 23:18 编辑

看看是不是这个效果：

ssyfeng · 发表于 2023-8-9 15:19:40

这样？

czb203 · 发表于 2023-8-8 21:23:21

(defun c:zy (/ ss r i minpt maxpt p p_r p_u p_l p_d)
(prompt "\n选择对象")
(if (and (setq ss (ssget))
;(setq r 0.33)
)
(repeat (setq i (sslength ss))
(setq i (1- i) a (vlax-ename->vla-object (ssname ss i)))
(setq rr (vla-get-radius a))
(vla-getboundingbox a 'minpt 'maxpt)
(mapcar 'set '(minpt maxpt) (mapcar 'vlax-safearray->list (list minpt maxpt)))
(setq p (mapcar '(lambda (x y) (/ (+ x y) 2.0)) minpt maxpt))
(entmake (list '(0 . "CIRCLE") (cons 10 p) (cons 40 (/ rr 3))))
(entmake (list '(0 . "line") ))
)
)
)

zwq8629 · 发表于 2023-8-8 21:41:38

czb203 发表于 2023-8-8 21:23

不会随着选择对象的大小变大变小

czb203 · 发表于 2023-8-9 07:31:49

ssyfeng 发表于 2023-8-8 23:13
看看是不是这个效果：

向大神学习，感谢分享~

Noangler · 发表于 2023-8-9 08:53:06

ssyfeng 发表于 2023-8-8 23:13
看看是不是这个效果：

应该不是这个效果。他想要的是中间生成一个线割的穿丝孔，形状大就把穿线孔做大点，形状小就把穿丝孔做小点，一般最大就用8mm的孔就行了。

zwq8629 · 发表于 2023-8-9 09:12:19

ssyfeng 发表于 2023-8-8 23:13
看看是不是这个效果：

多谢大师，我自己又改了下，已经OK了

hzyhzjjzh · 发表于 2023-8-9 12:43:31

多谢楼主分享

zwq8629 · 发表于 2023-8-9 14:11:53

ssyfeng 发表于 2023-8-8 23:13
看看是不是这个效果：

大师，如果我要求这种图形的中心圆或者中心线了

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

中心圆（穿线孔）

本帖子中包含更多资源

评分

本帖子中包含更多资源

本帖子中包含更多资源