任意调整十字光标角度！！！（好用）

zhenwangxue

任意调整光标角度，很好用！！！！

(defun c:gbjd()

   (setq  en (entsel "\n选取线，文字或图块<[Enter]输入角度>:"))

 (if (/= en nil)

   (progn

             (setq endata (entget (car en)))

             (setq entyp (cdr (assoc 0 endata)))

            (cond ((= entyp "LINE")   (line-ang))
                      ((= entyp "TEXT")   (text-ang))

                      ((= entyp "MTEXT")   (text-ang))

                      ((= entyp "INSERT")  (text-ang))

                       (t                               (2p-ang))

            )

       )

        (2p-ang)

  )

   (setvar "snapang" ang)

)

(defun line-ang()

         (setq pt10 (cdr (assoc 10 endata)))

         (setq pt11 (cdr (assoc 11 endata)))

         (setq ang (angle pt10 pt11))

)

(defun text-ang()

        (setq ang (cdr (assoc 50 endata)))

)

(defun 2p-ang()

       (setq ang (getangle "\n输入角度值："))

)

(princ "\n-------------c:gbjd-----------")

(prin1)

taoyi0727

alexmai 发表于 2019-5-19 19:12
;;;UCS
(defun c:y(/ ent)
  (command "ucs" "")

不用那么复杂  这就行
;调整光标角度
(defun c:tt (/ 2p-ang ang en endata entyp line-ang text-ang)
        (defun line-ang (/ ang pt10 pt11)
                (setq pt10 (cdr (assoc 10 endata)))
                (setq pt11 (cdr (assoc 11 endata)))
                (setq ang (angle pt10 pt11))
        )
        (defun text-ang (/ ang)
                (setq ang (cdr (assoc 50 endata)))
        )
        (defun 2p-ang (/ ang)
                (setq ang (getangle "\n输入角度值<0>："))
        )
        (setq en (nentselp "\n选取线文字或图块<输入角度>:"))
        (if (/= en nil)
                (progn
                        (setq endata (entget (car en)))
                        (setq entyp (cdr (assoc 0 endata)))
                        (cond
                                ((= entyp "LINE") (setq ang (line-ang)))
                                ((= entyp "TEXT") (setq ang (text-ang)))
                                ((= entyp "MTEXT") (setq ang (text-ang)))
                                (t (setq ang (2p-ang)))
                        )
                )
                (setq ang (2p-ang))
  )
        (if ang
                (setvar "snapang" ang)
                (setvar "snapang" 0)
        )
        (princ)
)

alexmai

taoyi0727 发表于 2019-5-19 22:01
不用那么复杂  这就行
;调整光标角度
(defun c:tt (/ 2p-ang ang en endata entyp line-ang text-ang)
...

使用我的方法更便捷

输入角度更本就是鸡肋，很少会输入的，两点定角度还是可以的
你测试过，pline线？

最好能对块内的“线”点选，因为块的“角度”是不可靠的

alexmai

;;;UCS
(defun c:y(/ ent)
  (command "ucs" "")
  (command "ucs" "_ob")
  (princ)
)复原就不需要选择，1个命令就搞定

遇到要选块内的线，用这个命令把线copy出来，再处理
(defun c:nc(/ ent)
  (C:ncopy)
(princ)
)

zhenwangxue

业余爱好，如有需要一起切磋的常联系！zhenwangxue@163.com

szxgsh

可以加入另外一种模式吗：就是点击2个点，取得角度再执行。

自贡黄明儒

还不错哈!!!

yoyoho

感谢zhenwangxue 分享程序
不错喔!

恕放之生命

谢谢分享。

sicky111

魔法书中的一个例子。

BUBUBA918

好像不支持多义性PLINE，改进下更好

qq277274448

谢谢分享