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

楼主干得漂亮,学习了
页: [1]
查看完整版本: 学习了坛里前辈原码,简单的以中点连线和画线,