求一偏移的LSP程序，选择LINE线或PL线，则在该边偏移100且与原线

lengliqun

求一偏移的LSP程序，选择LINE线或PL线，再点击该线的某一边，则在该边偏移100且与原线连成一个封闭多边形,有是否保留原线的选项。

xyp1964

2. ;; 需要e派工具箱的支持
   
3. (defun c:tt ()
   
4.   (CMDLA0)
   
5.   (setq ss (ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE")))
   
6. i  -1
   
7.   )
   
8.   (while (setq s1 (ssname ss (setq i (1+ i))))
   
9.     (xyp-Offset s1 100 t nil nil)
   
10.     (setq la (xyp-get-dxf 8 s1)
    
11.    s2 (entlast)
    
12.    s3 (xyp-line (vlax-curve-getstartPoint s1)
    
13.          (vlax-curve-getstartPoint s2)
    
14.       )
    
15.    s4 (xyp-line (vlax-curve-getendPoint s1)
    
16.          (vlax-curve-getendPoint s2)
    
17.       )
    
18.     )
    
19.     (xyp-SubUpd s3 8 la)
    
20.     (xyp-SubUpd s4 8 la)
    
21.   )
    
22.   (CMDLA1)
    
23. )

;; 需要e派工具箱的支持<br /> (defun c:tt ()<br />   (CMDLA0)<br />   (setq ss (ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE")))<br /> i  -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (xyp-Offset s1 100 t nil nil)<br />     (setq la (xyp-get-dxf 8 s1)<br />    s2 (entlast)<br />    s3 (xyp-line (vlax-curve-getstartPoint s1)<br />          (vlax-curve-getstartPoint s2)<br />       )<br />    s4 (xyp-line (vlax-curve-getendPoint s1)<br />          (vlax-curve-getendPoint s2)<br />       )<br />     )<br />     (xyp-SubUpd s3 8 la)<br />     (xyp-SubUpd s4 8 la)<br />   )<br />   (CMDLA1)<br /> )

461045462

如果能做到：与原线连成一个封闭多边形
期待着。。。。。。

lengliqun

多谢院长，CAD2004测试可用，但似乎不是我想要的结果：
1、点击该线的某一边，则在该边偏移
2、与原线连成一个封闭多边形，要求是PL线的多边形。
继续申请。

lengliqun

希望能有一个独立的程序，e派工具箱太大了，且与较多自定义命令名冲突。

xiaxiang

lengliqun 发表于 2011-4-23 20:21
多谢院长，CAD2004测试可用，但似乎不是我想要的结果：
1、点击该线的某一边，则在该边偏移
2、与原线连成 ...

仅仅是线段吗？

xyp1964

lengliqun

多谢院长，CAD2004测试可用。

xiaolong1487

我也来试试@

lzg8877

看好东西　下了