24小时热门版块排行榜    

查看: 2783  |  回复: 3
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

dictall

金虫 (正式写手)

[求助] 如何在cad中做渐变阵列

要做一个渐变的矩形阵列,即矩形宽度越来越大,长度不变。
本来cad在矩形阵列有个增量选项,按其官方给出的解释,这个增量就是渐变时的增量,但不知为何指定增量没有任何反应。
尝试了lisp,但一直有问题。请各位帮帮忙!

(defun c:rect0()
   (setq p1 (getpoint "point A: " p2 (getpoint "point B: " n (getint "columns: ")
        (Setq  d (getint "distance: " i (getint "increasement: " )
  (command "rectangle" p1 p2)
  (repeat (- n 1)
        Setq p1 (List (car p1) (+ d (cadr p1)))
        Setq p2 (List (car p2) (+ i (+ d (cadr p1))))
       
    (command "rectangle" p1 p2)
  
)
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

inkel

木虫 (正式写手)

【答案】应助回帖

★ ★ ★ ★ ★
感谢参与,应助指数 +1
dictall: 金币+5, ★★★很有帮助 2013-05-09 07:59:39
提点建议。版本问题,换个版本试试。实在不行就自己设置增量位移变量,指定位移位置。
很久不看lisp了,其实lisp很有意思。Autolisp用来作二次开发不是很合适的,作几个仿Acad的命令还行。
3楼2013-05-09 02:37:23
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 4 个回答

dictall

金虫 (正式写手)

贴出来的命令被强制转码了。。。太恶心了。。。
2楼2013-05-08 11:03:05
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

napolun99999

银虫 (知名作家)

楼主,看到你11年9月的一篇帖子,想问问你现在出去了吗?
4楼2013-07-25 20:44:28
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
信息提示
请填处理意见