我想要一支箭。

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建议的切换：

copy


(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))

[编程交流] 我想要一支箭。

发表回复

精选推荐