求定数等分复制图形

sj800918 · 发表于 2017-12-16 11:28:49

选择图形，指定第一点、第二点、输入间隔数量（默认为2），等距复制图形，指定两点也可以是两个图形内部空间的角点。谢谢！

xiang19751218 · 发表于 2017-12-16 18:26:48

(defun c:tes  ( / en xfx pt1 pt2 zljl sl)
(setvar 'cmdecho 0)
(setq en (car(entsel "\n选择对象:")))
(setq xfx (car(apply 'mapcar(cons '- (bwh en)))))
(setq pt1 (getpoint "\n指定第一点:"))
(setq pt2 (getpoint "\n指定第二点:"))
(setq zljl (- (distance pt1 pt2) (abs xfx) ) )
(setq sl (getint "输入间隔数<2>:") )
(if (not sl) (setq sl 2))
(command "-array" en "" "r" 1 sl (/ zljl (float sl))  )
(setvar 'cmdecho 1)
(princ)
)

(defun bwh (en / p1 p2)
  (vla-getboundingbox (vlax-ename->vla-object en) 'p1 'p2)
  (setq p1 (vlax-safearray->list p1)
      p2 (vlax-safearray->list p2)
  )
  (list p1 p2)
)

sj800918 · 发表于 2017-12-18 08:55:38

xiang19751218 发表于 2017-12-16 18:26
(defun c:tes ( / en xfx pt1 pt2 zljl sl)
(setvar 'cmdecho 0)
(setq en (car(entsel "\n选择对象:")) ...

非常好用，谢谢，能否麻烦给调个竖向可以用的呢！

xiang19751218 · 发表于 2017-12-18 10:50:00

yoyoho · 发表于 2018-2-27 15:29:33

谢谢 xiang19751218 分享学习!!!!

水仙的错 · 发表于 2019-9-6 17:58:21

学习下，谢谢分享！

ccc230 · 发表于 2021-7-30 20:37:38

能不能改一下任意角度

ccc230 · 发表于 2021-7-30 20:38:21

xiang19751218 发表于 2017-12-18 10:50

能不能改一下任意角度

ZZXXQQ · 发表于 2021-8-12 13:56:57

本帖最后由 ZZXXQQ 于 2021-8-17 00:04 编辑

ccc230 发表于 2021-7-30 20:37
能不能改一下任意角度

;两点间定数阵列
(defun c:cn ( / en xfx pt1 pt2 zljl sl)
(setvar "CMDECHO" 0)
(princ "\n选择对象: ")
(setq ss (ssget))
(setq pt1 (getpoint "\n指定第一点:"))
(setq pt2 (getpoint pt1 "\n指定第二点:"))
(setq ang (angle pt1 pt2))
(setq sl (1- (or (getint "输入个数<2>:") 2)))
(setq zljl (/ (distance pt1 pt2) s1))
(setq i zljl)
(repeat sl
(command "copy" ss "" pt1 (polar pt1 ang i))
(setq i (+ i zljl))
)
(setvar "CMDECHO" 1)
(princ)
)

ccc230 · 发表于 2021-8-14 17:23:46

本帖最后由 ccc230 于 2021-8-15 19:19 编辑

ZZXXQQ 发表于 2021-8-12 13:56
;两点间定数阵列
(defun c:cn ( / en xfx pt1 pt2 zljl sl)
(setvar "CMDECHO" 0)

改了以后出现错误
指定第一点:; 错误: 参数类型错误: point: nil

账号		自动登录	找回密码
密码			注册

求定数等分复制图形

本帖子中包含更多资源

点评