[功能] 多段线是否真闭合

/db_自贡黄明儒_ · 发表于 2015-2-4 09:39:44

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

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

×

;; [功能] 多段线是否真闭合
;;非输入C闭合的为假闭合
(defun IsTrueClosePL (e)

游客，如果您要查看本帖隐藏内容请回复

819534890 · 发表于 2015-2-4 10:23:17

回复学习也是美德。

瀛州流水 · 发表于 2015-2-4 10:41:40

学习学习学习学习

守仁格竹GM · 发表于 2015-2-4 11:37:47

(defun gm-Curve-isClosed (e / typent pts)
  (setq typent (gm-dxf 0 e))
  (cond
((or (= typent "LWPOLYLINE") (= typent "POLYLINE"))
   (or (vlax-curve-isClosed e)
   (progn
      (setq pts (gm-Get-Pline-Pt e))
      (equal (car pts) (last pts) 1e-5)
   )
   )
)
((= typent "SPLINE,ELLIPSE")
   (vlax-curve-isClosed e)
)
((= typent "CIRCLE")
   t
)
(t
   nil
)
  )
)

csharp · 发表于 2015-2-4 11:40:17

守仁格竹GM 发表于 2015-2-4 11:37
(defun gm-Curve-isClosed (e / typent pts)
(setq typent (gm-dxf 0 e))
(cond

(or (vlax-curve-isclosed e)
(equal (vlax-curve-getstartpoint e)
(vlax-curve-getendpoint e)
1e-3
)
)

yoyoho · 发表于 2015-2-4 12:19:10

回复学习也是美德!

dnbcgrass · 发表于 2015-2-4 12:41:05

看看，学习学习！

守仁格竹GM · 发表于 2015-2-4 12:55:21

csharp 发表于 2015-2-4 11:40

仔细体会下我为何会那么写。

守仁格竹GM · 发表于 2015-2-4 13:05:22

csharp 发表于 2015-2-4 11:40

{:soso_e179:} 刚才又想了想可能是我原来想多了，忘记什么情况了。现在看来你这个很好

/db_自贡黄明儒_ · 发表于 2015-2-4 13:09:07

守仁格竹GM 发表于 2015-2-4 11:37
(defun gm-Curve-isClosed (e / typent pts)
(setq typent (gm-dxf 0 e))
(cond

你是想包络所有曲线吧，还是有缺陷，比如椭圆一半时

ynhh · 发表于 2015-2-4 13:37:31

感谢黄工了{:soso_e183:}

shiyuhuacool · 发表于 2015-2-4 14:31:13

感谢楼无私分享

shiyuhuacool · 发表于 2015-2-4 14:36:25

在哪里下载啊

grs432 · 发表于 2015-2-4 15:39:15

谢谢分享中工！！！

qiqiang2015 · 发表于 2015-2-4 16:12:44

回复学习啦

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

[每日一码] [功能] 多段线是否真闭合

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

点评

点评

点评