cad自动进行桩位编号

最新推荐文章于 2023-03-14 16:44:17 发布

weixin_34413802

最新推荐文章于 2023-03-14 16:44:17 发布

阅读量3.2k

点赞数 1

文章标签： python

原文链接：http://www.cnblogs.com/kmliangl/p/9510537.html

版权

本文提供了一个使用AutoLabelAttributesV1-0.lsp插件自动进行CAD桩位编号的教程，包括创建块、定义属性、加载插件等步骤。此外，还介绍了如何通过PL多线段命令和Excel来提取桩位坐标。附带了无天正软件时的CAD坐标标注插件。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

加载AutoLabelAttributesV1-0.lsp

;;-----------------=={ AutoLabel Attributes }==---------------;;
;;                                                            ;;
;;  Automatically labels a specific attribute in a set of     ;;
;;  blocks, renumbering if blocks are added, copied or        ;;
;;  erased.                                                   ;;
;;------------------------------------------------------------;;
;;  Author: Lee Mac, Copyright ?2011 - www.lee-mac.com       ;;
;;------------------------------------------------------------;;
;;  Version 1.0    -    14-09-2011                            ;;
;;------------------------------------------------------------;;

;;------------------------------------------------------------;;
;;                         Settings                           ;;
;;------------------------------------------------------------;;

;; [Note: Block names and Attribute Tags are *not* case-sensitive]

(setq *blockname* "c1"  ;; Name of Block to be Updated
      *blocktag*  "1"    ;; Attribute Tag to be Updated
)

;;------------------------------------------------------------;;
;;                      Main Program                          ;;
;;------------------------------------------------------------;;

(defun ObjectReactorCallback:RenumberBlocks ( object reactor params )
    (setq *reactor* reactor)
    (vlr-command-reactor "temp" '((:vlr-commandended . CommandReactorCallback:RenumberBlocks)))
    (vlr-remove  reactor)
    (princ)
)

;;------------------------------------------------------------;;

(defun CommandReactorCallback:RenumberBlocks ( reactor params / e f i l n s )
    (if reactor (vlr-remove reactor))
    (if
        (and
            (not *undoflag*)
            (setq s (ssget "_X" *fil