线头尾两端各插入块lisp_批量交点插入块 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - 交点,交点插块 - Powered by Discuz!...

本帖最后由 荒野孤行 于 2015-6-14 10:29 编辑

程序源码是根据论坛的源码改的，论坛的写的太散乱了，以下源码直接下载就可以用。已重新根据坛友的代码进行了修改。

;;;*****交点插块 程序开始*****

(defun c:t1 ()

(setvar "cmdecho" 0)

(vl-load-com)

(setvar "osmode" 15359)

(princ

"\n★功能：在批量图元的相交点处插入块。\n提示：在执行此功能前请确定图块的基点是否在其中心位置，否则会出现插入点偏位现象。\n"

)

(princ "\n请选择多段线、样条曲线、直线、圆、圆弧或椭圆：")

(command "undo" "be")

(if (not (setq ss (ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE")))))

(progn (princ "\n提示：未选取图元，程序退出。\n") (exit))

)

(setq acad (vlax-get-acad-object))

(setq acaddocument (vla-get-activedocument acad))

(setq mspace (vla-get-modelspace acaddocument))

(while

(progn (setq blockent     (entsel "\n请选择要插入交点的图块：")

blockentname (car blockent