一个点击图块名引出图块的lisp， 请好心人改造一下

bai2000

现在是：点击图纸中已有图块的图块文字，自动牵引出文字和图块的插入点的连线要求：先在图块名加个外框，后点击两个连线的转折点的位置，第三点直接插入图中已有的该图块名的对应的图块（外框线和图块插入点三折连线）

程序：
(defun c:ZYK(/ txt_list txt_pt blk_name blk_pt )
(setq txt_list (entget(car(nentsel "\n【江普咨询】提示:请选择图块名相同的文字")))  txt_pt (cdr(assoc 10 txt_list  ))  blk_name (cdr(assoc 1 txt_list )))
(if (tblsearch "block" blk_name)(progn(while (setq blk_pt(getpoint "\n指定插入点"))(entmake (list '(0 . "INSERT") (cons 2 blk_name) (cons 10 blk_pt)))
(command "layer" "m" "图块连线" "c" "4" "" "lw" "0.13" "" "l" "DASHED" "" "")
(entmake (list '(0 . "line") (cons 10 txt_pt) (cons 11  blk_pt)))))(alert "系统中不存在该图块"))
(command "_chprop"  (entlast) "" "la" "图块连线" "" )(princ))

start4444

默认插入d盘根目录的图块，或者建个文件夹把你的全部图块丢进去程序硬插进来就方便了

bai2000

缺少第三个定位点啊