找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 623|回复: 10

[求助] 求进刀线源码

[复制链接]
发表于 2018-12-9 11:46:19 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?立即注册

×
圆的可以有方的就不行了
(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" "")
)
1.png
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 5个

财富等级: 恭喜发财

发表于 2018-12-9 15:15:45 | 显示全部楼层
(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))))
      )

    )
  )
)

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

点评

什么是 磁芯边? 什么是进刀线?  详情 回复 发表于 2018-12-9 19:09
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 6468个

财富等级: 富甲天下

发表于 2018-12-9 17:40:35 | 显示全部楼层
楼主肯定是做线割的。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 19个

财富等级: 恭喜发财

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

什么是 磁芯边?
什么是进刀线?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 496个

财富等级: 日进斗金

发表于 2018-12-10 08:39:31 | 显示全部楼层
本帖最后由 fangmin723 于 2018-12-10 08:58 编辑

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

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

快捷命令TT,矩形内圆半径须<2.55mm!
请点击此处下载

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

您的用户组是:游客

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




点评

关键是人家只会用,不会写  详情 回复 发表于 2018-12-10 08:59

评分

参与人数 1D豆 +5 收起 理由
newer + 5 很给力!经验;技术要点;资料分享奖!

查看全部评分

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

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

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

点评

只用的话,并非只有源码可以用,vlx一样的照用不误  详情 回复 发表于 2018-12-10 09:16
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 496个

财富等级: 日进斗金

发表于 2018-12-10 09:16:02 | 显示全部楼层
newer 发表于 2018-12-10 08:59
关键是人家只会用,不会写

只用的话,并非只有源码可以用,vlx一样的照用不误
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 488个

财富等级: 日进斗金

发表于 2018-12-10 10:41:28 | 显示全部楼层
中间一块掏空的意思吧,只要在园或方框的里面,离框保持一定距离应该就没问题吧。
然后找到最近边,兜一圈。
整个路线成一条pL线。


我猜的,不是这专业
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 19个

财富等级: 恭喜发财

发表于 2018-12-10 10:57:30 | 显示全部楼层
是不是找图形的形心,然后取这个点和边界的最近点画线? 猜的
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 8个

财富等级: 恭喜发财

发表于 2018-12-15 05:27:06 | 显示全部楼层
这个是做线割类用的。
实话说,上面那个vlx的文件,也是一般般的说,起码,圆的部分处理的都不理想。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 6468个

财富等级: 富甲天下

发表于 2018-12-15 08:16:49 | 显示全部楼层
还不错。         
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-3-29 08:01 , Processed in 0.196823 second(s), 53 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表