[LISP程序]：帮忙

yintao

我想做一个关于mpedit的命令，想用lisp编程。现有两个问题：
1.command "PEDIT" 不能运行。可能与mpedit本身是个LISP程序有关。
2.对象集选择怎样用函数表示。
我想编好以后，执行命令，只需选择对象，即可将对象自动加宽为0.2。
大概思路：
(defun c:JK()
        (command "PEDIT" " "  "W" "0.2" "")
)

Victorwu

编辑单个Pline：
(defun c:JK() (command "PEDIT" (entsel) "Width" "0.2" ""))

编辑多个Pline（或line）
(defun c:JK() (command "PEDIT" "M" (ssget) "" "Width" "0.2" ""))
Acad2002 下调试通过[/COLOR]

yintao

对不起，我在r14下似乎不能运行，加载后运行结果如下：
Command: jk
PEDIT Select polyline: M

*Invalid selection*
Expects a point or Window/Last/Crossing/BOX/ALL/Fence/WPolygon/CPolygon
error: Function cancelled
(COMMAND "PEDIT" "M" (SSGET) "" "Width" "0.2" "")
(C:JK)
Select polyline:


这样只能一次选择一条多义线，而且没自动加宽为0.2。

Victorwu

最初由 yintao 发布
[B]对不起，我在r14下似乎不能运行，加载后运行结果如下：
Command: jk
PEDIT Select polyline: M

*Invalid selection*
Expects a point or Window/Last/Crossing/BOX/ALL/Fence/WPolygon/CPolygon
error: Funct... [/B]

R14下Pedit没有编辑多条Pline功能。只能用前一个。

秋枫

你何不参考一下bonus中的mpedit。在r14下面写这样的一个程序，需要考虑的很多，比如UCS，原来是不是PLINE，等等。