tonghedi20 发表于 2019-5-2 09:28:56

已有 4 人购买  本主题需向作者支付 1 个明经币 才能浏览 购买主题

1993063 发表于 2019-5-6 10:54:03

(defun c:tt ( / d obj )
(setq d (getdist "\n偏移距离: "))
(while (setq obj (vlax-ename->vla-object (car(entsel))))
    (progn
      (vl-catch-all-apply 'vla-offset (list obj (- d)))
      (vl-catch-all-apply 'vla-offset (list obj d))
      (vl-Catch-All-Apply 'vlax-put-property (list obj 'color 1))
    )
)
)

shirker 发表于 2024-2-21 20:24:06

1993063 发表于 2019-5-6 10:54
(defun c:tt ( / d obj )
(setq d (getdist "\n偏移距离: "))
(while (setq obj (vlax-ename->vla-ob ...

很好用哦，非常感谢！

fangmin723 发表于 2019-5-7 10:34:27

我就路过，看看热闹，不过这热闹有看头哦

永不言弃 发表于 2019-5-3 14:43:05

这么神秘，提问还要收币

taoyi0727 发表于 2019-5-3 15:45:13

有意思 你提问题 还要给你币

evayleung 发表于 2019-5-4 11:21:56

这是我见过最牛B的提问了。。。。

lllllja 发表于 2019-5-6 09:00:59

这是来骗币的啊

bai2000 发表于 2019-5-6 11:48:56

楼上的很简练，怎么改线型呢？

satan421 发表于 2019-5-7 10:24:45

竟然还有两人购买了

秋雨无痕 发表于 2019-5-8 15:44:17

么钱，不买，只看看。。。。
页: [1] 2
查看完整版本: 线两边偏移，中心线变红小程序