指定距离间隔批量插点

newer · 发表于 2017-1-23 14:37:17

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 newer 于 2017-1-23 14:42 编辑

(defun c:XDTB_CurvePntAtDist ( / disl e p1 pt r x)
  (if (and
        (setq e (car (xdrx_entsel "\n拾取曲线实体<退出>:" '((0 . "LINE,ARC,CIRCLE,SPLINE,*POLYLINE")))))
        (/= "" (setq disl (getstring "\n输入距离(多个,隔开)<退出>:")))
      )
    (progn
      (if (not #xd_polyline_circle_radius)
        (setq #xd_polyline_circle_radius 10.)
      )
      (if (setq r (getreal (xdrx_prompt "\n圆半径<"
                                        #xd_polyline_circle_radius ">:" t
                           )
                  )
          )
        (setq #xd_polyline_circle_radius r)
      )
      (if (not (setq pt (getpoint "\n点取起点<曲线开始点>")))
        (setq pt (xdrx_getpropertyvalue e "startpoint"))
      )
      (setq disl (xdrx_string_split disl ","))
      (mapcar
        '(lambda (x)
           (setq p1 (xdrx_curve_getpointatdist e pt (atof x)))
           (xdrx_circle_make p1 #xd_polyline_circle_radius)
         )
        disl
      )
    )
  )
  (princ)
)

qqqincccken · 发表于 2017-1-23 19:52:24

谢谢提供,下载试试!!!!!!!!!!!

yoyoho · 发表于 2017-2-4 15:07:18

感谢N版分享,下载学习!

豪id · 发表于 2017-2-7 19:48:34

厉害厉害厉害厉害厉害厉害厉害厉害

sicky111 · 发表于 2017-2-10 00:11:46

啥也不说了，感谢楼主分享哇！

508000096 · 发表于 2017-2-13 08:16:39

已看不到图了。

yyuanliangg · 发表于 2017-3-10 10:12:21

cad等分命令是不是和你这效果一样？

wbf424069638 · 发表于 2017-5-29 20:23:55

楼主威武，，，，，，，，

pezyl · 发表于 2017-6-3 12:12:38

哈哈，刚好有个活需要，谢谢n版

pezyl · 发表于 2017-6-3 14:02:36

N版，这个我要指定起点距离和终点距离，然后中间剩余长度部分按数量均分怎么改啊，菜鸟级别自己不会

pezyl · 发表于 2017-6-3 14:45:21

本帖最后由 pezyl 于 2017-6-4 09:50 编辑

http://bbs.xdcad.net/thread-709651-1-1.html

奶茶1号 · 发表于 2017-6-4 08:08:20

厉害，啥也不说了，感谢楼主分享哇

MUYIY · 发表于 2022-6-13 22:04:43

学习

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

[曲线] 指定距离间隔批量插点

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。