请教pedit命令的问题

shakeapple

我在lisp程序中使用 command pedit，中间需要选择对象，我想选择所有图元，不知道这一句应该怎么写？

ljpnb

可以这样啊 (command "pedit" "m" "all" .........)

shakeapple

谢谢，还有一个问题，就是中间会提示“是否将直线和圆弧改为多段线”，这句有时有有时没有，那如何根据它的提示输入"Y"或者跳过？


                                 根本问题是我不知道command命令中间可以加什么函数之类的吗？我比较笨，希望解答。

maomao2004

(command "pedit" "m" "all" "" pause.........)


到时候自己做个判断吧


要不很麻烦

shakeapple

判断怎么做可以说一下吗？就比如这个“是否将直线和圆弧转为多段线”的判断

zhangzack

如果默认是“y”呢？怎么写？

f5612140

shakeapple发表于2005-5-10 13:46:00      谢谢，还有一个问题，就是中间会提示“是否将直线和圆弧改为多段线”，这句有时有有时没有，那如何根据它的提示输入\"Y\"或者跳过？     

類型：整數
儲存於：登錄
初始值： 0

抑制 PEDIT 提示「選取的物件不是一條聚合線」的顯示。該提示會顯示「是否將其轉換成聚合線？」。輸入 y 可將選取物件轉換成聚合線。當該提示被抑制時，選取的物件將自動轉換成聚合線。

0 顯示提示

1 抑制提示

carrot1983

直接贴个pedit使用连接多义线的程序。楼主看完就会明白了。。。

2. ;;;******************************************************lj连接多义线
3. ;;;      功    能: 连接多义线
4. (defun c:lj (/ l1 ls1)
5.   (princ "连接多义线命令 :")
6.   (setq cmd (getvar "cmdecho"))
7.   (setvar "cmdecho" 0)
8.   (setq l1 (car (entsel "\n 选择一条用于连接的线 :")))
9.   (while (= l1 nil)
10.     (princ "\n没有选中")
11.     (setq l1 (car (entsel "\n 选择一条用于连接的线 :")))
12.   )
13.   (prompt "\n 选择需要连接的多义线:")
14.   (setq ls1 (ssget))
15.   (setvar "cmdecho" 0)
16.   (setq e0 (entget l1))
17.   (setq e (cdr (assoc 0 e0)))
18.   (if (/= e "lwpolyline")
19.     (progn
20.       (command "pedit" l1 "y" "j" ls1 "" "x")
21.     )
22.   )
23.   (if (= e "lwpolyline")
24.     (progn
25.       (command "pedit" l1 "j" ls1 "" "x")
26.     )
27.   )
28.   (setvar "cmdecho" cmd)
29.   (princ)
30. )

;;;******************************************************lj连接多义线 ;;;      功    能: 连接多义线 (defun c:lj (/ l1 ls1)   (princ "连接多义线命令 :")   (setq cmd (getvar "cmdecho"))   (setvar "cmdecho" 0)   (setq l1 (car (entsel "\n 选择一条用于连接的线 :")))   (while (= l1 nil)     (princ "\n没有选中")     (setq l1 (car (entsel "\n 选择一条用于连接的线 :")))   )   (prompt "\n 选择需要连接的多义线:")   (setq ls1 (ssget))   (setvar "cmdecho" 0)   (setq e0 (entget l1))   (setq e (cdr (assoc 0 e0)))   (if (/= e "lwpolyline")     (progn       (command "pedit" l1 "y" "j" ls1 "" "x")     )   )   (if (= e "lwpolyline")     (progn       (command "pedit" l1 "j" ls1 "" "x")     )   )   (setvar "cmdecho" cmd)   (princ) )