马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
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)
- )
|