自动测量命令

DonnyB · 发表于 2022-7-5 23:24:13

我经常使用“测量”命令以相同的距离插入相同的块，是否有lisp例程可以使用，这样我就可以在每次不指定块和距离的情况下拾取直线/多边形线？感谢您的帮助

Tharwat · 发表于 2022-7-5 23:40:20

欢迎来到CADTutor。

尝试以下例程，并根据您的愿望和距离更改“BlockName”。


(defun c:Test (/ b d s)
 (setq b[color=blue] "BlockName"[/color] ; Block Name
       d [color=blue]1.0  [color=black]; Distance [/color][/color]
 )
 (if (and (tblsearch "BLOCK" b)
          (setq s (car (entsel "\n Select Object to measure :")))
          (if (wcmatch (cdr (assoc 0 (entget s)))
                       "LINE,LWPOLYLINE,CIRCLE,ELLIPSE,ARC,SPLINE"
              )
            T
           (progn
              (princ "\n Invalid object !")
              nil
            )
          )
     )
   (command "_.measure" s "B" b "y" d)
 )
 (princ)
)