lisp天正图元位置修改_块内图元的坐标定位[已解决]感谢版主
(defun c:tt ()
(princ "\n请选择范围")
(if (setq ss (ssget '((0 . "text,insert"))))
(mapcar '(lambda (x)
(cond ((= (hlj-dxf 0 x) "TEXT")
(command "LINE" (hlj-dxf 10 x) '(0 0) "")
)
((= (hlj-dxf 0 x) "INSERT")
(setq p0 (hlj-dxf 10 x)
aa (vl-remove-if
'(lambda (y) (/= (hlj-dxf 0 y) "TEXT"))
(hlj-blkQ (hlj-dxf 2 x))
)
)
(foreach a aa
(setq p1 (hlj-dxf 10 a)
p1 (mapcar '(lambda (x y) (+ y x)) p1 p0)
)
(command "LINE" p1 '(0 0) "")
)
)
)
)
(ss2list ss)
)
)
(princ)
)
;; 次级函数
(defun hlj-dxf (n s1) (cdr (assoc n (entget s1))))
;; 枚举块中的图元 (hlj-blkQ (hlj-dxf 2 (entget blkname)))
;; (setq blkname (car (entsel "\n选择: ")))
(defun hlj-blkQ (blkname / a lst)
(setq a (cdr (assoc -2 (tblsearch "BLOCK" blkname)))
lst (cons a lst)
)
(while (setq a (entnext a))
(setq lst (cons a lst))
)
lst
)
;; 下面部分ssget选择集初始化成图元表
(defun ss2list (ss / sets itemlist i ent ent)
(setq sets (list)
n (sslength ss)
)
(setq i (- n 1))
(repeat n
(setq ent (ssname ss i)
sets (cons ent sets)
i (1- i)
)
)
sets
)
lisp天正图元位置修改_块内图元的坐标定位[已解决]感谢版主相关推荐
- IDEA中为什么CSS内容修改了，浏览器中没有更新（已解决）
IDEA中为什么CSS内容修改了,浏览器中没有更新(已解决) 解决办法:清除浏览器缓存即可. F12以后,找到找到网络,右键清楚缓存即可.
- lisp调用天正命令参数修改_在lisp中模拟运行CAD的command命令函数
自定义一个gxl-Command 函数,在lisp中自定义运行任何CAD的command命令,返回选择集,无需考虑cad命令所需参数, ;;;参数 cad命令字符串,例如:(gxl-Command & ...
- 解决朋友圈压缩_朋友中最有趣的朋友[已解决]
解决朋友圈压缩 We live in uncertain times. 我们生活在不确定的时代. We don't know when we're going back to school or th ...
- 怎么修改科汛CMS导读的文字字数【已解决】
文章要调用内容导读,系统自动截取内容的前200字作为导读,要是想显示更多导读内容要怎么控制导读字数呢?? 请打开以下文件稍作修改: admin/ks.article.asp if Intro=&quo ...
- arouter跨module传递消息_利用ARouter实现组件间通信，解决子模块调用主模块问题...
一年之前我写过一篇组件间通信的博客Android模块间通信(不使用三方库),当时用的是反射,自己去维护一套"对应关系"(分别给每个模块命名,分别给每个类命名帮助反射找到对应的类), ...
- cookies默认过期时间_「图」Chrome Canary新版已启动“增强版cookies控制”预览测试...
近日谷歌承诺将于今年晚些时候在Chrome浏览器启动"增强版cookies控制"的预览测试.在今年的I/O开发者大会上,谷歌宣布携手Mozilla等开发者耗时3年多时间制定了名为& ...
- VS2012 msvcr110d.dll xxxxxx处有未经处理的异常：0xC0000005:写入位置xxxxxx时发生访问冲突（scanf_s引起）-已解决
源代码见<C程序设计>P307 Example9.7 功能为输入三名学生的学号.姓名.三科成绩,输出成绩最高的学生信息和其平均成绩. 源代码如下: #include<stdio.h& ...
- 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) ;块外图元复制到块 ...
- 匿名块 块内实体的修改
匿名块好像不支持块内实体的修改, 块内实体的位置移动等是不可以的,好多东西不能设置, 这个需要再研究研究 转载于:https://www.cnblogs.com/houlinbo/archive/2 ...
最新文章
- Powerdesigner逆向工程64位Oracle数据库
- 图形上下文的栈操作(保存和恢复)
- linux图形化应用程序快捷方式制作方法
- 企业微信万亿级日志检索系统
- APUE Chapter 1 - UNIX System Overview
- Spark SQL的整体实现逻辑
- 背包——01背包Bone Collector（hdu2602）
- Ural_1003 Parity(并查集)
- 数据和云，半年文章精选（文末赠书）
- Ext3.0中复杂表头样例
- Bailian2995 登山【LIS】
- 01 自动化测试基础
- 计算机学报应用研究,计算机学报论文_计算机学报_通信学报
- Python去重操作及相关函数
- sql查询各科成绩前三名
- java.lang.IllegalStateException: Shutdown in progress
- Windows 10安装labelImg(有压缩包链接)标注弹孔，生成.xml文件。
- 5年大厂Java高频面试题及答案整理（二）
- python 自定义函数计算相应在不同k值时的cp值_Python版_实验二：K近邻算法分析与应用 - 作业.doc...
- 安徽省太和一中2021高考成绩查询分数,2021届安徽省太和一中高三物理高考二模试题 Word版含答案...