等分曲线

Lispboy · 发表于 2017-5-31 12:34:46

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

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

×

(defun c:XDTB_CURVEDIV (/ pts ss typ val x)
(if (not #xd_var_divide_num)
(setq #xd_var_divide_num 2)
)
(if (setq val (getint (xdrx_prompt "\n输入等分数<" #xd_var_divide_num ">:"
t
)
)
)
(setq #xd_var_divide_num val)
)
(if (and
(xdrx_initssget "\n选取要等分的曲线<退出>")
(setq ss (xdrx_ssget '((0 . "*LINE,ARC,ELLIPSE,CIRCLE"))))
)
(progn
(xdrx_begin)
(mapcar
(function (lambda (x)
(setq pts (xdrx_getpropertyvalue x "getsamplepoints"
(1+ (abs #xd_var_divide_num))
)
typ (car (xdrx_object_classname x))
)
(apply
'xdrx_curve_getsplitcurves
(cons x pts)
)
(if (= typ "CIRCLE")
(xdrx_curve_getsplitcurves (entlast) (car pts))
)
)
)
(xdrx_pickset->ents ss)
)
(xdrx_end)
)
)
(princ)
)

(defun c:XDTB_CURVEDIV (/ pts ss typ val x) 
  (if (not #xd_var_divide_num) 
    (setq #xd_var_divide_num 2) 
  ) 
  (if (setq val (getint (xdrx_prompt "\n输入等分数<" #xd_var_divide_num ">:" 
                                     t 
                        ) 
                ) 
      ) 
    (setq #xd_var_divide_num val) 
  ) 
  (if (and 
        (xdrx_initssget "\n选取要等分的曲线<退出>") 
        (setq ss (xdrx_ssget '((0 . "*LINE,ARC,ELLIPSE,CIRCLE")))) 
      ) 
    (progn 
      (xdrx_begin) 
      (mapcar 
        (function (lambda (x) 
                    (setq pts (xdrx_getpropertyvalue x "getsamplepoints" 
                                                     (1+ (abs #xd_var_divide_num)) 
                              ) 
                          typ (car (xdrx_object_classname x)) 
                    ) 
                    (apply 
                      'xdrx_curve_getsplitcurves 
                      (cons x pts) 
                    ) 
                    (if (= typ "CIRCLE") 
                      (xdrx_curve_getsplitcurves (entlast) (car pts)) 
                    ) 
                  ) 
        ) 
        (xdrx_pickset->ents ss) 
      ) 
      (xdrx_end) 
    ) 
  ) 
  (princ) 
)

njyhr0113 · 发表于 2017-5-31 17:33:03

感谢楼主分享

searinon · 发表于 2017-5-31 18:22:48

这个牛逼了。

longer1000 · 发表于 2017-5-31 18:33:02

感谢楼主分享

sh_h · 发表于 2017-6-1 11:48:11

谢谢楼主分享！！！

pezyl · 发表于 2017-6-3 12:09:46

感谢版主分享

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

[曲线] 等分曲线

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