自动画穿线孔

Andyhon

模板上的 线割孔 守着以 封闭的Pline 为准则
程序滤取 线割孔 后就一个个交付副函式处理

以大孔为例 (交付大孔函式)
验证是否大于四个边 ==> 另一个函式处理
visit site:
http://www.4d-technologies.com/techcenter/index.htm
==> GE_PtInPoly 加 页面内的一些辅助函式 找出 ==> 穿线孔 圆心
(处理这部分当练功吧)

单纯的四个边 找上边的中点
中点下方 3.0 处为插入点, insert 穿线孔图块

yxl88168

能不能变成块呀，大家来看一看呀

yxl88168

我来把它顶起来

linheyuanpcb

加上生成块命令就OK，我比较笨，只能用笨办法，你测试下，

(defun c:2d (/ pt1 pt2 pt12 bj a aa holdecho holdblip )
(princ "/n两点中心放置线切割引线+0.66mm孔:")
(setq bj 0.33);这里修改圆孔的半径  
(setq pt1 (getpoint "\n点取第一点:")
  pt2 (getpoint pt1 "\n点取第二点:")
  pt12 (list   
(* 0.5 (+ (nth 0 pt1) (nth 0 pt2)))  
(* 0.5 (+ (nth 1 pt1) (nth 1 pt2)))   
(* 0.5 (+ (nth 2 pt1) (nth 2 pt2)))
      )
   )
(command "layer" "s" "4" "");放置层
(command "line" pt1 pt12  "")
;(command "layer" "s" "0" "");放置层   
;(command "color" 255)
;(command ".circle" pt12 bj)
;----选取对象生成图块
  (command "_.undo" "_group")
  (setq holdecho (getvar "cmdecho"))
  (setq holdblip (getvar "blipmode"))
  (setvar "cmdecho" 0)
  (setvar "blipmode" 0)
  (setq aa (ssget))
  (setq a (rtos (* (getvar "cdate") 1e8)))
  (if (/= aa nil)
    (progn
      (command "_.block" a "0,0" aa "")
      (command "_.insert" a "@" "" "" "")
    )
  )
  (setvar "blipmode" holdblip)
  (setvar "cmdecho" holdecho)
  (command "_.undo" "_end")
(command "layer" "s" "cut" "")
(princ)
)

yxl88168

回复 linheyuanpcb 的帖子

谢谢楼主，只是功能还是不太好用，标注的穿线孔，不是在指定的地方

690994

回复 yxl88168 的帖子

我编了个模板全自动画穿线孔的，你可以试用下，要先选择后命令。命令为HW
因为先命令后选择我特别作了过滤自用，可能不适适合你。可多选线，圆，椭圆，多义线
SPLINE，会自动计算可以组合封闭图元，按图形大小生成穿线孔块。多图元的话可能有点慢，

既然是同行，大家可以交流下。