你的这些线是没有连接在一起的 只是它们无限接近而已 你还是用捕捉命令把它们的端点连在一起后再用pedit命令吧 顺便给你一个程序 ;此命令将把所有与你选择的线段首尾相连的线连成一体 (defun c:lian () (setq old (getvar "peditaccept")) (command "peditaccept" 1) (setq a (car (entsel "\n 请选择一条直线:"))) (command "pedit" a "j" "all" "" "" "") (setvar "peditaccept" old) )
|