zilong136 发表于 2024-3-19 01:01:37

本帖最后由 zilong136 于 2024-3-19 01:07 编辑

jun470 发表于 2024-3-18 22:01
补全代码了，你试试

[*](defun c:b ( / kk PP)
[*](prompt "\n b:建块")
[*](setq kk (getstring "\n 起块名:"))
[*](setq PP (getpoint "\n 插入基点:"))
[*](vl-cmdf "BLOCK" KK PP (ssget) "" )
[*](entmake (list '(0 . "INSERT") (cons 2 KK) (cons 10 PP)))
[*](princ)
[*])
[*]你应该想表达的是这个意思，亲测可以用，只不过不出现建块的对话框而已。
页: 1 [2]
查看完整版本: 关于建块的问题？