[求助]：如何得到封闭PL内任意一点？

阿_Q

有时候OFFSET时方向是固定的，需要程序自动向内或外偏移而不需要手工拾取一点指定方向，因此如何让程序自动得到面域（或多义线）内或外部任一点？

Archli

可以用如下两种方法：
1、在autolisp中先在两个端点连线的中点画一个点，这个点距离这个线的距离要足够的小，ssget "wP" 选择一下，再用ssmemb判断这个点是否在选择信之内，就可以判断是在内或是在外了。
2、vla-offset可以使用负值，在内。

taner

论坛上有很多关于双向偏移的程序，变通一下就可以有选择的单向偏移了。搜一下！

2. 
   
3.   [FONT=courier new]
   
4. (defun c:om (/ ss dis objs)
   
5.   (princ "\n一次偏移多個實體.")
   
6.   (vl-load-com)
   
7.   (setq ss (ssget))
   
8.   (setq dis (getdist "\nSpecify Offset Distance:"))
   
9.   (setq objs (vla-get-activeselectionset (vla-get-activedocument
   
10.                                                                  (vlax-get-acad-object)
    
11.                                          )
    
12.              )
    
13.   )
    
14.   (vlax-for obj objs (vla-offset obj dis))
    
15.   (princ)
    
16. )
    
17. ；改一下，就可双向偏移了。
    
18. (defun c:omm (/ ss dis objs)
    
19.   (princ "\n一次双向偏移多個實體。")
    
20.   (vl-load-com)
    
21.   (setq ss (ssget))
    
22.   (setq dis (getdist "\nSpecify Offset Distance:"))
    
23.   (setq objs (vla-get-activeselectionset (vla-get-activedocument
    
24.                                                                  (vlax-get-acad-object)
    
25.                                          )
    
26.              )
    
27.   )
    
28.   (vlax-for obj objs (vla-offset obj dis))
    
29.   (vlax-for obj objs (vla-offset obj (* dis -1)))
    
30.   (princ)
    
31. )
    
32.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:om (/ ss dis objs)<br />   (princ "\n一次偏移多個實體.")<br />   (vl-load-com)<br />   (setq ss (ssget))<br />   (setq dis (getdist "\nSpecify Offset Distance:"))<br />   (setq objs (vla-get-activeselectionset (vla-get-activedocument<br />                                                                  (vlax-get-acad-object)<br />                                          )<br />              )<br />   )<br />   (vlax-for obj objs (vla-offset obj dis))<br />   (princ)<br /> )<br /> ；改一下，就可双向偏移了。<br /> (defun c:omm (/ ss dis objs)<br />   (princ "\n一次双向偏移多個實體。")<br />   (vl-load-com)<br />   (setq ss (ssget))<br />   (setq dis (getdist "\nSpecify Offset Distance:"))<br />   (setq objs (vla-get-activeselectionset (vla-get-activedocument<br />                                                                  (vlax-get-acad-object)<br />                                          )<br />              )<br />   )<br />   (vlax-for obj objs (vla-offset obj dis))<br />   (vlax-for obj objs (vla-offset obj (* dis -1)))<br />   (princ)<br /> )<br />   [/FONT]<br />