把单线转化为多线

xyz2009xyz

把单线转化为多线,为什么不行,运行后显示，求教大虾

命令: DV
请输入转化后线宽(默认0.5mm):
选择对象: 指定对角点: 找到 2 个
选择对象:  PEDIT 选择多段线或 [多条(M)]: 选择多段线或 [多条(M)]: M
选择对象: 选择多段线或 [多条(M)]:
输入选项
[闭合(C)/合并(J)/宽度(W)/编辑顶点(E)/拟合(F)/样条曲线(S)/非曲线化(D)/线型生成(L)
/放弃(U)]: WIDTH
指定所有线段的新宽度:
输入选项
[闭合(C)/合并(J)/宽度(W)/编辑顶点(E)/拟合(F)/样条曲线(S)/非曲线化(D)/线型生成(L)
/放弃(U)]: 0.500000000000000
无效的选项关键字。
; 错误: 函数被取消
[闭合(C)/合并(J)/宽度(W)/编辑顶点(E)/拟合(F)/样条曲线(S)/非曲线化(D)/线型生成(L)

3. ;把单线转化为多线
4. (defun C:DV( / DD XK)
5.     (princ "\n请输入转化后线宽(默认0.5mm):")
6.     (SETQ XK (GETREAL))   
7.     (
8.       IF(= NIL XK)
9.         (SETQ XK 0.5)
10.     )
11.     (setq DD (ssget))
12.     (command "PEDIT" "" "M" "" DD "WIDTH" "" "XK" "" "")
13.     ;(command "PEDIT" "" "M" "" DD "WIDTH" "" XK "" "")也一样
14.     (princ)
15. )

;把单线转化为多线 (defun C:DV( / DD XK)     (princ "\n请输入转化后线宽(默认0.5mm):")     (SETQ XK (GETREAL))        (       IF(= NIL XK)         (SETQ XK 0.5)     )     (setq DD (ssget))     (command "PEDIT" "" "M" "" DD "WIDTH" "" "XK" "" "")     ;(command "PEDIT" "" "M" "" DD "WIDTH" "" XK "" "")也一样     (princ) )

xyz2009xyz

用这一段代码也不行

3. ;超级简化pedit命令
4. ;看到这么多的朋友分享好东东我也下了一点来而不往非礼也!
6. ;工作中要把几条直线或圆弧合并成多段线，用pedit时 要先选取一条直线，先转化为多段线 ，
7. ;后再按“j” 继续添加 ，比较麻烦，编个程序简化该过程可以直接选择要转多段线的直线或圆
8. ;弧就可以，省去麻烦 ,当选择集中有多段线时和没有多段线时是一样的。
9. ;0.0005为串多段线的两线间距精度越大越好串,但也有一些其它问题我个人觉的这个值最佳
10. ;我的邮箱为idfhm@tom.com知道吗?用tom邮箱的可是老网民
11. (defun c:j()
12. (prompt "\n idfhm@tom.com")
13. (setq idfhm (ssget))
14. (command "_pedit" "m" idfhm "" "" "join" "0.0005" "")
15. )

;超级简化pedit命令 ;看到这么多的朋友分享好东东我也下了一点来而不往非礼也! ;工作中要把几条直线或圆弧合并成多段线，用pedit时 要先选取一条直线，先转化为多段线 ， ;后再按“j” 继续添加 ，比较麻烦，编个程序简化该过程可以直接选择要转多段线的直线或圆 ;弧就可以，省去麻烦 ,当选择集中有多段线时和没有多段线时是一样的。 ;0.0005为串多段线的两线间距精度越大越好串,但也有一些其它问题我个人觉的这个值最佳 ;我的邮箱为idfhm@tom.com知道吗?用tom邮箱的可是老网民 (defun c:j() (prompt "\n idfhm@tom.com") (setq idfhm (ssget)) (command "_pedit" "m" idfhm "" "" "join" "0.0005" "") )

masterlong

选择到直线或圆弧的时候

会询问是否转换到多义线

要加一个"Y"

所以程序流程上要有一个 if 判断

以便区别对待

另外XK不需要双引号

xyz2009xyz

可是使用PEDIT命令：pedit---->回车---->M---->回车---->框选对象------>回车----->W----->回车---->0.5---->回车    即可把单线变为多线啊？

masterlong

我用的是2004

其它版本没有

不知道是什么样的情况

你试过含L、ARC或者不含L、ARC的情况了吗？

 

另外(command "PEDIT" "" "M" "" DD "WIDTH" "" "XK" "" "")

这一句有3个错误

1.M后面不需要再多一个"" ，"M"本身就代表输入M并回车

2.DD后面应该加一个 "" ，表示选择物体结束

3.创建DD选择集时应该加上过滤，含L、ARC和不含L、ARC的选择集，出现的提示是不同的

AMTONNY

楼主看看这个行不？

xyz2009xyz

可以谢谢6楼，呵呵，我看看自己的有什么问题！

xyz2009xyz

6楼的那个大哥，你的程序如果框选两个对象（一条圆弧与一条直线或者两条直线），好像每次也只能对一个有效！不知道能不能改改

yoyoho

;;;把单线转化为多线
;;;autocad 2008 测试 o.k.

(defun C:DV( / DD XK)
    (princ "\n请输入转化后线宽(默认0.5mm):")
    (SETQ XK (GETREAL))
    (
      IF(= NIL XK)
        (SETQ XK 0.5)
    )
    (setq DD (ssget '((0 . "LINE,*POLYLINE,ARC"))))
    (command "PEDIT" "M" DD "" "W" XK "")
    ;(command "PEDIT" "" "M" "" DD "WIDTH" "" "XK" "" "")
    ;(command "PEDIT" "" "M" "" DD "WIDTH" "" XK "" "")也一样
    (princ)
)

yoyoho

;超级简化pedit命令
;看到这么多的朋友分享好东东我也下了一点来而不往非礼也!

;工作中要把几条直线或圆弧合并成多段线，用pedit时 要先选取一条直线，先转化为多段线 ，
;后再按“j” 继续添加 ，比较麻烦，编个程序简化该过程可以直接选择要转多段线的直线或圆
;弧就可以，省去麻烦 ,当选择集中有多段线时和没有多段线时是一样的。
;0.0005为串多段线的两线间距精度越大越好串,但也有一些其它问题我个人觉的这个值最佳
;我的邮箱为idfhm@tom.com知道吗?用tom邮箱的可是老网民
;AUTOCAD 2008 测试 O.K.

(defun c:j()
(prompt "\n idfhm@tom.com")
(setq idfhm (ssget))
(command "_pedit" "m" idfhm "" "join" "0.0005" "")
)