[求助]关于offset

deviliang

lisp中用offset时，(command "offset" "15" (entlast) p0 "")这样为什么不可以，offset中（entlast）无效，该怎么写呢？

caoyin

你需要判断(entlast)得到的对象类型是否可以offset

deviliang

详细点说明一下可以吗？或者说一下怎么改才可以。麻烦CAOYIN

caoyin

(if (and (setq a (entlast))
         (wcmatch (cdr (assoc 0 (entget a)))
                  "LINE,*POLYLINE,SPLINE,ARC,CIRCLE,RAY,XLINE,ELLIPSE"
         )
         (setq p0 (getpoint "\n拾取点: "))
    )
  (command "offset" "15" a p0 "")
)

deviliang

哦，明白了，非常谢谢caoyin

deviliang

不好意思，还是不行啊！问题是出在command中，

是不是offset后还要输入一个什么参数啊？麻烦caoyin再看一下吧。

liu_kunlun

(command "offset" 20 (list (entlast) pt1) pt2 "")

;pt1为entlast上的一点，pt2指出偏移方向