[求助]如何在很多线LINE,ARC中自动找出条件相同的线合并成一条线？

hkzwsy · 发表于 2003-11-14 00:05:00

条件：
LINE 只要在同一条直线上多条直线
合并成一条直线
ARC 圆心相同半径样的多条弧合并成一条弧

meflying · 发表于 2003-11-14 08:22:00

如果两条直线中间有空隙，是否要延长将空隙填上？
ARC就更无法确定了，如果有空隙，就会有两个，要填该填哪一个呢？

hkzwsy · 发表于 2003-11-14 20:15:00

LINE可以通过计算4个点的距离进行比较得距离最长2点合并成一条直线
ARC可以通过计算4个点的周长进行比较得财最长2点合并合并成一条弧
问题是怎样删除其中一个图元，并且更新另外一个图元来和其他图元继续比较

meflying · 发表于 2003-11-14 20:24:00

我的话你好象一点的没看，问题是两个对象如果不相互连接，比如说中间是断开的，如何处理？

hkzwsy · 发表于 2003-11-14 21:28:00

中间断开只要小于或等于10MM之间都要合成一条线

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:oqveubuvumz.dwg
下载次数:0 文件大小:29.21 KB 售价:2银币 [记录]
下载权限: 不限以上或 Vip会员 [开通Vip] [签到领银币] [免费赚银币]

龙龙仔 · 发表于 2003-11-15 01:16:00

对直线
Pedit -〉m -〉选择 -〉y -〉J -〉输入合并距离
或者

copy


(defun l2pl (l_name / s2 n e)
  (setq        s2 (ssget (list        '(-4 . "")
                        '
                         (-4 . "NOT>")
                        '(-4 . "AND>")
                  )
           )
  )
  (if s2
    (progn
      (setq n (sslength s2))
      (setq i 0)
      (repeat n
        (if (setq e (ssname s2 i))
          (progn
            (if        (wcmatch (cdr (assoc 0 (entget e))) "*POLYLINE")
              (command ".pedit" e "j" s2 "" "")
              (command ".pedit" e "y" "j" s2 "" "")
            )
            (if        (= (cdr (assoc 70 (entget e))) 1)
              (progn
                (ssdel e s0)
                (setq n (1- n))
              )
            )
          )
        )
        (setq i (1+ i))
      )
    )
  )
)
(defun C:C_L2PL        ()
  (prompt "\n请选择要连接成POLYLINE的LINE(线)和ARC(弧):"
  )
  (l2pl "*")
  (princ)
)

圆弧要编程了

meflying · 发表于 2003-11-18 07:54:00

;;EA兄的程序有些小問題,改了一下!
(defun L2PL_LAI       (L_NAME / S2 E I)
  (setq       S2 (ssget (list       '(-4 . "")
                     '(-4 . "NOT>")
                     '(-4 . "AND>")
               )
         )
  )
  (if S2
(progn
   (setq N 0)
   (repeat (sslength S2)
      (if (entget (setq E (ssname S2 N)))
      (if (wcmatch (cdr (assoc 0 (entget E))) "*POLYLINE")
         (command ".pedit" E "j" S2 "" "")
         (command ".pedit" E "y" "j" S2 "" "")
      )
      )
      (setq N (1+ N))
   )
)
  )
)
(defun C:C_L2PL_LAI ()
  (prompt "\n請選擇要連接成POLYLINE的LINE(線)和ARC(弧):"
  )
  (L2PL_LAI "*")
  (princ)
)

[求助]如何在很多线LINE,ARC中自动找出条件相同的线合并成一条线？

发表回复

精选推荐