（XD::Pnts:Diluting）点表抽稀

newer · 发表于 2016-11-4 22:51:16

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

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

×

(defun XD::Pnts:Diluting (pnts distol angtol / e old tf1 typ)
  (setq old (xdrx_document_getprec))
  (setq typ (type pnts))
  (if (= typ 'ENAME)
    (setq pnts (xdrx_getpropertyvalue pnts "vertices")
          tf1 (xdrx_curve_isclosed pnts)
    )
    (setq tf1 (xd::pnts:isclosed pnts))
  )
  (xdrx_document_setprec distol angtol)
  (setq e (xdrx_polyline_make pnts tf1))
  (xdrx_polyline_compress e t)
  (setq pnts (xdrx_getpropertyvalue e "vertices"))
  (xdrx_entity_delete e)
  (apply
    'xdrx_document_setprec
    old
  )
  pnts
)

qqqincccken · 发表于 2016-11-5 13:10:31

谢谢提供,来学习了!!!!!!!

yjch · 发表于 2016-11-7 08:26:49

好好学习天天向上

xzs16 · 发表于 2016-12-14 09:33:54

好好学习天天向上

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

[点表] （XD::Pnts:Diluting）点表抽稀

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

相关帖子