直线的单方向延长或缩短子程序

xyzjint_cn · 发表于 2012-6-12 13:46:45

本帖最后由 xyzjint_cn 于 2012-6-12 13:49 编辑

试试我这个子程序，直线单方向延长或缩短

在网上找了好久都找不到这样功能的程序，只能用笨办法编了一个

ln_1 为要缩短或延长的直线，l_pt 为延长或缩短方向上的一个点，l_w 为延长或缩短的距离（正为延长，负为缩短）
;;;;;;;;直线缩短或延长
;;;;;;;参数为:线点缩短或延长距离
(defun line_stretch (lin_1 l_pt  l_w / lin_pt_e lin_pt_s c_pt num b1)
  (setq lin_pt_s (cdr (assoc 10 (entget lin_1))))
  (setq lin_pt_e (cdr (assoc 11 (entget lin_1))))
  (setq
ln_mid (mapcar '+ lin_pt_s lin_pt_e)
  )
  (setq ln_mid (mapcar '/ ln_mid '(2 2 2)))

  (if (= (distance lin_pt_s l_pt) 0)
(setq num 10)
(setq num 11)
  )

(setq c_pt (polar l_pt (angle ln_mid l_pt) l_w))
  (setq b1 (entget lin_1))
  (setq b1 (subst (cons num c_pt) (assoc num b1) b1))
  (entmod b1)
  (princ)
)

jinxingdtc1 · 发表于 2012-6-27 21:48:43

请问楼主怎么用我非常想要实现这样的功能

meiaoxue1230 · 发表于 2014-11-16 14:10:35

主程序怎么写啊

自贡黄明儒 · 发表于 2014-11-16 15:02:03

http://bbs.xdcad.net/forum.php?mod=viewthread&tid=675623&mobile=2

xyp1964 · 发表于 2014-11-16 15:07:19

试试 Lengthen 命令

tangjunasd58 · 发表于 2015-7-1 18:06:12

主程序是什么样的，能贴出来吗，大侠

账号		自动登录	找回密码
密码			注册

直线的单方向延长或缩短子程序

相关帖子

点评