社区 › Auto Lisp › 自动测量命令

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 "BlockName" ; Block Name
       d 1.0; Distance
)
(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)
)

DonnyB 发表于 2022-7-5 23:52:06

非常感谢您的帮助，但是当我输入命令时，我在下面收到一条错误消息。
 
 
*无效的选择*
需要单个对象。

Tharwat 发表于 2022-7-6 00:01:02

 
您是否根据蓝色高亮显示的块名和块之间的所需距离更改了例程中的块名？
 
然后，您应该只选择其中一个对象“直线、多段线、圆、椭圆、圆弧、样条曲线”。
 
再试一次，让我知道。

DonnyB 发表于 2022-7-6 00:18:34

再次感谢您的帮助-我将命令更改为已在使用的同一快捷键。一旦我更改了命令名，它就工作得很好。再次感谢，这将节省我很多时间。

Tharwat 发表于 2022-7-6 00:33:21

 
好东西，不客气。

查看完整版本: 自动测量命令