一个以定中点与选点连和画线－源码

kwok · 发表于 2013-4-12 14:05:11

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

分享一个简单以定中点与选点连和画线--支持论坛

[C] 纯文本查看 复制代码

(defun c:tt ( / en1 pt1 e0n02 pt2)
    (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 ( / pt1 pt2)
    (setq pt1 (getpoint "\n定原始点:"))
  (while
    (and
    (setq pt2 (getpoint pt1 "\n请指定点连线:"))
)
    (command "_line" pt1 pt2 "")
)
  (princ)
  )

XDSoft · 发表于 2013-4-12 14:40:34

动画图片是用什么软件做的？

kwok · 发表于 2013-4-12 22:55:50

XDSoft 发表于 2013-4-12 14:40

登录/注册后可看大图

动画图片是用什么软件做的？

有一个小软件叫gif.gif.gif可以制作这简单动画

yoyoho · 发表于 2013-4-13 08:08:38

感謝分享!:P

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

[他山之石] 一个以定中点与选点连和画线－源码

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分

相关帖子