[LISP程序]：怎样用纯LISP一次OFFSET多个封闭实体

taner

请教各位高手:怎样用纯LISP一次OFFSET多个封闭实体,可以要么统一向内OR向外OFFSET.

LUCAS

用vlisp中的offset會比較簡單
Creates a new object at a specified offset distance from an existing object.

Signature

RetVal = object.Offset(Distance)

Object        Arc, Circle, Ellipse, Line, LightweightPolyline, Polyline, Spline, XLine
The object or objects this method applies to.
Distance        Double; input-only
The distance to offset the object. The offset can be a positive or negative number, but it cannot equal zero. If the offset is negative, this is interpreted as being an offset to make a "smaller" curve (that is, for an arc it would offset to a radius that is "Distance less" than the starting curve's radius). If "smaller" has no meaning, then it would offset in the direction of smaller X, Y, and Z WCS coordinates.

RetVal        Variant (array of objects)
An array of the newly created objects resulting from the offset.

Remarks

For many curves, the result of this operation will be a single new curve (which may not be of the same type as the original curve). For example, offsetting an ellipse will result in a spline because the result does fit the equation of an ellipse. In some cases it may be necessary for the offset result to be several curves.

陌生人

同意lucas意见。

2. 
   
3. ;(xoff (ssget '((0 . "*line,arc,circle,ellipse"))) -100)
   
4. ;(xoff (ssget) -300)
   
5. |;
   
6. (defun xoff (ss dist / ss)
   
7.   (setq ss  (ssget "P" '((0 . "*line,arc,circle,ellipse")))
   
8.         vss (vla-get-activeselectionset(vla-get-activedocument(vlax-get-acad-object))))
   
9.   (vlax-for obj vss
   
10.     (vla-offset obj dist)
    
11.   )(princ)
    
12. )
    

<br /> ;(xoff (ssget '((0 . "*line,arc,circle,ellipse"))) -100)<br /> ;(xoff (ssget) -300)<br /> |;<br /> (defun xoff (ss dist / ss)<br />   (setq ss  (ssget "P" '((0 . "*line,arc,circle,ellipse")))<br />         vss (vla-get-activeselectionset(vla-get-activedocument(vlax-get-acad-object))))<br />   (vlax-for obj vss<br />     (vla-offset obj dist)<br />   )(princ)<br /> )<br />

taner

to LUCAS :VLISP也可以呀!麻烦您编一个.我先谢谢了!

lsjjm

TRY THIS:
(defun c:test ()
  (vl-load-com)
  (setq ss (ssget "x"))
  (setq dis (getreal "\nSpecify Offset Distance:"))
  (setq        objs (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object))))
  (vlax-for obj objs
    (if (vlax-curve-isclosed obj)
      (vla-offset obj dis)
    )
  )
  (princ)
)

taner

to lsjjm :不错,谢谢你!我试过了,很好用!如果改成如下:(defun c:TEST (/ ss dis objs)
(vl-load-com)
(setq ss (ssget ))
(setq dis (getreal "\nSpecify Offset Distance:"))
(setq objs (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object))))
(vlax-for obj objs
(vla-offset obj dis)
)
(princ)
)
就可以对所有实体OFFSET了.
另请问,如果我OFFSET后,想删除原来的实体的话,该怎么办?

Qlin

最初由 taner 发布
[B]....
就可以对所有实体OFFSET了.
另请问,如果我OFFSET后,想删除原来的实体的话,该怎么办? [/B]

第一：对像region、solid、3dpolyline这样的实体是不能offset的，
只能支持原来ACAD的offset可以支持的实体；
第二：程序末尾加上：
(command "erase" ss "")

LUCAS

;;注意:*POLYLINE,SPLINE可是有順時針OR逆時針,程序可沒有那麼簡單吧!

taner

各位能否想个办法,不用每次都输入DIS.即DIS有一个初值,如果认为合适的话,ENTER即可,否则用户可重新输入.