CAD多线段编辑LISP编写？

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

本帖最后由 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

您所用的版次?" F5 e+ p, s# p$ z* D
Camello 发表于 2011-10-20 10:03

我现在用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...
+ G- O3 S, }6 B, C* n! Y* q(command "pedit" "m" (ssget) "" "Y" "J" 2.0 "")
7 J8 Z1 v* X; T$ _" c& F' gCamello 发表于 2011-10-20 10:11

谢谢你，老兄，可以了

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

[已解决] CAD多线段编辑LISP编写？