关于建块的问题？

zilong136

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)
• )
• 你应该想表达的是这个意思，亲测可以用，只不过不出现建块的对话框而已。