无耐程序不往下执行了，坐等高手解惑

tygab

;;;;;;建块;;;;;
(defun c:k()
(setq str (getstring "\n请输入块名:"))
(setq juli (getint "\n请输入块宽度:"))
(setq juli (cons 500 juli))
(command "block" str )                          ;程序不往下走了块消息了，cons加入宽度信息实现不了了
(setq ent_data (entget (entlast)))
(cons juli ent_data)   
(prin1)  
)

buyaozhou

你command函数没用对，光有个块名可不行，而且如果是建一个无名块还有一点点价值，你这个明显没用，不如直接用b