等长分曲线

Lispboy · 发表于 2020-5-1 22:50:46

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

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

x

(defun c:xdtb_curvedivchord (/ v ss pts)
(if (not #xd-var-global-divide)
(setq #xd-var-global-divide 10)
)
(if (and (setq v (getint
(xdrx-prompt "\n等分数<" #xd-var-global-divide ">:" t)
)
)
(> v 1)
)
(setq #xd-var-global-divide v)
)
(if (and (> #xd-var-global-divide 1)
(xdrx-initssget "\n选取要处理的曲线<退出>:")
(setq ss (xdrx-ssget '((0 . "*LINE,ARC,ELLIPSE,CIRCLE"))))
)
(progn
(mapcar '(lambda (x)
(setq pts (xdrx-getsamplept x #xd-var-global-divide))
(xdrx-polyline-make pts)
(if (equal (car pts) (last pts) 1e-6)
(xdrx-curve-setclosed (entlast) t)
)
)
(xdrx-pickset->ents ss)
)
)
)
(princ)
)

(defun c:xdtb_curvedivchord (/ v ss pts) 
  (if (not #xd-var-global-divide) 
    (setq #xd-var-global-divide 10) 
  ) 
  (if (and (setq v (getint 
                     (xdrx-prompt "\n等分数<" #xd-var-global-divide ">:" t) 
                   ) 
           ) 
           (> v 1) 
      ) 
    (setq #xd-var-global-divide v) 
  ) 
  (if (and (> #xd-var-global-divide 1) 
           (xdrx-initssget "\n选取要处理的曲线<退出>:") 
           (setq ss (xdrx-ssget '((0 . "*LINE,ARC,ELLIPSE,CIRCLE")))) 
      ) 
    (progn 
      (mapcar '(lambda (x) 
                 (setq pts (xdrx-getsamplept x #xd-var-global-divide)) 
                 (xdrx-polyline-make pts) 
                 (if (equal (car pts) (last pts) 1e-6) 
                   (xdrx-curve-setclosed (entlast) t) 
                 ) 
               ) 
              (xdrx-pickset->ents ss) 
      ) 
    ) 
  ) 
  (princ) 
)

xk15c · 发表于 2020-5-4 10:14:34

学习了，谢谢分享

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

[曲线] 等长分曲线

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