[求助]：合并s拟合后的多段线为何形状又变成拟合前？

wangwangnn · 发表于 2005-11-23 09:29:01

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

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

×

我编写了一个把多条多段线连接成一条的程序，可当选取得多段线是s拟合后的多段线时，运行完程序图形又变成了拟合前的形状，不知应该怎样修改？

(defun c:j( / ENT DATA OCMD )
(SETQ OCMD (GETVAR "CMDECHO"))
(SETVAR "CMDECHO" 0 )
(setq ent (entsel "选择需要连接的线段:\n"))
(setq data (entget (car ent)))
(setq name (cdr (assoc 0 data)))
(if (OR(= name "LWPOLYLINE")(= name "POLYLINE"))
   (command "pedit" ent "j" "all" "" "")
   (command "pedit" ent "y" "j" "all" "" "")
)
  (SETVAR "CMDECHO" OCMD)
  (PRINC "Objects have been joined.")
  (PRINC)
)

xyp1964 · 发表于 2005-11-23 12:29:41

并未加F选项。
修改程序：

[FONT=courier new](defun c:test (/ ent name OCMD)
(SETQ OCMD (GETVAR "CMDECHO"))
(SETVAR "CMDECHO" 0)
(setq ent (car (entsel "\n选择需要连接的线段 : "))
name (cdr (assoc 0 (entget ent)))
)
(if (OR (= name "LWPOLYLINE") (= name "POLYLINE"))
(command "pedit" ent "j" "all" "" "f" "")
(command "pedit" ent "y" "j" "all" "" "f" "")
)
(SETVAR "CMDECHO" OCMD)
(redraw ent 3)
(PRINC)
)[/FONT]

wangwangnn · 发表于 2005-11-23 13:56:21

可是这样连接后的线和连接前比较是有变形的，能不能保证和原来的形状一样呢？

xyp1964 · 发表于 2005-11-23 21:48:19

最初由 wangwangnn 发布
[B]可是这样连接后的线和连接前比较是有变形的，能不能保证和原来的形状一样呢？ [/B]

为什么要提到“拟合”呢？

[FONT=courier new](defun c:test (/ ent name OCMD)
(SETQ OCMD (GETVAR "CMDECHO"))
(SETVAR "CMDECHO" 0)
(setq ent (car (entsel "\n选择需要连接的线段 : "))
name (cdr (assoc 0 (entget ent)))
)
(if (OR (= name "LWPOLYLINE") (= name "POLYLINE"))
(command "pedit" ent "j" "all" "" "")
(command "pedit" ent "y" "j" "all" "" "")
)
(SETVAR "CMDECHO" OCMD)
(redraw ent 3)
(PRINC)
)[/FONT]

841594 · 发表于 2005-11-23 22:44:44

这是cad本身的规则，没法改变的。
先合并再重新拟合难免会变形，因此另一个思路是先炸碎拟合的曲线，然后将所有碎片（都是line）连接起来，能够保证原来的形状，缺点是顶点会增加很多。

xyp1964 · 发表于 2005-11-23 22:52:44

最初由 841594 发布
[B]这是cad本身的规则，没法改变的。
先合并再重新拟合难免会变形，因此另一个思路是先炸碎拟合的曲线，然后将所有碎片（都是line）连接起来，能够保证原来的形状，缺点是顶点会增加很多。 [/B]

不懂！为什么要炸碎？！

狂刀 · 发表于 2005-11-23 23:17:31

炸碎是为了保持＂形＂，这个方法是可行的，符号楼主的需要

841594 · 发表于 2005-11-24 08:55:47

最初由狂刀发布
[B]炸碎是为了保持＂形＂，这个方法是可行的，符号楼主的需要 [/B]

正是。

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

[求助] [求助]：合并s拟合后的多段线为何形状又变成拟合前？

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

相关帖子