CAD悬挂点检查（源码）_悬挂点检查_小懒人CAD工具箱_小懒人插件

dy001 · 发表于 2019-3-11 08:28

CAD悬挂点检查（源码）_悬挂点检查_小懒人CAD工具箱_小懒人插件

微信图片_20190311082625.gif

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

dy001 · 发表于 2019-3-11 22:01

wssulan 发表于 2019-3-11 09:06
能不能在悬挂点上标一个圈呢？

;;;
;;;功能:悬挂点检查
;;;逆流而上的鱼制作
;;;QQ736188807
(defun c:tt();;;;悬挂点检查
  (vl-load-com)
  (if (and
(setq ss (ssget (list (cons 0 "*POLYLINE"))))
;;; (setq pt (getpoint "\n 指定错误信息定向点<退出>"))
)
(progn
   (setvar "OSMODE" 0)
   (setvar "cecolor" "1")
   (command "ZOOM" "E")
   (repeat (setq k (sslength ss))
(setq ent (ssname ss (setq k (1- k))))
(setq obj (vlax-ename->vla-object ent))
(setq pt1 (vlax-curve-getEndPoint obj))
(setq pt2 (vlax-curve-getStartPoint obj))
(if (setq ss1 (ssget "C" pt1 pt1 (list (cons 0 "*POLYLINE"))))
   (if (= (sslength ss1) 1)
;;;       (command "LINE" pt pt1 "")
      (command "CIRCLE" pt1 0.5)
      )
   )
(if (setq ss1 (ssget "C" pt2 pt2 (list (cons 0 "*POLYLINE"))))
   (if (= (sslength ss1) 1)
;;;       (command "LINE" pt pt2 "")
      (command "CIRCLE" pt2 0.5)
      )
   )
)
   (command "ZOOM" "P")
   )
)
  )