lisp程序请大家看帮忙一下有问题吗？运行之后只是等分了没有输出其他信息

liupengde003 · 发表于 2019-4-14 22:24:59

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

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

×

;等分多段线
(defun c:tes ( / d1 d2 ent n n1 p1)
(vl-load-com)
(setq n 1)
(while (< n 2)
  (initget 7)
  (setq n (getint "\n请输入大于1的等分数值"))
)
(if (and (setq ent (entsel "\n请选择曲线"))
      (setq ent (car ent))
      (not (vl-catch-all-error-p (vl-catch-all-apply 'vlax-curve-getEndParam (list ent))));确认是曲线

   )
  (progn
(setq d1 (vlax-curve-getDistAtParam ent (vlax-curve-getEndParam ent)));曲线长度
(if (vlax-curve-isClosed ent) (setq n1 -1) (setq n1 0));判断是否封闭
(while (< (setq n1 (1+ n1)) n)
(setq d2 (/ (* d1 n1) n));点到起点的长度
(setq p1 (vlax-curve-getPointAtDist ent d2));求得坐标
(entmake (list '(0 . "POINT") '(100 . "AcDbEntity") '(100 . "AcDbPoint") (cons 10 p1)));绘制点
);while
  )
)
(princ)
)

liupengde003 · 发表于 2019-4-14 22:26:39

我是想等分多段线，然后得到每个等分点到起始点的距离

newer · 发表于 2019-4-14 22:40:05

你想得到什么信息？

sicky111 · 发表于 2019-4-14 23:51:23

是要princ显示出距离吗？

aisong220 · 发表于 2019-4-14 23:58:22

qyming2000 · 发表于 2019-4-15 16:36:44

(vlax-curve-getDistAtParam ent (vlax-curve-getEndParam ent))

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

[求助] lisp程序 请大家看帮忙一下有问题吗？运行之后只是等分了 没有输出其他信息

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

[求助] lisp程序请大家看帮忙一下有问题吗？运行之后只是等分了没有输出其他信息