学习了坛里前辈原码,简单的以中点连线和画线,

kwok · 发表于 2012-12-25 16:16:02

码取之论坛,只是简单加了循环简单码,大家见笑了.
看看大家有没有跟我一样需要这样画线的,共享了.
高手可以给优化一下,让学习一下.

;;;;;;;;;
(defun c:tt ()
(setq en1 (entsel "\n指定基点:"))
(setq pt1 (osnap (cadr en1) "nea"))
(while
(and
(setq en2 (entsel "\n指定点连线:"))
(setq pt2 (osnap (cadr en2) "nea"))
)
(command "_pline" pt1 pt2 "")
)
(princ)
)
;;;;;;;;;;
(defun c:ttt ()
(setq pt1 (getpoint "\n定原始点:"))
(while
(and
(setq pt2 (getpoint pt1 "\n请指定点连线:"))
)
(command "_line" pt1 pt2 "")
)
(princ)
)

ucuc2003 · 发表于 2013-1-19 13:12:02

本帖最后由 ucuc2003 于 2013-1-19 13:13 编辑

这是yjr111 老大的，可以比较下
(defun c:tt()

  (if (setq p0 (getpoint "\n指定中心点："))
   (while (setq p1(getpoint p0 "\n指定下一点："))
      (command "line" p1 p0 "")
   )
)
  (princ)
)

xiabin68 · 发表于 2012-12-25 21:11:58

顶一个，，，，

mapzq · 发表于 2012-12-29 19:16:19

不错值得学习~~~

半听可乐 · 发表于 2012-12-30 10:51:46

顶一个！基点能不能选择文字对象？需要连线的地方如果是同名图块，可否实现框选？

ucuc2003 · 发表于 2013-1-19 13:12:48

http://bbs.mjtd.com/thread-100132-1-1.html

773786668 · 发表于 2016-4-27 21:26:33

楼主干得漂亮

oldstone · 发表于 2023-11-8 15:56:52

艺术画，艺术图

hzg912 · 发表于 2023-12-9 15:28:53

楼主干得漂亮,学习了

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

学习了坛里前辈原码,简单的以中点连线和画线,

本帖子中包含更多资源

相关帖子