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

li_seashore · 发表于 2004-9-17 13:02:16

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

×

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

sandylin2009 · 发表于 2006-8-23 00:48:18

好象这个CAD里本身就有吧

zhuwy16 · 发表于 2006-10-16 19:12:52

好像是这样的阿

yudore · 发表于 2021-1-29 13:06:04

给力，效果好，br平时要选F才能选两点，这个可以直接选两点，就是必须先选择两点。但是必须先选两点，后选择线段，能不能先选线段后选两点？先选对象后执行比较符合平时操作的顺序

每人皆师 · 发表于 2021-3-21 19:56:31

效果好，br平时要选F才能选两点，这个可以直接选两点

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