求2个程序中心画圆跟线

abc498091367 · 发表于 2014-2-22 17:51:55

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

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

×

1. 自动全选生成中心线和圆(第2层是闭合线,如果不是闭合线就不画线和圆,画的圆和线默认在第1层,圆的大小是0.5MM 注意方向不同,只要0度.90度45度) QQ图片20140222174029.jpg

2. 鼠标点两下默认中点画圆和线（是点2下出线和圆，圆和线也是默认放到第1层，圆大小是0.5MM）

QQ图片20140222174654.jpg

ysq101 · 发表于 2014-2-22 19:07:48

楼主做线割的吧~~~~哈哈

st788796 · 发表于 2014-2-22 20:06:32

第一条都是矩形？

炫翔 · 发表于 2014-2-22 21:31:33

矩形的容易:
思路:获取多段线顶点,两点距离最长的边,同时获取中心,画圆连线

abc498091367 · 发表于 2014-2-22 21:52:43

st788796 发表于 2014-2-22 20:06
第一条都是矩形？

自动生成画线和圆的，全部是矩形,,,就是度数不一样，如果能做到随便多少度都可以自动画线和圆那就最好了

abc498091367 · 发表于 2014-2-22 21:53:23

ysq101 发表于 2014-2-22 19:07
楼主做线割的吧~~~~哈哈

恩，你做那行的，有没有CAD自动生成线割DAT的LISP

st788796 · 发表于 2014-2-22 22:31:21

abc498091367 发表于 2014-2-22 21:53
恩，你做那行的，有没有CAD自动生成线割DAT的LISP

都是矩形就简单了，另外这个dat是什么格式？

ysq101 · 发表于 2014-2-22 22:55:53

DAT的就不用找了..太专业了....我也是模具行业的...

st788796 · 发表于 2014-2-22 23:04:17

ysq101 发表于 2014-2-22 22:55
DAT的就不用找了..太专业了....我也是模具行业的...

先不说专业，既然都是用AutoCAD，line都是line，circle还是circle，不同的行业理解不同，用途不同
http://bbs.xdcad.net/forum.php?mod=viewthread&tid=672659&mobile=1
这也是个专业应用

ysq101 · 发表于 2014-2-22 23:26:13

st788796 发表于 2014-2-22 23:04
先不说专业，既然都是用AutoCAD，line都是line，circle还是circle，不同的行业理解不同，用途不同
http: ...

转DAT格式比你给那个做打点机的朋友的G代码更加复杂。。。而且有专业的可以转

abc498091367 · 发表于 2014-2-23 01:09:55

st788796 发表于 2014-2-22 22:31
都是矩形就简单了，另外这个dat是什么格式？

那帮我写写吗

abc498091367 · 发表于 2014-2-23 08:40:22

st788796 发表于 2014-2-22 22:31
都是矩形就简单了，另外这个dat是什么格式？

只要是闭合的线都自动画线和圆 DAT的格式我发了一个文件可以看看

请点击此处下载

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

您的用户组是：游客

文件名称:3321.zip
下载次数:10 文件大小:2.61 KB
下载权限: 不限以上 [免费赚D豆]

st788796 · 发表于 2014-2-23 10:51:59

本帖最后由 st788796 于 2014-2-23 14:00 编辑

abc498091367 发表于 2014-2-23 08:40
只要是闭合的线都自动画线和圆 DAT的格式我发了一个文件可以看看

说一下各个字符及数字代表什么，对应图形哪部分

(defun c:tt (/ ss)
(if (setq
ss (ssget '((0 . "lwpolyline") (90 . 4)))
)
(progn
(xdrx_layer_make "第1层")
(mapcar '(lambda (x / pts ptl lst midp)
(setq
pts (xd::pnts:close (xdrx_getpropertyvalue x "Vertices"))
)
(if (zerop (rem (angle (car pts) (cadr pts)) (/ pi 4)))
(progn
(setq ptl (mapcar '(lambda (p1 p2)
(xdrx_line_midp p1 p2)
)
pts
(cdr pts)
)
ptl (vl-sort (list (list (car ptl) (caddr ptl))
(list (cadr ptl) (last ptl))
)
'(lambda (l1 l2)
(< (apply 'distance l1)
(apply 'distance l2)
)
)
)
lst (car ptl)
lst (vl-sort
lst
'(lambda (p1 p2)
(if (equal (cadr p1) (cadr p2) 1e-3)
(> (car p1) (car p2))
(< (cadr p1) (cadr p2))
)
)
)
midp (apply 'xdrx_line_midp lst)
)
(xdrx_entity_setlayer
(xdrx_circle_make midp 0.5)
"第1层"
)
(xdrx_entity_setlayer
(xdrx_line_make midp (car lst))
"第1层"
)
)
)
)
(xdrx_pickset->ents ss)
)
)
)
(princ)
)

(defun c:tt (/ ss) 
  (if (setq 
        ss (ssget '((0 . "lwpolyline") (90 . 4))) 
      ) 
    (progn 
      (xdrx_layer_make "第1层") 
      (mapcar '(lambda (x / pts ptl lst midp) 
                 (setq 
                   pts (xd::pnts:close (xdrx_getpropertyvalue x "Vertices")) 
                 ) 
                 (if (zerop (rem (angle (car pts) (cadr pts)) (/ pi 4))) 
                   (progn 
                     (setq ptl        (mapcar        '(lambda (p1 p2) 
                                           (xdrx_line_midp p1 p2) 
                                         ) 
                                        pts 
                                        (cdr pts) 
                                ) 
                           ptl        (vl-sort (list (list (car ptl) (caddr ptl)) 
                                               (list (cadr ptl) (last ptl)) 
                                         ) 
                                         '(lambda (l1 l2) 
                                            (< (apply 'distance l1) 
                                               (apply 'distance l2) 
                                            ) 
                                          ) 
                                ) 
                           lst        (car ptl) 
                           lst        (vl-sort 
                                  lst 
                                  '(lambda (p1 p2) 
                                     (if (equal (cadr p1) (cadr p2) 1e-3) 
                                       (> (car p1) (car p2)) 
                                       (< (cadr p1) (cadr p2)) 
                                     ) 
                                   ) 
                                ) 
                           midp        (apply 'xdrx_line_midp lst) 
                     ) 
                     (xdrx_entity_setlayer 
                       (xdrx_circle_make midp 0.5) 
                       "第1层" 
                     ) 
                     (xdrx_entity_setlayer 
                       (xdrx_line_make midp (car lst)) 
                       "第1层" 
                     ) 
                   ) 
                 ) 
               ) 
              (xdrx_pickset->ents ss) 
      ) 
    ) 
  ) 
  (princ) 
)

两点间的

(defun c:tt (/ p1 p2 p)
(xd::begin)
(xdrx_sysvar_push '("osmode" 1))
(xdrx_layer_make "第1层")
(while (and (setq p1 (getpoint "\nFirst Point: "))
(setq p2 (getpoint p1 "\nSecond Point: "))
)
(setq p (xdrx_line_midp p1 p2))
(xdrx_entity_setlayer (xdrx_circle_make p 0.5) "第1层")
(xdrx_entity_setlayer (xdrx_line_make p2 p) "第1层")
)
(xdrx_sysvar_pop)
(xd::end)
(princ)
)

abc498091367 · 发表于 2014-2-23 14:36:23

st788796 发表于 2014-2-23 10:51
说一下各个字符及数字代表什么，对应图形哪部分

两点间的

另外还想请ST788796帮忙改下第一个程序，就是只要是（闭合线）就自动放线和圆，现在只有矩形。如果不行那就只能这样了。谢谢

另外你说的DAT我一起上传上来。DWG就是原文件，DAT就是DWG输出的问题。

请点击此处下载

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

您的用户组是：游客

文件名称:桌面.zip
下载次数:3 文件大小:98.63 KB
下载权限: 不限以上 [免费赚D豆]

st788796 · 发表于 2014-2-23 14:45:41

abc498091367 发表于 2014-2-23 14:36
另外还想请ST788796帮忙改下第一个程序，就是只要是（闭合线）就自动放线和圆，现在只有矩形。如果不行那 ...

1 因为专业不同，理解不了你这个规律
2 圆可以加上
3 DAT 文件要说明含义才好帮你

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

[求助] 求2个程序中心画圆跟线

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

相关帖子

点评

点评

点评

点评

点评

点评