[试用]：角度匹配程序

xyp1964 · 发表于 2005-9-21 13:38:15

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

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

×

功能：以dxf 10代码或选择点为基点将物体与参照物体角度（选择点的切线方向）匹配。
程序命令：jdpp （角度匹配）
适合对象：
INSERT、TEXT、MTEXT、ATTDEF、ATTRIB
LINE、POLYLINE、LWPOLYLINE、XLINE、RAY
参照物体：INSERT、TEXT、MTEXT、ATTDEF、ATTRIB及所有线性物体

20050925版增加ARC、CIRCLE、ELLIPSE、SPLINE参照物体

“源码”：

[FONT=courier new];;;角度匹配
(defun c:jdpp ()
(CMDLA0)
(setq s1 (entsel "\n选择参考实体 : ")
e (car s1)
ob (dxf 0 (entget e))
pt0 (cadr s1)
)
(cond ((or (= ob "INSERT")
(= ob "TEXT")
(= ob "MTEXT")
(= ob "ATTDEF")
(= ob "ATTRIB")
)
(setq ang0 (dxf 50 (entget (car s1))))
(redraw e 3)
)
((or (= ob "LINE")
(= ob "POLYLINE")
(= ob "LWPOLYLINE")
(= ob "XLINE")
(= ob "RAY")
(= ob "ARC")
(= ob "CIRCLE")
(= ob "SPLINE")
(= ob "ELLIPSE")
)
;;切线方向
(setq pt1 (PT-FAXIAN e (osnap pt0 "near") 100)
ang0 (+ (angle pt0 pt1) (* pi 0.5))
)
(redraw e 3)
)
(t (princ))
)
(if ang0
(progn
(while (> ang0 (/ pi 2.0))
(setq ang0 (- ang0 pi))
)
(while (setq s1 (entsel "\n选择匹配实体<退出> : "))
(setq e1 (car s1)
ob (dxf 0 (entget e1))
pt0 (cadr s1)
)
(cond ((or (= ob "INSERT")
(= ob "TEXT")
(= ob "MTEXT")
(= ob "ATTDEF")
(= ob "ATTRIB")
)
(setq ang (dxf 50 (entget e1))
pts (dxf 10 (entget e1))
)
)
((or (= ob "LINE")
(= ob "POLYLINE")
(= ob "LWPOLYLINE")
(= ob "XLINE")
(= ob "RAY")
)
(setq pts (osnap pt0 "near")
pt1 (PT-FAXIAN e1 pts 100)
ang (+ (angle pt0 pt1) (* pi 0.5))
)
)
(t (princ))
)
(if (and ang
(or (= ob "LINE")
(= ob "POLYLINE")
(= ob "LWPOLYLINE")
(= ob "XLINE")
(= ob "RAY")
(= ob "INSERT")
(= ob "TEXT")
(= ob "MTEXT")
(= ob "ATTDEF")
(= ob "ATTRIB")
)
)
(progn
(while (> ang (/ pi 2.0))
(setq ang (- ang pi))
)
(command "rotate" s1 "" pts (rad2ang (- ang0 ang)))
)
(princ "\n所选图元不能角度匹配!")
)
)
(redraw e 4)
(redraw)
)
)
(CMDLA1)
)
(pxyp "jdpp (角度匹配)")[/FONT]

[FONT=courier new];;;角度匹配 
(defun c:jdpp () 
  (CMDLA0) 
  (setq        s1  (entsel "\n选择参考实体 : ") 
        e   (car s1) 
        ob  (dxf 0 (entget e)) 
        pt0 (cadr s1) 
  ) 
  (cond        ((or (= ob "INSERT") 
             (= ob "TEXT") 
             (= ob "MTEXT") 
             (= ob "ATTDEF") 
             (= ob "ATTRIB") 
         ) 
         (setq ang0 (dxf 50 (entget (car s1)))) 
         (redraw e 3) 
        ) 
        ((or (= ob "LINE") 
             (= ob "POLYLINE") 
             (= ob "LWPOLYLINE") 
             (= ob "XLINE") 
             (= ob "RAY") 
             (= ob "ARC") 
             (= ob "CIRCLE") 
             (= ob "SPLINE") 
             (= ob "ELLIPSE") 
         ) 
         ;;切线方向 
         (setq pt1  (PT-FAXIAN e (osnap pt0 "near") 100) 
               ang0 (+ (angle pt0 pt1) (* pi 0.5)) 
         ) 
         (redraw e 3) 
        ) 
        (t (princ)) 
  ) 
  (if ang0 
    (progn 
      (while (> ang0 (/ pi 2.0)) 
        (setq ang0 (- ang0 pi)) 
      ) 
      (while (setq s1 (entsel "\n选择匹配实体<退出> : ")) 
        (setq e1  (car s1) 
              ob  (dxf 0 (entget e1)) 
              pt0 (cadr s1) 
        ) 
        (cond ((or (= ob "INSERT") 
                   (= ob "TEXT") 
                   (= ob "MTEXT") 
                   (= ob "ATTDEF") 
                   (= ob "ATTRIB") 
               ) 
               (setq ang (dxf 50 (entget e1)) 
                     pts (dxf 10 (entget e1)) 
               ) 
              ) 
              ((or (= ob "LINE") 
                   (= ob "POLYLINE") 
                   (= ob "LWPOLYLINE") 
                   (= ob "XLINE") 
                   (= ob "RAY") 
               ) 
               (setq pts (osnap pt0 "near") 
                     pt1 (PT-FAXIAN e1 pts 100) 
                     ang (+ (angle pt0 pt1) (* pi 0.5)) 
               ) 
              ) 
              (t (princ)) 
        ) 
        (if (and ang 
                 (or (= ob "LINE") 
                     (= ob "POLYLINE") 
                     (= ob "LWPOLYLINE") 
                     (= ob "XLINE") 
                     (= ob "RAY") 
                     (= ob "INSERT") 
                     (= ob "TEXT") 
                     (= ob "MTEXT") 
                     (= ob "ATTDEF") 
                     (= ob "ATTRIB") 
                 ) 
            ) 
          (progn 
            (while (> ang (/ pi 2.0)) 
              (setq ang (- ang pi)) 
            ) 
            (command "rotate" s1 "" pts (rad2ang (- ang0 ang))) 
          ) 
          (princ "\n所选图元不能角度匹配!") 
        ) 
      ) 
      (redraw e 4) 
      (redraw) 
    ) 
  ) 
  (CMDLA1) 
) 
(pxyp "jdpp  (角度匹配)")[/FONT]

xyp1964 · 发表于 2005-9-21 13:38:47

效果示意：

jinsong-liao · 发表于 2005-9-22 12:22:07

xyp1964斑竹总是能提供一些好东西!

and2008 · 发表于 2005-9-23 00:16:01

呵呵，这个真好玩，好东西，非常感谢xyp

狂刀 · 发表于 2005-9-23 01:29:30

可多选么？

laodz · 发表于 2005-9-23 13:00:50

很不错的

露水2 · 发表于 2005-9-23 21:05:56

好东西
非常感谢
不过我一直用天正3的
他是以r14为平台的，用不了。遗憾。

xyp1964 · 发表于 2005-9-24 00:06:29

最初由露水2 发布
[B]好东西
非常感谢
不过我一直用天正3的
他是以r14为平台的，用不了。遗憾。 [/B]

用不了也会感谢？！还在用天正3，不可思议！

露水2 · 发表于 2005-9-24 10:24:30

最初由 xyp1964 发布
[B]
用不了也会感谢？！还在用天正3，不可思议！ [/B]

我去年毕业的就我们班的很大一部分还是用天正3的，而且很多单位还是用天正3的。
我是马上要更新换代，下了先留着所以感谢的。

li_ala · 发表于 2005-9-24 13:35:33

看看

jsrlb · 发表于 2005-9-24 17:05:07

谢谢，程序挺实用的。

bububa918 · 发表于 2005-9-25 08:44:18

真是好东西，可惜楼主将与弧线或园匹配功能取消，

xyp1964 · 发表于 2005-9-25 09:46:46

最初由 bububa918 发布
[B]真是好东西，可惜楼主将与弧线或园匹配功能取消， [/B]

弧线和园的角度怎么定义？
如何匹配？

狂刀 · 发表于 2005-9-25 12:40:01

呵呵，是阿，如何匹配那？

zxq0220 · 发表于 2005-9-25 18:10:44

大概是选取点的切线方向。

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

[试用]：角度匹配程序

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

本帖被以下淘专辑推荐:

相关帖子