指尖 发表于 2025-3-14 14:09:42

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


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

(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 发表于 2025-3-16 09:29:00

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

moranyuyan 发表于 2025-3-14 19:51:25

谢谢分享

指尖 发表于 2025-3-14 20:32:32

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

欢迎交流学习{:1_1:}

kzd2004 发表于 2025-3-16 08:25:31

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

指尖 发表于 2025-3-17 14:01:47

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

谢谢，关注和建议。:handshake

指尖 发表于 2025-3-17 14:03:27

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

嗯，是一样的，主要是不想输入板尺寸数据，想偷懒:D-
感谢关注，感谢评论:handshake
页: [1]
查看完整版本: 根据指定尺寸和数量绘制矩形板材【工作心得收获】