根据指定尺寸和数量绘制矩形板材【工作心得收获】

指尖

为方便工作需要，写了此小程序，欢迎大家前来讨论学习，共同进步，新手期间，不足之处望大家指正。

(defun c:dm()
  (setq p1(getpoint "\n请在屏幕中获取基点："))
  (setq n (getint "\n输入需要排版数："))
  (setq p2 (list (+ (car p1) 2500) (+ (cadr p1) 1250)))
  (command "rectang" p1 p2 "")
  (setq ent1(entsel"\n选择一个版面："))
  (setq k 1)
  (repeat (1- n)
     (command "COPY"  ent1 ""  "M"  p1  (list (+ (car p1) (* 3300 k)) (cadr p1)) "")
     (setq k (1+ k))
    )
  (princ)
  )
  

biya

command画图，在合适的位置一定要关掉osmode，在最后要恢复原型，(setq osmode (getvar "osmode"))   (setvar "osmode" 0)************(setvar "osmode" osmode )    ,最好也加上错误函数

moranyuyan

谢谢分享

指尖

moranyuyan 发表于 2025-3-14 19:51
谢谢分享

欢迎交流学习

kzd2004

用复制里面的阵列效果也一样。

指尖

biya 发表于 2025-3-16 09:29
command画图，在合适的位置一定要关掉osmode，在最后要恢复原型，(setq osmode (getvar "osmode"))   (setv ...

谢谢，关注和建议。

指尖

kzd2004 发表于 2025-3-16 08:25
用复制里面的阵列效果也一样。

嗯，是一样的，主要是不想输入板尺寸数据，想偷懒
感谢关注，感谢评论