交线打断程序

huangyusen2000 · 发表于 2013-11-30 19:02:37

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

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

×

;*********************************************************************************
(defun c:dk (/ bbb p1 p2 p3 anl p4 p5)
  (princ
(strcat "\n  ************交线打断程序,版本1.0;(1998-1999);")
  )
  (defun *ERROR* (msg)
(princ "\n")
(princ msg)
(setvar "osmode" bbb)
(setq *ERROR* olderr)
(princ)
  )
  (setq bbb (getvar "osmode")
olderr *ERROR*
  )
  (setvar "osmode" 32)
  (setq p1 (getpoint "\n 拾取一个交点:"))
  (princ "\n 请输入断开点到交点的距离<")
  (princ a)
  (princ ">:")
  (setq p2 (getdist))
  (if (not p2)
(setq p2 a)
  )
  (setvar "osmode" 512)
  (setq a p2
p3  (getpoint "\n 拾取要断开的线:")
anl (angle p1 p3)
p4  (polar p1 anl p2)
p5  (polar p1 (+ 3.14 anl) p2)
  )
  (command "break" p4 p5)
  (setvar "osmode" bbb)
  (princ "**OK!**")
  (princ)
)

吴外安放 · 发表于 2020-7-26 18:56:45

谢谢版主分享

xvjiex · 发表于 2021-5-21 06:19:05

感谢楼主分享交线打断程序！

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

[每日一码] 交线打断程序

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