lengliqun 发表于 2011-4-22 21:22:13

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

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

xyp1964 发表于 2011-4-22 21:22:14

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

461045462 发表于 2011-4-23 07:11:58

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

lengliqun 发表于 2011-4-23 20:21:37

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

lengliqun 发表于 2011-4-23 20:24:03

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

xiaxiang 发表于 2011-4-24 20:12:00

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

仅仅是线段吗？

xyp1964 发表于 2011-4-25 13:37:51




lengliqun 发表于 2011-4-25 14:18:20

多谢院长，CAD2004测试可用。

xiaolong1487 发表于 2011-11-3 14:27:51

我也来试试@

lzg8877 发表于 2012-5-8 06:59:26

看好东西　下了
页: [1]
查看完整版本: 求一偏移的LSP程序，选择LINE线或PL线，则在该边偏移100且与原线