自动停止重复选择

sergiu_ciuhnenc · 发表于 2022-7-5 18:35:09

几天前我尝试了一些lisp文件，在那些lisp文件出现问题后，它会自动重复\u select comand
“命令：_select

选择对象：！上一个选择“

每次昏迷后，我都开始紧张：扭曲：，怎么可能阻止它呢？？？？

rlx · 发表于 2022-7-5 18:40:11

显然，这些lispfiles中有一个对许多人来说都是回车（“”）。将它们全部禁用，然后逐个加载，以查看是哪一个产生了问题。

gr.Rlx

sergiu_ciuhnenc · 发表于 2022-7-5 18:43:40

问题是我已经删除了它们，也忘记了我用的是哪一个。。
我试着去回忆

rlx · 发表于 2022-7-5 18:44:53

也许他们中的一个对你的acad做了些什么。lsp？从这里很难看到。。。

sergiu_ciuhnenc · 发表于 2022-7-5 18:50:19

我试着去替换它，我有一个它的传统副本，替换它，同样的东西，仍然重复着“选择comand”

sergiu_ciuhnenc · 发表于 2022-7-5 18:51:21

我不是舒尔，但我可能会尝试这个Lisp程序

copy

(defun c:dimobj (/ ent Minpt Maxpt cRds)   (if (setq ent (car (entsel "\nSelect Something to Dimension...")))     (progn       (vla-getBoundingBox     (vlax-ename->vla-object ent) 'Minpt 'Maxpt)       (setq cRds (mapcar 'vlax-safearray->list (list Minpt Maxpt))) [color=magenta]     (command "_dimlinear" [/color] [color=magenta]          (polar (cadr cRds) pi (- (caadr cRds) (caar cRds))) [/color] [color=magenta]          (cadr cRds)[/color] [color=magenta]          (polar (cadr cRds) (* 0.5 pi) (* 2 (getvar "DIMTXT"))))[/color] [color=magenta]     (command "_dimlinear"[/color] [color=magenta]          (cadr cRds)[/color] [color=magenta]          (polar (cadr cRds) (* 1.5 pi) (- (cadadr cRds) (cadar cRds)))[/color] [color=magenta]          (polar (cadr cRds) 0.0 (* 2 (getvar "DIMTXT")))))[/color]     (princ "\n<!> No Object Selected <!>"))   (princ))

http://www.cadtutor.net/forum/showthread.php?27634-自动标注多段线/第8页
MSasu岗位