cad中lisp文件给恶作剧_求大神们帮忙更改下CAD 的lsp 文件 小弟谢谢啦
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
文字距离直线太远了 能改近点吗? 还有文字有的是倒着的,能正过来吗?
麻烦大神帮我改改 谢谢啦
(defun c:LLL()
(COMMAND"UCS" "")
(setvar"cmdecho" 1)
(SETVAR"OSMODE" 0)
(setq AcadObject (vlax-get-acad-object) AcadDocument (vla-get-ActiveDocument Acadobject) mSpace (vla-get-ModelSpace Acaddocument))
;;选取需要测量的样条曲线、圆弧、直线、椭圆
(setq en(ssget (list '(0 . "spline,arc,line,ellipse,LWPOLYLINE"))))
(setq i 0)
;;获取系统参数textsize
(setq shh (getvar "textsize"))
(setq str_hh(strcat "\n文字高度 : "))
(setq hh(getdist str_hh))
(while hh
(setvar "textsize" hh)
(setq hh nil))
;;输入标注文字高度
;;循环开始
(repeat(sslength en)
(setq ss(ssname en i))
(setq endata(entget ss))
(command "lengthen" ss "")
(setq dd(getvar "perimeter"))
(princ(strcat "\n长度=" (rtos dd 2)))
;;寻找代表图层的字符串
(setq aa(assoc 0 endata))
;;获取图层名称
(setq aa1(cdr aa))
;;判断线条种类
(cond ((= aa1 "SPLINE")
;;如果是spline
(progn
(setq arcObj(VLAX-ENAME->VLA-OBJECT ss))
(setqstartPnt1 (vla-get-ControlPoints arcObj))
(setq p1
(vlax-safearray->list(vlax-variant-value startPnt1))
)
(setq x1 (car p1))
(setq y1(cadr p1))
(setq z1(caddr p1))
(setq pp1(list x1 y1 z1))
(repeat (- (/(length p1) 3) 1)
;;循环,寻找最后一个控制点
(setq p1(cdddr p1))
(setq x2 (car p1))
(setq y2(cadr p1))
(setq z2(caddr p1))
)
(setq pp2(list x2 y2 z2))
)
)
((= aa1"LWPOLYLINE")
;;如果是LWPOLYLINE
(progn
(setq arcObj(VLAX-ENAME->VLA-OBJECT ss))
(setqstartPnt1 (vla-get-Coordinates arcObj))
(setq p1
(vlax-safearray->list(vlax-variant-value startPnt1))
)
(setq x1 (car p1))
(setq y1(cadr p1))
(setq z1(caddr p1))
(setq pp1(list x1 y1 z1))
(repeat (- (/(length p1) 3) 1)
;;循环,寻找最后一个控制点
(setq p1(cdddr p1))
(setq x2 (carp1))
(setq y2(cadr p1))
(setq z2(caddr p1))
)
(setq pp2(list x2 y2 z2))
)
)
(t
;;如果是其他种类线条
(progn
(setq arcObj(VLAX-ENAME->VLA-OBJECT ss))
(setq startPnt1 (vla-get-StartPoint arcObj))
;;获取起点
(setq endPnt1(vla-get-EndPoint arcObj))
;;获取终点
(setq pp1 (vlax-safearray->list(vlax-variant-value startPnt1))
)
(setq
pp2(vlax-safearray->list (vlax-variant-value endPnt1))
)
)
)
)
(setq x1 (car pp1))
(setq y1(cadr pp1))
(setq z1(caddr pp1))
(setq x2 (car pp2))
(setq y2(cadr pp2))
(setq z2(caddr pp2))
(setq x (/ (+ x1 x2) 2))
(setq y (/ (+ y1 y2) 2))
(setq z (/ (+ z1 z2) 2))
(setq pt(list x y z))
;;取得线段两端的中点
(setq ang(a
ngle pp1 pp2))
;;获取角度
(if (> (* (/ ang pi) 180) 180)
(setq ang (+ ang pi))
)
(command "text"
"j"
"bc"
pt
""
(* (/ ang pi) 180)
(strcat "" (rtos dd 2))
""
)
(setq i (1+ i)))
(prin1)
)
(prompt"\n <>在图中直接写出长度")
(prin1)
cad中lisp文件给恶作剧_求大神们帮忙更改下CAD 的lsp 文件 小弟谢谢啦相关推荐
- LISP统计圆弧数量_求大神告知,如何用LISP实现块数量分类统计程序,最好统计后列出表格。谢谢了。...
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼 这个可以统计各种块的数量(基于块名),但是不能生成表格. (prompt "\n命令为: BC ,用法如下: ") (prompt & ...
- JAVA2块钱瓶子_啤酒2元一瓶,4个瓶盖换一瓶,2个空瓶换一瓶,问:10元钱可以喝几瓶。用java编程解出答案,求大神们帮忙...
点击查看啤酒2元一瓶,4个瓶盖换一瓶,2个空瓶换一瓶,问:10元钱可以喝几瓶.用java编程解出答案,求大神们帮忙具体信息 答:package test;public class Test {publ ...
- java 写文件 速度_怎么提高文件的写入速度,求大神
现在写一个100M的文件大概要4~5分钟 因为经常要写超过100万的数据,所以这速度略显不足,求大神看看,哪里还能优化,多线程的就先别说了,这个就是多线程中的一个线程 * @author liuhon ...
- php输出后以密文显示,加密解密,_求大神帮看一下,如何根据下面的程序,把明文生成密文谢谢,加密解密 - phpStudy...
求大神帮看一下,如何根据下面的程序,把明文生成密文谢谢 求大神帮看一下,如何根据下面的程序,把明文生成密文谢谢 def parserLicense(self,encCode): data = base ...
- java 找茬_求大神帮忙找茬,就是改不过来错误
求大神帮忙找茬,就是改不过来错误 package 模拟去掉字符串两端的空格; import java.util.Scanner; class trim1{ String str=null; publi ...
- 库卡机器人编程权限_那位大神帮我解读下KUKA的程序,或者买本KUKA机器人编程词汇手册...
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼 这是视觉系统INOS的fitting test程序,还有好几个需要解读的,我愿意付酬劳,或者或者买本KUKA机器人编程词汇手册给我自己研究也行,网上的编程 ...
- cad加载tiff影像插件_设计大神CAD常用的七个插件你会用几个?
说道CAD插件可能会被人们熟知的也就那几个,可是据统计CAD插件多达上百个,那么在这上百个插件中你又会用几个呢?下面就让我们看看大部分设计师常用的插件有哪些吧! 一.cad批量修改图框程序 1.输入加 ...
- java flash截图_求大神们帮助, 如何在java中实现文字数据转换成图片或flash显示
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼 protected void doGet(HttpServletRequest request, HttpServletResponse response ...
- mysql存储过程实验几轮_想问下数据库中有关存储过程的实验,求大神!
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼 DELIMITER || CREATE PROCEDURE procedure_for_customers () BEGIN -- 定义参数 DECLAR ...
最新文章
- dw html 并排三个正方形边框,dw网页设计与制作题库(单选题)(43页)-原创力文档...
- java aopalliance-1.0.jar这个包是做什么用的?
- Android内核开发:如何统计系统的启动时间
- 时间复杂度(3):排序算法的时间复杂度 空间复杂度 总结
- deque python_python3 deque(双向队列)的详细介绍
- Springboot+Vue+EasyExcel实现web页面的excel读取
- OC Foundation框架 集合
- 怎么在图片上编辑文字?图片加字这样做
- 看了这个教程,学会快速找出三等分点
- bash: yum:未找到命令
- oracle 密码解锁
- web前端html5+css3学习笔记(2)
- grep检索关键字的命令_文件中查找关键字“ ”命令 grep
- springboot文件上传和下载(批量/单个)
- MySQL编程实战三之求任务执行批次号
- 苹果痛失全球市值第一宝座
- AIX7.1 安装配置 EMC CLARiiON 存储驱动软件
- linux打地鼠课程设计,数字电路课程设计打地鼠.doc
- tkinter事件绑定方法总结
- 手机缓存的微博、b站视频在哪儿