Auto lisp与cad命令2
(defunc:s4()(setqd(getreal"\nsp直径<30.0>:"))(if(nulld)(setqd30.0))(command"insert""asm...
(defun c:s4()
(setq d (getreal "\nsp直径<30.0>:"))
(if (null d) (setq d 30.0))
(command "insert" "asm-sp" x+ "1" "1" "0" "")
我想在用insert时,自动生成SP+d.
应该怎麼做
我想在用insert时,自动生成SP+d做为块的名称. 展开
(setq d (getreal "\nsp直径<30.0>:"))
(if (null d) (setq d 30.0))
(command "insert" "asm-sp" x+ "1" "1" "0" "")
我想在用insert时,自动生成SP+d.
应该怎麼做
我想在用insert时,自动生成SP+d做为块的名称. 展开
1个回答
展开全部
（setq spd(+ sp d))
(command "insert" .....)
(command "insert" .....)
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
