[LISP程序]：单点打断

lgmandy · 发表于 2005-7-4 12:22:30

我正在找这个DD
谢谢楼主分享

rjljh · 发表于 2005-8-2 15:00:20

单点打断程序功能已经可以实现，但能不能独立开发，毕竟装xd不是人人都喜欢的
(defun c:Curve_intbrk ()
  (prompt "\n请选取交点打断的曲线<全选>:")
  (if (not (setq ss (ssget '((0 . "*line,arc,circle,ellipse")))))
(setq ss (ssget "x" '((0 . "*line,arc,circle,ellipse"))))
  )
  (setq num (xdrx_curve_intersectbreak ss 0.01 nil))
  (prompt (strcat "\n处理了 " (itoa (sslength ss)) " 个曲线实体，发现交点 "
   (itoa num) " 个！"
   )
  )
  (princ)
)
希望看到新的。

y562288 · 发表于 2005-8-3 08:51:10

感觉怎么用处不大阿，用br不久成了阿，干嘛把问题复杂化阿？

suave · 发表于 2005-8-4 08:26:40

这应该是个好东东，现下

myx963 · 发表于 2005-8-5 08:20:56

我是新手，谢谢楼主的奉献啊，有好东西大家一块共享嘛！！！！

wym01lu · 发表于 2005-8-12 19:11:22

我也来也

vang8866 · 发表于 2005-8-14 14:04:53

如果不配合XDRX_API B11208以上版本使用能不能用啊 XDSoft

PFD8667 · 发表于 2005-9-30 16:23:12

几位高手的程序我都试了，在2006都不行啊？是不是一定要安装晓东工具箱吧？

taner · 发表于 2005-12-27 20:50:42

最初由 ak50 发布
[B]不错 [/B]

只需要将XD的API函数装上就行!

dhxqqq · 发表于 2006-1-12 11:23:43

1楼和2楼的我怎么都不能用呀？

yxljx · 发表于 2006-1-16 15:49:41

如果仅仅单点打断，不用如此复杂

userzhluserzhl · 发表于 2006-1-17 00:23:30

24楼，请问怎么样把XD的API函数装上？

dazhu-119 · 发表于 2006-1-26 02:14:57

没这么复杂吧。
(defun c:er()
(command "break" pause "f" pause "@")
)
挺好用的

nyfzh · 发表于 2009-1-8 09:53:08

高人啊！

xdcad9819 · 发表于 2020-1-17 18:08:50

命令: BBPT
切割点: <对象捕捉开>
错误: 找不到像素

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

[LISP程序]：单点打断

浏览过的版块