求框选2点自动连线

kwok · 发表于 2012-10-28 00:30:54

在坛里找了一下，没有这个功能的，框选2个点后自动连线，
在这里借用一下论坛里找到的代码，但要点起点和终点中，能不能改成直接框选2点就连线了,谢谢!
(defun c:ttt ()
(setvar "osmode" 0)
;(princ "\请指定起始点：")
(setq en1 (entsel))
(setq pt1 (osnap (cadr en1) "nea"))
(princ "\请指定终点：")
(setq en2 (entsel))
(setq pt2 (osnap (cadr en2) "nea"))
(command "line" pt1 pt2 "")
)
如下图:

vlisp2012 · 发表于 2012-10-28 09:49:51

(defun c:tt( / en1 ent i pt ss ssn v)
;;;    (setvar "osmode" 0)
;;;    (command "ucs" "w")

  (setq ss (ssget '((0 . "point"))))
  (setq i 0)
  (repeat (sslength ss)
(setq ssn (ssname ss i))
(setq ent (entget ssn))
(setq en1 (apply '(lambda (v) (setq en1 (cons v en1)))
(progn (setq pt (cdr (assoc 10 ent)))
                           (list pt)
   )))
(setq i (1+ i))

)
(command "line")
  (while (car en1)
  (command (car en1))
  (setq en1 (cdr en1)))
  (command "")

)

Andyhon · 发表于 2012-10-28 09:50:39

本帖最后由 Andyhon 于 2012-10-28 09:51 编辑

;;; 直接框选2点就连线...
;;; no error check

(defun c:ttt ()
(princ "\n请直接框选2点：")
(setq ss (ssget '((0 . "POINT")))
p1 (cdr (assoc 10 (entget (ssname ss 0))))
p2 (cdr (assoc 10 (entget (ssname ss 1))))
)
(entmake (list '(0 . "LINE") (cons 10 p1) (cons 11 p2)))
)

xyp1964 · 发表于 2012-10-28 09:57:30

;; 点集两点连线
;; 伪源码需要e派工具箱(XCAD)的支持
(defun c:tt ()
(princ "\n框选点: ")
(setq ss (ssget '((0 . "POINT")))
i -1
)
(while (and (setq s1 (ssname ss (setq i (1+ i))))
(setq s2 (ssname ss (setq i (1+ i))))
)
(xyp-line (xyp-dxf 10 s1) (xyp-dxf 10 s2))
)
(princ)
)

yoyoho · 发表于 2012-10-29 01:06:53

学习!
各位的巧妙!
感恩!

戏男 · 发表于 2012-10-29 11:21:09

为什么只能是框选两点而不是很多的点呢？

kwok · 发表于 2012-10-29 12:49:18

戏男发表于 2012-10-29 11:21
为什么只能是框选两点而不是很多的点呢？

框选多点不好判断顺序吧...

戏男 · 发表于 2012-10-29 13:11:36

经两个最近的点连一起啊可行不

52幕墙设计 · 发表于 2012-10-30 12:21:42

怎么实现两条直线，框选到的两个端点连线

kwok · 发表于 2012-10-30 15:30:57

52幕墙设计发表于 2012-10-30 12:21
怎么实现两条直线，框选到的两个端点连线

这个功能论坛里有相关lsp,搜一下.
可参考:http://bbs.mjtd.com/forum.php?mod=viewthread&tid=96479

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

求框选2点自动连线

本帖子中包含更多资源

点评

评分

点评

评分

点评