断点问题

Eloquintet · 发表于 2004-9-29 16:03:29

只是出于好奇，当我使用中断点命令时，它工作正常，但是如果我按Enter键再次执行此操作，它会像这样搞砸行：
|
行1| 间隙线 2
______| _________
|
|
原谅粗画

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

Eloquintet · 发表于 2004-9-29 16:04:53

啊，不是我的屏幕显示的基本上它不会把它弄干净，它在一边放了一个缺口

Dommy2Hotty · 发表于 2004-9-29 16:08:36

这不是你要找的，但这是我做的菜单宏...如果你愿意，我可以把它改成LISP，这样你就可以按“回车”重新启动它。

copy


[Break @ Selected Point]^C^C^C^P(setq ent(entsel "Select Object to Break...")) \(setq pt(getpoint "Select Break Point...")) \break;!ent;f;!pt;!pt;^P

CADaver · 发表于 2004-9-29 16:41:10

我认为这就是宏的工作原理——你不能在不再次按下按钮的情况下重新启动“点中断”<多米，不过口齿不清会很酷。

whdjr · 发表于 2004-9-29 16:48:59

宏将发出“中断”命令并为您填充第二个点。当您按下enter键时，它只会重复BREAK命令。您需要一个lisp函数来重复输入键。

Dommy2Hotty · 发表于 2004-9-29 16:52:52

这是我写的一个lisp来做到这一点：

copy

(defun c:bk (/ ent)
  (command "break"
           (setq ent (entsel "\nPick point to break Object:  "))
           (cadr ent)
  )
  (princ)
)

试试吧，你可能会喜欢它。

Eloquintet · 发表于 2004-9-29 16:56:47

下载 BAP。LSP

copy

;;***********************************************
;;                  BAP.lsp                     *
;;           Break At selected Point            *
;;          Created by Dominic Cesare           *
;;             Dommy2Hotty@aol.com              *
;;                 09.29.2004                   *
;;***********************************************
(prompt "\nType BAP to run.....")
;;**********************
;;Start of Routine     *
;;**********************
(defun c:BAP (/ oldecho ent pt)
  ;error trapping
  (setq temperr *error*)
  (setq *error* trap1)
  ;current variables
  (setq oldecho (getvar "cmdecho"))
  ;turning off echo
  (setvar "cmdecho" 0)
  ;setting undo beginning
  (command "undo" "begin")
  ;user supplied information
  (setq ent (entsel "Select Object to Break....."))
  (setq pt (getpoint "Select Break Point....."))
  ;break command using user information
  (command "break" ent "f" pt pt)
  ;error trapping
  (setq *error* temperr)
  ;setting undo end
  (command "undo" "end")
  
  ;resetting echo
  (setvar "cmdecho" oldecho)
  (princ)
  )
;defining error trapping
(defun trap1 (errmsg)
  (command "u")
  (setvar "cmdecho" oldecho)
  (setq *error* temperr)
  (prompt "Resetting System Variables...")
  (princ)
  )
;;**********************
;;End of Routine       *
;;**********************