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

Lisp程序

嗨，我是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

试试这个：
 
(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

 
但如果你自己实验变量，可能会对你更有好处。

Raggi_Thor 发表于 2022-7-6 18:00:53

我同意，但你在哪里

Lee Mac 发表于 2022-7-6 18:10:20

 
 
干杯Raggi，
 
我必须说，您已经详细说明了如何创建代码，但由于他仍然顽固地要求发布代码，我想我应该进行实验，因为我也从未使用过extmin和extmax变量——结果非常有用。
页: [1]
查看完整版本: Lisp程序