请教高手CAD 的LSP编程,-----单行阵列
就是写一个LSP程序,,我选中图形,,比如一个窗,然后上去3000,然后是层数..就出来了...听懂了没?就是我要一个行间距是3000,行数不限,的单行阵列程序...顺便...
就 是写一个LSP程序,,我选 中图形,,比如一个窗,然后上去3000,然后是层数..就出来了...
听懂了没?就是我要一个行间距是3000,行数不限, 的单行阵列程序...
顺便问一下哪里有LSP教程,简单些的,我只会一点点....... 展开
听懂了没?就是我要一个行间距是3000,行数不限, 的单行阵列程序...
顺便问一下哪里有LSP教程,简单些的,我只会一点点....... 展开
3个回答
展开全部
(defun c:aar ( )
(princ "\n选择要阵列的对象")
(setq ss (ssget))
(setq rs (getreal "\n请输入行矩: <3000.0>"))
(if (null rs)
(setq rs 3000)
)
(setq rl (getint "\n请输入行数: <10>"))
(if (null rl)
(setq rl 10)
)
(command "_.Array" ss "" "r" rl 1 rs 1)
(princ)
)
(princ "\n选择要阵列的对象")
(setq ss (ssget))
(setq rs (getreal "\n请输入行矩: <3000.0>"))
(if (null rs)
(setq rs 3000)
)
(setq rl (getint "\n请输入行数: <10>"))
(if (null rl)
(setq rl 10)
)
(command "_.Array" ss "" "r" rl 1 rs 1)
(princ)
)
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
