[求助]：可不可以做这样一个程序？

xotoo · 发表于 2009-3-15 13:01:26

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

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

×

可不可以做这样一个程序，内容见下图——希望可以使用点选+框选的形式进行选择！

嗯，我在图中还少考虑了一些样式——比如任意角度倾斜的Line线段或者Pline线……

我不会编程，不知道这个会不会因为太简单而没有人出手，但是希望能得到帮助

Underway · 发表于 2009-3-15 13:47:39

Command: pedit
Select polyline or [Multiple]: m

Select objects: Specify opposite corner: 3 found
Select objects:
Convert Lines and Arcs to polylines [Yes/No]? <Y>
Enter an option [Close/Open/Join/Width/Fit/Spline/Decurve/Ltype gen/Undo]: j
Join Type = Extend
Enter fuzz distance or [Jointype] <0.0000>: 0.1[/COLOR] ;<=== 此处考量可接受的公差

2 segments added to polyline

Enter an option [Close/Open/Join/Width/Fit/Spline/Decurve/Ltype gen/Undo]:

xotoo · 发表于 2009-3-15 14:51:39

谢谢楼上的回复——因为我在编程方面是十足小白一个，能不能麻烦你整理一下写一个真正意义上的程序出来

AirCD · 发表于 2009-3-15 15:31:07

没怎么看懂楼主的要求。。。

Underway · 发表于 2009-3-15 16:01:27

真正意义上的程序出来 [/B]

AutoCAD 内建命令 PEdit
依您的请况直接回应即可
请参阅帮助

xotoo · 发表于 2009-3-15 18:14:28

最初由 Underway 发布
[B]

AutoCAD 内建命令 PEdit
依您的请况直接回应即可
请参阅帮助 [/B]

晕死，我怎么实验了不行啊

fl202 · 发表于 2009-3-16 08:15:15

直线的话，就不用编程序了，你使用F倒角命令，把圆角半径设为0，很容易实现你的功能了。

xotoo · 发表于 2009-3-16 13:49:01

最初由 fl202 发布
[B]直线的话，就不用编程序了，你使用F倒角命令，把圆角半径设为0，很容易实现你的功能了。 [/B]

关键是我希望运行程序后可以变成一个矩形（一体的），而不是用F倒角命令后的4根Line线段。

HSXTJD · 发表于 2009-3-16 15:18:20

条件不是很明确

kmdz · 发表于 2009-3-16 15:54:45

帮你整理了下，当伸出交点的长度大于两交点间长度时合并不了。
(defun c:t1()
(setvar "cmdecho" 0)
(setvar "peditaccept" 1)
(prompt "\n选择要合并的线:")
(command "pedit" "m" (ssget) "" "j" 1e9 "")
(setvar "cmdecho" 0)
(setvar "peditaccept" 0)
(princ)
)

xotoo · 发表于 2009-3-16 16:42:03

谢谢楼上的，要的就是这么一个程序，非常感谢——我编程是小白，写不出来！
我先试用一下，有问题反映给你——再次谢谢！

clhclh · 发表于 2009-3-17 10:44:31

用了你的程序后，模糊距离变为1000000000了，怎么样让它在程序结束后变回原值“0”呢？

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

[求助] [求助]：可不可以做这样一个程序？

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

相关帖子