求进刀线源码

dnnlogye

圆的可以有方的就不行了
(defun c:ab (/ ss r i minpt maxpt p)
     (prompt "\n快速建立中点,请框选对象")

(command "layer" "s" "0" "")
  (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") '(100 . "AcDbEntity") '(8 . "0")
                            '(67 . 0) '(62 . 1)
                             (cons 10 p) (cons 11 (list (car p) (cadr maxpt))))
      )

    )
  )
  (command "layer" "s" "cut" "")
)

cam0668

(defun c:ab (/ ss r i minpt maxpt p)
     (prompt "\n快速建立引线,请框选对象")
  (if (and (setq ss (ssget))
           (setq r 0.51)
      )
    (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))
                          (command "layer" "s" "0" "")
                                      (entmake (list '(0 . "CIRCLE") (cons 10 p) (cons 40 r)))
                                              ;;;增加一条到边界的线
           (entmake (list '(0 . "LINE") '(100 . "AcDbEntity") '(8 . "4")
                            ;'(67 . 0) '(62 . 1)
                             (cons 10 p) (cons 11 (list (car p) (cadr maxpt))))
      )

    )
  )
)

程序只能垂直增加从圆心到边界线，不能判断从磁芯边加，期待有人改进一下

sicky111

楼主肯定是做线割的。

Lisphk

cam0668 发表于 2018-12-9 15:15
(defun c:ab (/ ss r i minpt maxpt p)
     (prompt "\n快速建立引线,请框选对象")
  (if (and (setq ss ...

什么是 磁芯边？
什么是进刀线？

fangmin723

我说楼主啊，你有时间一天发一个帖子求源码，要是看得懂的话，有这时间，你早就写的出来了。人啊，要谦虚点，求个程序还要源码，还求的这么理直气壮

源码没有，vlx一个，要不要你看着办

快捷命令TT，矩形内圆半径须＜2.55mm！

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:线切割用进刀线 密码：sgv69j 
下载次数:4  文件大小:0 Bytes 
下载权限: 不限 以上  [免费赚D豆]

newer

fangmin723 发表于 2018-12-10 08:39
我说楼主啊，你有时间一天发一个帖子求源码，要是看得懂的话，有这时间，你早就写的出来了。人啊，要谦虚点 ...

关键是人家只会用，不会写

fangmin723

newer 发表于 2018-12-10 08:59
关键是人家只会用，不会写

只用的话，并非只有源码可以用，vlx一样的照用不误

aeo

中间一块掏空的意思吧，只要在园或方框的里面，离框保持一定距离应该就没问题吧。
然后找到最近边，兜一圈。
整个路线成一条pL线。


我猜的，不是这专业

Lisphk

是不是找图形的形心，然后取这个点和边界的最近点画线？ 猜的

前生

这个是做线割类用的。
实话说，上面那个vlx的文件，也是一般般的说，起码，圆的部分处理的都不理想。

sicky111

还不错。