[原创]：lisp十分实用的小程序多重复制

dazhu-119 · 发表于 2006-1-26 01:56:13

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

这个小程序的copy命令很象３Dmax里的复制功能，一次复制，然后输入复制次数来完成多重复制．工作中使用起来感觉还不错．在其它软件中没有发现类似功能．拿出来贡献给大家．　因为本人水平有限，程序编的一般，利用了ＣＡＤ本身的画线命令，希望各位高手把代码改得更简炼合理一些．

(defun c:vc(/ ent po1 po2 num relative_xy)
  (setq ent (ssget))
  (command "line" pause pause "")
  (setq po1 (cdr (assoc 10 (entget (entlast)))))
  (setq po2 (cdr (assoc 11 (entget (entlast)))))
  (setq relative_xy (list (- (car po2) (car po1)) (- (cadr po2) (cadr po1))))
  (command "erase" "l" "")
  (princ "Please input num:")
  (setq num (getint))
  (repeat num
(command "copy" ent "" po1 po2)
(setq po2 (list (+ (car po2) (car relative_xy)) (+ (cadr po2) (cadr relative_xy)) 0))
  )
)

qjcpj · 发表于 2006-1-27 09:12:04

02及以上版本的copy命令本身就带多重复制功能。

xgwl · 发表于 2006-1-27 09:35:57

楼主说的是象MAX那样的多重复制! 支持楼主！如果能象本来copy命令,拖动时动态显示就更好了！

dazhu-119 · 发表于 2006-1-28 02:03:31

就是编程水平有限, 所有才想让哪位大侠改改.

angel066499 · 发表于 2018-7-24 17:09:55

感谢感谢，这个功能很实用

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

[原创]：lisp十分实用的小程序 多重复制

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

[原创]：lisp十分实用的小程序多重复制