为什么我可以#039；t选择An

Jef! · 发表于 2022-7-5 18:20:46

因为块的名称不是以“*”开头的。。他们的名字是“lucas”和“New block-U2”。

尽管如此，我很惊讶我不能在vlide或tblsearch中检查这两个区块
因为审计“修复了它们”，所以它们似乎没有正确制作

造成这两个方块的代码是。。。

SLW210 · 发表于 2022-7-5 18:24:02

匿名块的名称开头将有一个*号。

ReMark · 发表于 2022-7-5 18:25:03

计算机辅助设计的怪癖每次都会从背后咬你。“我们遇到了敌人，他们就是我们。”

Jef! · 发表于 2022-7-5 18:30:39

非常正确。。我猜想它们是用匿名dxfcode标志创建的，但名称无效。。。因为它们没有列在“插入”对话框中，并且试图编辑它们时出现了该错误

DuanJinHui · 发表于 2022-7-5 18:32:07

@杰夫@SLW210
谢谢你们俩。谢谢你告诉我原因。

Tharwat · 发表于 2022-7-5 18:34:43

很高兴你现在知道了。

DuanJinHui · 发表于 2022-7-5 18:40:24

我使用这段代码将匿名块更改为普通块。

copy

;;Anonymous block change to normal block
(if (setq ss (ssget "_+.:S:E:L" '((0 . "INSERT") (2 . "`**"))))
(progn
        (setq pt (cdr(assoc 10(entget(ssname ss 0)))))
        (command "_.explode"  ss )
        (setq ss2 (ssget "p"))
        (emkblk ss2 pt n )
        (princ "\n>>>Complete!")
)
(alert "\nNot Anonymous block， please try again!...")
)
(defun emkblk (ss pt name / i)
(entmake (list '(0 . "block") (cons 2 name) '(70 . 0) (cons 10 pt)))
(repeat (setq i (sslength ss))    (entmake (cdr (entget (ssname ss (setq i (1- i))))))  )
(entmake '((0 . "ENDBLK")))
(command "_.erase" ss "")
(entmake (list '(0 . "INSERT") (cons 2 name) (cons 10 pt)))
)