lisp批量自身旋转,求大神修改

lee50310 · 发表于 2021-7-26 12:20:45

本帖最后由 lee50310 于 2021-7-27 06:16 编辑

之前四樓程式
這一行 : (setq sel (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss))))
也可改為: (setq sel (cdr(reverse(mapcar 'cadr (ssnamex ss)))))
一樣可以

magicheno · 发表于 2021-9-6 20:06:27

学习了~~~~~

尘缘一生 · 发表于 2022-3-11 21:15:37

本帖最后由尘缘一生于 2022-3-11 21:41 编辑

kkq0305 发表于 2021-7-17 10:44
(defun C:ZR ()
(vl-load-com)
(setq ss (ssget))

包容盒方式，担心是不是所有实体合适。

xyp1964 · 发表于 2022-3-12 09:01:07

(defun c:zr ()
  (setvar "cmdecho" 0)
  (princ "\n自身旋转")
  (setq ss (ssget))
  (repeat (setq i (sslength ss))
(setq i (1- i)
   s1(ssname ss i)
   a (vlax-ename->vla-object s1)
)
(vla-getboundingbox a 'p1 'p9)
(mapcar 'set
      '(p1 p9)
      (mapcar 'vlax-safearray->list (list p1 p9))
)
(setq pt (mapcar '(lambda (x y) (/ (+ x y) 2.0)) p1 p9))
(command "_.rotate" s1 "" pt 90.0)
  )
  (princ)
)

paulpipi · 发表于 2022-3-15 19:07:36

真的挺好用，谢谢分享

liwen888888 · 发表于 2022-3-15 19:40:21

好用的不得了

hehaidizhi · 发表于 2023-3-7 17:18:38

很好很好，正需要，找半天了

白色微風1991 · 发表于 2023-3-8 13:16:21

很好很好真的挺好用，謝謝分享

sjl_fyl · 发表于 2024-9-29 16:54:01

谢谢

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

[提问] lisp批量自身旋转,求大神修改