[求助]求画引线孔的lisp程序？

cj52000 · 发表于 2009-8-25 20:26

各位好，一般模板腔体线割时需画出引线孔，求能框选一个或多个封闭多段线，提示引线孔直径，然后画出引线孔的lisp程序，谢谢！

ljttjl · 发表于 2009-8-25 20:44

上传个cad例图，举个例子看看。

sieben · 发表于 2009-8-26 17:09

我有画穿线孔的程序,要就联系我或留下你的联系方式

QQ:812928665

Email:sieben@sina.com

cj52000 · 发表于 2009-8-27 01:26

谢谢楼上的兄弟，我邮箱是chenjian520@139.com,能否传我一份，谢谢！

AMTONNY · 发表于 2009-8-30 00:06

楼主看看以下代码是否你所求

(defun c:ab (/ ss r i minpt maxpt p)
     (prompt "\n快速建立中点,请框选对象")
(if (and (setq ss (ssget))
           (setq r 0.1)
      )
    (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)))
    )
)
)

cj52000 · 发表于 2009-8-30 15:00

啊，谢谢AMTONNY兄，正合我意，经常在论坛上看到AMTONNY兄发的程序都是很实用的，再次感谢！

AMTONNY · 发表于 2009-9-3 23:39

呵呵，本人只是个菜鸟，只能针对菜鸟发一点实用的东东，对大师级人物来说可是不屑一顾的小玩意哟

墨者 · 发表于 2018-4-14 23:21

谢谢AMTONNY大师的分享

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