旋转、移动属性lisp

Astro · 发表于 2022-7-6 12:28:54

大家好，
希望有人能帮我解决这个Lisp程序的问题。

我想再选择一个或多个区块。然后，lisp扫描块以获取列表属性，TAG1“TAG2”TAG3。
如果旋转角度不是0，它会将其旋转到0，然后给我移动属性的选项。

 
(defun c:ROTATEMOVEATTRIBUTE1 (/ tag ss sel)
 (vl-load-com)
 (setq tag '("TAG1" "TAG2" "TAG3"))  ;; <<-- Tag to be Searched
 (and (setq ss (ssget '((0 . "INSERT") (66 . 1))))
      (vlax-for Obj (setq sel (vla-get-ActiveSelectionSet
                                (vla-get-ActiveDocument (vlax-get-acad-object))))
         (foreach att (append (vlax-invoke Obj 'GetAttributes)
                              (vlax-invoke Obj 'GetConstantAttributes))
           (if (vl-position (strcase (vla-get-TagString att)) tag)
             (vla-put-Rotation attVar 0
               (cond ((eq :vlax-true (vla-put-Rotation attVar 90)) :vlax-false)
                     (:vlax-true))))))
      (vla-delete sel))
 (princ))

sombody现在可以用move命令帮助我吗。
我需要选择在旋转后移动属性。

Lee Mac · 发表于 2022-7-6 12:48:09

对不起，我的错：

[code]（定义c:ROTATEMOVEATTRIBUTE1（/tag ss sel）（vl load com）（setq tag'（“TAG1”“TAG2”“TAG3”））；；

Astro · 发表于 2022-7-6 13:13:26

Astro · 发表于 2022-7-6 13:17:43

i think i got it

copy

 (defun c:ROTATEMOVEATTRIBUTE1( / ss obj) (vl-load-com) (setq tag '("TAG1" "TAG2" "TAG3"))  (and (setq ss (ssget '((0 . "INSERT") (66 . 1))))      (vlax-for obj (setq ss (vla-get-activeselectionset    (vla-get-activedocument (vlax-get-acad-object))))   (if (= (vla-get-HasAttributes obj) :vlax-true)     (foreach attVar (vlax-invoke obj 'GetAttributes)       (if (not (= (vla-get-TagString attVar) tag))         (vla-put-Rotation attVar 0)))))     (vla-delete ss)) (princ))

can sombody help me now with the move command.
I need to have the option to move the attributes after the rotation.

Lee Mac · 发表于 2022-7-6 13:33:35

Sorry my bad:

[code](defun c:ROTATEMOVEATTRIBUTE1 (/ tag ss sel) (vl-load-com) (setq tag '("TAG1" "TAG2" "TAG3")) ;;

[编程交流] 旋转、移动属性lisp

发表回复

精选推荐