lisp把选集转成表_晓东CAD家园-论坛-LISP/VLISP程序库-[LISP程序]:把text转为属性图块 - Powered by Discuz!...
;;把text转为属性图块
;;By LUCAS
(defun C:C_DEF (/ HOLDECHO HOLDBLIP HOLDREQ SS SSS N A AA A1 A73 HH
LST_210 LST_10
)
(defun DXF (A1 A2 /)
(setq ENT (cdr (assoc A1 A2)))
)
(defun GETATT (E ATTNAME / N ATT E1 EN EN1 RSLT)
(setq EN (entget E)
E1 E
)
(if (and (= (DXF 0 EN) "INSERT")
(= (DXF 66 EN) 1)
)
(progn
(setq E1 (entnext E1)
ATT (strcase ATTNAME)
)
(while (and E1
(setq EN1 (entget E1))
(= (DXF 0 EN1) "ATTRIB")
)
(setq RSLT (append RSLT (list (DXF -1 EN1))))
(setq E1 (entnext E1))
)
)
)
(setq N 0)
(repeat (length RSLT)
(entmod (subst (nth N LST_210)
(assoc 210 (entget (nth N RSLT)))
(entget (nth N RSLT))
)
)
(entmod (subst (nth N LST_10)
(assoc 10 (entget (nth N RSLT)))
(entget (nth N RSLT))
)
)
(setq N (1+ N))
)
(entupd (entlast))
)
(command "_.undo" "_group")
(setq HOLDECHO (getvar "cmdecho"))
(setq HOLDBLIP (getvar "blipmode"))
(setq HOLDREQ (getvar "attreq"))
(setvar "cmdecho" 0)
(setvar "blipmode" 0)
(while (or (= SSS NIL) (= SS NIL))
(setq SSS (ssget))
(setq SS (ssget "P" '((0 . "TEXT"))))
)
(command "_.UCS" "")
(setq N 0)
(setq HH (ssadd))
(repeat (sslength SS)
(setq A (ssname SS N))
(setq LST_210 (append LST_210 (list (assoc 210 (entget A)))))
(setq LST_10 (append LST_10 (list (assoc 10 (entget A)))))
(setq AA (member '(100 . "AcDbEntity") (entget A)))
(setq A73 (cdr (assoc 73 AA)))
(setq A1 (cdr (assoc 1 AA)))
(entmake (append '((0 . "ATTDEF"))
(reverse (cddr (reverse AA)))
'((100 . "AcDbAttributeDefinition")
(70 . 8)
;;(73 . 0)
)
(list (cons 74 A73)
(cons 3 A1)
(cons 2 A1)
)
)
)
(ssadd (entlast) HH)
(setq N (1+ N))
)
(command "_.erase" SS "")
(setq A (rtos (* (getvar "CDATE") 1E8)))
(command "_.BLOCK" A "0,0" HH SSS "")
(setvar "attreq" 0)
(command "_.INSERT" A "0,0" "" "" "")
(setvar "attreq" HOLDREQ)
(GETATT (entlast) A) ;处理text对象不在X-Y平面
(command "_.UCS" "P")
(setvar "blipmode" HOLDBLIP)
(setvar "cmdecho" HOLDECHO)
(command "_.undo" "_end")
(princ)
)
(prompt "\nType C_DEF")
(princ)
lisp把选集转成表_晓东CAD家园-论坛-LISP/VLISP程序库-[LISP程序]:把text转为属性图块 - Powered by Discuz!...相关推荐
- LISP 圆孔标记_晓东CAD家园-论坛-A/VLISP-获取当前标注样式-;;希望大家来完善它 - Powered by Discuz!...
(defun C:get_current_dimStyle (/ L LST Y) (setq Lst (list "blipmode" ...
- lisp 天正标高_天正lisp文件夹_晓东CAD家园-论坛-A/VLISP-[求助]:怎样设置这个lisp里的读取文件...
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区. 您需要 登录 才可以下载或查看,没有帐号?立即注册 x 这时一个别人很久以前的lisp文件,可能是cadR12版就有了.文件语句如下: (se ...
- lisp 多段线转面域_晓东CAD家园-论坛-晓东工具箱、编程申请-[编程申请]:批量面域转成闭合多段线!!!!-批量面域转成闭合多段线!!!! - Powered by Discuz!...
'将多个直线连成一条轻质多段线 Public Sub joinpoly(reg As AcadRegion) reg.Explode On Error Resume Next Dim sset As ...
- 如何用lisp画蔓叶线_晓东CAD家园-论坛-晓东工具箱、编程申请-求帮忙,编写一个,快速填充图案的 LISP程序 - Powered by Discuz!...
这是我根据从网络上收集到的填充LISP插件,加以修改的的结果.虽然不完美,但还是能达到,60%的期望.发出来,大家帮忙修改一下. ;填充图案的 LISP插件 (defun c:HH(/ kw lay ...
- lisp点位提取_晓东CAD家园-论坛-A/VLISP-[LISP函数]:计算到指定点指定距离的点的点位 - Powered by Discuz!...
;;;================================================================= ;;;计算到指定点指定距离的点的点位 ;;;参数:lst -- ...
- Lisp获取偏置后对象的坐标点_晓东CAD家园-论坛-A/VLISP-[LISP程序]:求助:用lsp提取lwpline的点坐标-有现成的吗?谢谢! - Powered by Discuz!...
这时有一段代码,可供参考(写的时间太久了) ;;==================================================================== ;; ;将选择 ...
- lisp画垫圈_晓东CAD家园-论坛-LISP/VLISP程序库-[LISP程序]:俺的画内六角圆柱头螺钉的LISP程序-见附件 - Powered by Discuz!...
b_screw_column.dcl /*;这是一个基于AutoCad 14.0下画螺钉的程序 ;本程序作者b.w ;本程序无偿使用 ;如有更好建议,请联系b.w ;版本:2.0.01 ;日期:14/ ...
- lisp将图元追加选择_晓东CAD家园-论坛-A/VLISP-向块添加新图元,添加图元到块内 - Powered by Discuz!...
(defun $add-ents>block$ (ents block / copy-zt dxf mat mxm mxv objs ref->def trp B-O) ;块外图元复制到块 ...
- cad线段总和lisp_晓东CAD家园-论坛-LISP/VLISP程序库-[LISP程序]:文本工具:面积文字累加求和 - Powered by Discuz!...
[FONT=courier new] (princ "\nc:txta===面积文字累加求和---txtas设置--------lxx.2001.5") (princ " ...
最新文章
- 自制机械臂,能给葡萄缝针的那种,成本1万块,网友:能把脑子开源一下?
- 人工智能将会如何影响和服务医疗行业?未来十年会有哪些值得期待的应用?
- PHP tcp短链接,http请求怎样实现TCP长连接、短连接
- Windows进程与线程学习笔记(三)—— KPCR
- android中 onResume()方法什么时候执行 ??(转)
- OpenCV图像翻转:flip()函数的使用
- Docker(一)Centos7.0安装Docker
- php云和骑士哪家好,PHP云人才系统与骑士cms人才系统对比点评
- 解决Can 't connect to local MySQL server throug
- 我居然从一只猫身上学到了斐波那契数列
- [中文事件抽取]DCFEE: A Document-level Chinese Financial Event Extraction System based on Automatically Lab
- Silverlight - Validation 客户端同步数据验证
- spark-submit的使用
- Reactjs项目创建
- iOS开发内存泄露修复
- 深度学习笔记_卷积神经网络基本概念
- mongodb mapredReduce 多个条件分组(group by)
- 如何从hibernate官网下载各个版本的hibernate
- php滚动播报,卫星云图滚动播放(实时更新)
- C语言中的free函数