[求助]：那位有批量交点断线的lisp程序啊？

dlsgj · 发表于 2006-9-7 11:29:22

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

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

×

我知道xd工具箱里面有这个功能
但是我的csd安装不了xd工具箱
但是我有能用到这个功能
不知道那位大侠有这个工具
最好是独立运行的lisp程序

ewenhui · 发表于 2006-9-8 13:33:22

(defun c:jd ()
  (CMDLA0)
  (setvar "osmode" 0)
  (setq ss (ssget '((0 . "CIRCLE,ELLIPSE,*LINE,ARC"))))
  (xyp-Break ss)
  (CMDLA1)
)

xialijun · 发表于 2006-9-9 13:55:20

;****************在某点处打断线条及多义线

(defun C:XBR(/ xa1 xb1 list1 pt1 st1)
  (princ "\n")
  (princ "选择要打断的线条")
  (setq list1 (ssget))
  (setq pt1 (getpoint "\n指定打断点"))
  (setq xa1 0)
  (setq xb1 (sslength list1))
  (while (< xa1 xb1)
(setq st1 (ssname list1 xa1))
(command "break" st1 pt1 pt1)
(setq xa1 (1+ xa1))
  )
  (princ)
)

dlsgj · 发表于 2006-9-11 09:16:25

哦
先谢谢两位的热心
不过我要得是能自动判断各条线的交点，并打断他们，这个程序好像不行

a3b4 · 发表于 2006-9-12 21:27:53

想选中一个图形的一部分，就要开口窗部分可以吗？

fsxm · 发表于 2006-9-12 21:31:57

自己找找吧~!
eachy老大还写过详情的程序思路的!

dwg001 · 发表于 2006-9-12 22:07:46

功能：线交点打断，支持(line,*pline,rectang,arc--不支持MLINE。
用途：有些结构的计算程序需要将线交点打断。
考验：本人用了多年，程序不错！推荐给需要的人。

mailin2004 · 发表于 2006-9-14 13:21:09

不好用

dlsgj · 发表于 2006-9-14 15:20:33

奇怪，为什么下载不了呢？
地址是这个吧：
ftp://p4.xdcad.net/552556_brr(w_%BD%BB%B5%E3%B4%F2%B6%CF).rar

dwg001 · 发表于 2006-9-14 16:08:13

dlsgj: 如需要，给个邮箱发个給你。

szroadman · 发表于 2006-9-14 16:25:13

楼主想导入TransCAD中用吧？是的话不用这么麻烦，变通可以解决啊

dwg001 · 发表于 2006-9-14 16:56:46

发个图片。可以看出线条打断前后夹持点的变化，速度蛮快的。

54256 · 发表于 2006-9-22 20:10:13

试试看

ooohen · 发表于 2008-12-8 10:10:24

不好用

qiuxiang129 · 发表于 2008-12-13 02:39:48

试试

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

[求助] [求助]：那位有批量交点断线的lisp程序啊？

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

相关帖子