引线材料标注

lwl450

(defun c:tm()
(setq oldcmdecho (getvar "cmdecho"))
(setq oldosmode (getvar "osmode"))
(setvar "cmdecho" 0)
(setvar "osmode" 16417)
(setq bili (getvar "dimscale"))
(setq tn (getstring "\n输入图名："))
(setq ts (getpoint "\n插入点："))
(setq tsx (car ts) tsy (cadr ts))
(setq tz (polar ts (* 0.5 pi) (* bili 3)))
(setq tzx (car tz) tzy (cadr tz))
(setq ts1 (polar ts (* 0.5 pi) (* bili 1.3)))
(setq ts1x (car ts1) ts1y (cadr ts1))
(command "-text" tz (* bili 7) 0 tn)
(setq tz1 (getpoint "\n插入比例位置"))
(setq tz1x (car tz1) tz1y (cadr tz1))
(setq tz2 (list tz1x tzy ))
(setq tn2 (strcat "1:" (itoa (fix bili))))
(command "-text" tz2 (* bili 3) 0 tn2)
(if (< bili 100) (setq te (list (+ tz1x (* bili 6)) tsy)))
(if (>= bili 100) (setq te (list (+ tz1x (* bili 7))tsy)))
(if (< bili 100) (setq te1 (list (+ tz1x (* bili 6)) ts1y)))
(if (>= bili 100) (setq te1 (list (+ tz1x (* bili 7)) ts1y)))
(command "line" ts te "")
(setq l_ast (entlast))
(command "change" l_ast "" "p" "c" 3 "" )
(command "pline" ts1 "w" (* bili 0.8) (* bili 0.8) te1 "")
(setq l_ast (entlast))
(command "change" l_ast "" "p" "c" 3 "" )
(setvar "cmdecho" oldcmdecho)
(setvar "osmode" oldosmode)
(setvar "PLINEWID" 0)
(setvar "AUTOSNAP" 61)
(print)
)

有无大神求教如何实现动图那个的效果，自己编的这些还是达不到那效果     
只求引线出来矩形材料框  ，文字可以自己有得选择

Lisphk

动图里面内容太多了，是哪个效果呢

liunian0524

=感谢楼主分享

kqqt6236

看不懂楼主想要什么。

igood

谢谢分享，学习一下

lwl450

Lisphk 发表于 2017-12-30 14:33

只要这个索引而已，然后有可以选的就满足了     选项 ST   01    石材             SS   01   金属。。。。。

lwl450

kqqt6236 发表于 2017-12-31 00:06

引线标出方形的那个，然后文字可以自己选择的   例如 我想要石材的     ST 01   石材       金属     SS 01 金属

bonny123

别沉下去啊，这个大量提高效率的

bonny123

想问下，这个引线和后面的块是一组的，还是各自分开的，一组的不知道了，如何获取标注内部的属性块；；，分开的比较简单，就是编辑属性块了，

xinyeyu

哪位高手能做个像上面GIF图片一样的材料标注表

xinyeyu

同求上面的材料表代码