tom9054 发表于 2022-7-6 11:49:33

我想要一支箭。

好的，第一个帖子和我来到LISP？
 
我们/我每周向经理或任何感兴趣的人做演示，我希望用指针/箭头代替十字线/光圈。
 
认为一些人更容易跟随反弹的球？
 
我相信这就是为什么激光指针在哪里发明的，然而，有一种东西叫做本质震颤。在这里没有得到所有的医疗服务，是一个患有严重震颤的人发明了激光表演！
 
也许，我们只需要新的经理。
 
提前感谢
汤姆

David Bethel 发表于 2022-7-6 12:42:16

你试过把十字线的大小设为1，颜色设为红色吗？这比定制的程序简单得多。此外，ACAD中的内置选项可能因版本而异-大卫

Lee Mac 发表于 2022-7-6 13:00:17

以下是David建议的切换：
 

(defun c:test (/ r g b Disp)
(vl-load-com)
;; Cross Hair Toggle~Lee Mac~24.01.10

(setq r 255 g 0 b 0)

(setq *acad (cond (*acad) ((vlax-get-acad-object)))
       Disp(vla-get-Display (vla-get-Preferences *acad)))

(or OldSettings
   (setq OldSettings
   (cons (getvar 'CURSORSIZE)
         (vlax-variant-value
             (vlax-variant-change-type
               (vla-get-ModelCrossHairColor Disp) vlax-vbLong)))))

(cond (*flag*(setvar 'CURSORSIZE (car OldSettings))
                (vla-put-ModelCrossHairColor Disp (cdr OldSettings))
                (setq *flag* nil))

       ((setq *flag* t)

            (setvar 'CURSORSIZE 3)
            (vla-put-ModelCrossHairColor Disp (+ r (* 255 g) (* 65536 b)))))

(princ))

页: [1]
查看完整版本: 我想要一支箭。