Lisp程序

prathimaholla · 发表于 2022-7-6 17:03:25

嗨，我是ajith。我需要一个lisp程序来找到autocad绘图的端点，并显示其相对于x或y平面的尺寸

Raggi_Thor · 发表于 2022-7-6 17:21:32

开始玩（getvar“extmin”）。
你可能也会猜到“extmax”。

这将为您提供图形范围的最小值和最大值的x、y、z列表。

prathimaholla · 发表于 2022-7-6 17:35:54

您能发送代码来查找图形的所有端点吗

Lee Mac · 发表于 2022-7-6 17:41:50

试试这个：

copy

(defun c:dwgdim    (/ bt tp)
   (setq bt (getvar "extmin")
     tp (getvar "extmax")
   ) ;_  end setq
   (alert (strcat "Drawing Dimensions are: \n"
          (rtos (- (car tp) (car bt)) 2 2)
          " x "
          (rtos (- (cadr tp) (cadr bt)) 2 2)
      ) ;_  end strcat
   ) ;_  end alert
   (princ)
) ;_  end defun