pBe先生,谢谢您的调查。
我在LISP中指出了块名
- (defun c:notdb (/ adoc nb ent entV)[b]klmgagidgiASDFJNSAASDFJKASNDLFVASD LFDSAHFSDFVANDGNAQ-!_MyBlock76fafkljgb asrfgquyrwegf wqeiugf[/b] ;<-- Name of the deepest block
-
- (setq aDoc (vla-get-ActiveDocument (vlax-get-acad-object)))
- (setq nb (car (nentselp)))
- (setq ent (entget nb))
- (setq entV (vla-ObjectIdToObject aDoc
- (vla-get-OwnerId
- (vlax-ename->vla-object nb)
- )
- )
- )
- ;;; To go directly to editing the block ;;;
- (command "_bedit" (Vla-get-name entV))
- (princ)
- )
然而,当运行lisp时,它要求选择一个对象&当单击时,它直接将我带到我单击的块中。
参考之前的示例图纸,我需要的是:
我需要在我点击的块外一个块级别,在这个例子中,它是矩形块。
因此基于绘图示例
此外,我需要进入的块级别,就在我单击的块之外,有不同的块名称。
因此,最好是我单击的LISP,它将进入我单击的块之外的块级别。
谢谢 |