输入数字或选择角度线改变光标角度

zhongys

(DEFUN C:sa();/ old_os en1 bd ang ps1 pe1)
    (setvar "cmdecho" 0)
    (setq old_os (getvar "osmode"))
    (setvar "osmode" 0)
    ;(setq en1 NIL bd 0)
    (setq ang (getreal "\n请输入角度<0>/回车选择角度线:"))
     (if (= ang nil)
      (progn
      (setq en1 (CAR(entsel "\n请选择线: ")))
      (while (= en1 nil)   (setq en1 (CAR(entsel "\n请选择线: "))))
    (if (/= en1 nil)
        (progn
         (setq bd (cdr (assoc 0 (entget en1))))
           (if (= bd "LINE")
                (progn
                  (setq ps1 (vlax-curve-getstartpoint en1))
                  (setq pe1 (vlax-curve-getendpoint en1))
                  (setq ang (read (ANGTOS (ANGLE ps1 pe1))))
                );end progn
           );end if
         );end progn
   );end if
  
    ))
    (command "SNAPANG" ANG)
    (setvar "osmode" old_os)
    (princ)
)

小程式，希望如对大家有用处，有更好的方式，大家也可以改善

eversky

CAD理不是直接用SNAOANG 就行了吗？？？？

zhongys

snapang这个命令是可以，我这个程式本意是选择角度线的

yhkk0317

;由两点定角度
(DEFUN C:SAd (/ pt1 pt2)
  (setq os (getvar "osmode"))
  (setvar "OSMODE" 512)
   (setq pt1 (getpoint "\npoint1:"))
   (setq pt2 (getpoint "\npoint2:"))
  (COMMAND "SNAPANG" pt1 pt2)
  (setvar "osmode" OS)
  (PRINC)
)
;
;角度还原为0
(defun c:saf ()
  (setvar "snapang" 0)
)