宏帮助

Jrbuds · 发表于 2022-7-5 23:45:00

您好，我正在尝试创建一个宏（或lisp），并努力找到如何做到这一点。

基本上，我想要实现的是：

单击自定义按钮，
单击第一个点（p1）
单击第二个点（p2）
在p1处插入块，并将比例设置为p1和p2之间的相等距离
将轴承设置为p1和p2之间的轴承
然后结束。

该过程需要点击3次，包括点击自定义按钮。

这基本上是为了加快插入门的速度。

我在想，当你点击p1和p2，然后用这条线抓取线的起点、终点和方向角时，可以画一条线。

或者使用变量。

任何帮助，或指向正确的方向，都将不胜感激。我不希望任何人为我做所有的工作，只要一个提示就好了。

Tharwat · 发表于 2022-7-6 00:14:07

欢迎来到CadTutor。

像这样的事情？

copy


(defun c:Test (/ bk 1p 2p)
 (setq bk "[color=red]BlockName[/color]") ;; Specify the name of block here .
 (cond
   ((not (tblsearch "BLOCK" bk))
    (alert "\n The Block Name is not found !!")
   )
   ((and (setq 1p (getpoint "\n Specify First point :"))
         (setq 2p (getpoint "\n Next point :" 1p))
    )
    (command
      "_.-insert"
      bk
      "_none"
      1p
      (distance 1p 2p)
      (distance 1p 2p)
      (polar 1p
             (angle 1p
                    (mapcar (function (lambda (q p) (* (+ p q) 0.5)))
                            1p
                            2p
                    )
             )
             1.0
      )
    )
   )
 )
 (princ)
)