荒野孤行 发表于 2015-6-4 22:22:41

spp_wall 发表于 2013-10-30 21:00 static/image/common/back.gif
断点bucuo !!!!!!!!!!1

怎么不错？

photo_cup 发表于 2014-11-22 21:16:45

很不错的功能...推荐

lengxiaxi 发表于 2014-11-22 17:20:37

lsp不错，刚开是使用时把人搞懵了，原来使用之前必须先将要检查的对象pe为多义线，那样才有效果！若图元不是多义线，程序中的闭合功能不会执行，所以简单的说，这个lsp针对非多义线目标无效。mj里面有个ple的多义线lsp，结合那个lsp使用，这个程序就很方便了。

zazhz123 发表于 2014-11-7 15:10:52

版主厉害的

77077 发表于 2014-8-6 21:56:59

关键看这里，和我想的一样(if (not (vlax-curve-isclosed obj))
    (progn
      (setq pt_start (vlax-curve-getstartpoint obj))
      (setq pt_end (vlax-curve-getendpoint obj))
      (command "circle" pt_start cr)
      (command "circle" pt_end cr)
    )
)

恕放之生命 发表于 2014-8-6 17:31:01

谢谢分享。

xyp1964 发表于 2014-1-31 10:02:59

;; 断线查错需要e派工具箱(XCAD)的支持：http://yunpan.cn/QXQKsW9gAPmpF
(defun c:tt ()
(xyp-CMDLA0)
(xyp-MkLaCo "TEST" 1)
(setq ukw (UKWORD 1 "1 2" "1-闭合/2-检查" ukw)
        i   -1
)
(if (setq ss (ssget '((0 . "*polyLINE"))))
    (if        (= ukw "1")
      (command "pedit" "m" ss "" "c" "")
      (while (setq s1 (ssname ss (setq i (1+ i))))
        (if (not (xyp-Curve-Close s1))
          (setq        s2 (xyp-circle (vlax-curve-getStartPoint s1) 100)
                s3 (xyp-circle (vlax-curve-getEndPoint s1) 100)
          )
        )
      )
    )
)
(xyp-CMDLA1)
)

荒野孤行 发表于 2014-1-31 01:08:14

flyfox1047 发表于 2013-12-17 19:13


难道是触摸屏行业的？

qiushizhda 发表于 2014-1-17 16:33:24

下过来马上就用上了，哈哈 。赞

我自然 发表于 2013-12-17 20:24:29

这个不错，很需要。
页: 14 15 16 17 18 19 20 21 22 23 [24] 25
查看完整版本: 查找悬挂线及其断开位置