jinlang007 发表于 2011-10-20 08:47

CAD多线段编辑LISP编写？

本帖最后由 jinlang007 于 2011-10-20 11:40 编辑

(defun c: QQ();定义QQ命令
   (command "pedit" "m" "ALL" "Y" "J" "2" "");多线段合并
)
当然，上面的是错误的~~~~

大家好，谁能帮我用CAD LISP语言写一个PEDIT代码，要求如下：
1.开始时默认选择多线段（M）;如：   命令: pe PEDIT 选择多段线或 [多条(M)]: m
2.提示我选择所需要选择的线段；这一步很重要，不要按上面所写的用全部线段，而是按我所需要选择的线段来操作
3.是否将直线和圆弧转换为多段线？[是(Y)/否(N)]? <Y>
4.输入选项 [闭合(C)/打开(O)/合并(J)/宽度(W)/拟合(F)/样条曲线(S)/非曲线化(D)/线型生成(L)/放弃(U)]: j
5.输入模糊距离或 [合并类型(J)] <0.0000>: 2


谢谢各位啦！

Camello 发表于 2011-10-20 09:20

Try ...
(command "pedit" "m" (ssget) "" "J" 2.0 "")

jinlang007 发表于 2011-10-20 09:37

回复 2# Camello


    这不行，会提示函数错误的。

Camello 发表于 2011-10-20 10:03

您所用的版次?

jinlang007 发表于 2011-10-20 10:04

您所用的版次?
Camello 发表于 2011-10-20 10:03 http://www.askcad.com/bbs/images/common/back.gif


    我现在用2008，这跟版本不大吧。

Camello 发表于 2011-10-20 10:11

Try...
(command "pedit" "m" (ssget) "" "Y" "J" 2.0 "")

jinlang007 发表于 2011-10-20 10:32

本帖最后由 jinlang007 于 2011-10-20 10:34 编辑

Try...
(command "pedit" "m" (ssget) "" "Y" "J" 2.0 "")
Camello 发表于 2011-10-20 10:11 http://www.askcad.com/bbs/images/common/back.gif


    谢谢你，老兄，可以了
页: [1]
查看完整版本: CAD多线段编辑LISP编写？