[LISP程序]：单点打断程序

li_seashore · 发表于 2004-9-17 12:56:47

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

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

×

===============================================================================
;    钢结构工具箱 v8.1                   作者：李海斌  日期：2004-08-01
; ===============================================================================
;***
;********************************************************************************
(defun c:bb (/ olderr po1)
  (setq olderr *error* *error* user_err)
  (setq ;ent (entget (car (entsel)))
   po1 (getpoint "\n选择要打断的点:")
  )
  (while (/= "" (princ "\n选择要打断的目标:"))
      (command "break" pause "f" po1 "@")
      (setq n1 (nth 0 po1)
            n2 (nth 1 po1)
            n3 (nth 2 po1)
      )
  )
  (if olderr (setq *error* olderr))
  (princ)
);defun

sandylin2009 · 发表于 2006-8-23 00:49:05

好象这个CAD里本身就有的功能吧

kfpl · 发表于 2006-8-23 19:57:28

如何才能变成Lisp和VLX文件？

llkill · 发表于 2007-12-5 21:44:46

BR 第一点　　@ OK

chenzl1234 · 发表于 2007-12-20 04:27:29

CAD里面自带了这个操作的～～

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

[LISP程序]：单点打断程序

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

相关帖子