哪位大佬可以帮忙看看这个程序啊？需要怎么修改，谢谢

wline

这个程序可以让对象选择90度，但是必须要先执行命令在选择，要是先选择的话就不行，输入命令后还需要二次选择对象，哪位大佬帮我修改一下这个问题啊？感谢
(defun c:z90 (/ *error* X selection doc obj)
  (defun *error* (s) (command-s ".UCS" "P") (princ))
  (vl-load-com)
  (setq X 699)
  (command ".UCS" "W")
  (setq selection (ssget '((0 . "INSERT,TEXT"))))
  (if selection
      (progn
        (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
        (foreach obj (mapcar 'cadr (ssnamex selection))
          (setq obj (vlax-ename->vla-object obj))
          (if (= :vlax-false (vla-get-Lock (vla-item (vla-get-Layers doc) (vla-get-Layer obj))))
              (vla-put-Rotation obj X)
          )
        )
        (command ".UCS" "P")
        (princ "\\n选定的对象已旋转。")
      )
  )
  (princ)
)

飞雪神光

1. (defun c:z90 (/ *error* X selection doc obj)
   
2.   (defun *error* (s) (command-s ".UCS" "P") (princ))
   
3.   (vl-load-com)
   
4.   (setq X (* pi 0.5))
   
5.   (setq selection (ssget '((0 . "INSERT,TEXT"))))
   
6.         (if selection
   
7.                 (progn
   
8.                         (command ".UCS" "W")
   
9.                         (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
   
10.                         (foreach obj (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) (mapcar 'cadr (ssnamex selection)))
    
11.                                 (setq obj (vlax-ename->vla-object obj))
    
12.                                 (if (= :vlax-false (vla-get-Lock (vla-item (vla-get-Layers doc) (vla-get-Layer obj))))
    
13.                                         (vla-put-Rotation obj X)
    
14.                                 )
    
15.                         )
    
16.                         (command ".UCS" "P")
    
17.                         (princ "\n选定的对象已旋转。")
    
18.                 )
    
19.   )
    
20.   (princ)
    
21. )

(defun c:z90 (/ *error* X selection doc obj)<br />   (defun *error* (s) (command-s ".UCS" "P") (princ))<br />   (vl-load-com)<br />   (setq X (* pi 0.5))<br />   (setq selection (ssget '((0 . "INSERT,TEXT"))))<br />         (if selection<br />                 (progn<br />                         (command ".UCS" "W")<br />                         (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))<br />                         (foreach obj (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) (mapcar 'cadr (ssnamex selection)))<br />                                 (setq obj (vlax-ename->vla-object obj))<br />                                 (if (= :vlax-false (vla-get-Lock (vla-item (vla-get-Layers doc) (vla-get-Layer obj))))<br />                                         (vla-put-Rotation obj X)<br />                                 )<br />                         )<br />                         (command ".UCS" "P")<br />                         (princ "\n选定的对象已旋转。")<br />                 )<br />   )<br />   (princ)<br /> )

wline

飞雪神光 发表于 2024-8-22 12:57

没在电脑边上，不过感谢大神

嘒彼小星

选择对象，命令z90回车，p回车也行 就是p的用法

tomonkey239

加上这个就可以了(setvar "qaflags" 0 ) (setvar "pickfirst"1)

wline

飞雪神光 发表于 2024-8-22 12:57

感谢大佬，试过了很好用