无耐程序不往下执行了，坐等高手解惑
;;;;;;建块;;;;;(defun c:k()
(setq str (getstring "\n请输入块名:"))
(setq juli (getint "\n请输入块宽度:"))
(setq juli (cons 500 juli))
(command "block" str ) :lol;程序不往下走了块消息了，cons加入宽度信息实现不了了
(setq ent_data (entget (entlast)))
(cons juli ent_data)
(prin1)
)
你command函数没用对，光有个块名可不行，而且如果是建一个无名块还有一点点价值，你这个明显没用，不如直接用b
页:
[1]