lisp批量生成轴线_求批量插入图纸的程序 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
不明白的是这样一个程序和解密有什么关联
归档文件合并.lsp
1。需要doslib函数库支持
2。需要手动建立c:\QGY_temp文件夹
(defun c:insdwgs()
(princ "\n 归档文件合并 edit by yuuboo \n")
(setvar "cmdecho" 0)
(setq dwgpath (dos_getdir "选择要操作的文件夹:" (if dwgpath dwgpath "F:\\work归档") "归档文件后处理"))
(if dwgpath
(progn
(setq fff (dos_dir (strcat dwgpath "*.dwg") 1))
(setq ini (open "c:\\QGY_temp\\目录列表.ini" "w"))
(foreach x fff
(write-line (strcat dwgpath x) ini)
)
(setq ini (open "c:\\QGY_temp\\目录列表.ini" "r"))
(insdwgs_main)
)
)
(princ)
)
(defun ax:2DPoint (pt)
(vl-load-com)
(vlax-make-variant
(vlax-safearray-fill
(vlax-make-safearray vlax-vbdouble '(0 . 1))
(list (car pt) (cadr pt))
)
)
)
(defun ax:GetBoundingBox (ent / ll ur)
(vl-load-com)
(vla-getboundingbox (vlax-ename->vla-object ent) 'll 'ur)
(mapcar 'vlax-safearray->list (list ll ur))
)
(defun insdwgs_main()
(setq ss-ss '())
(while (and (setq newdwg (read-line ini)) (/= newdwg ""))
(command "insert" newdwg "non" "0,0" 1 1 0)
(setq dwg_block (entlast))
(setq ss (ssadd))
(setq ss (ssadd (entlast) ss))
(setq box (ax:getboundingbox dwg_block))
(setq p1 (car box))
(setq p2 (cadr box))
(setq pp (polar (list (car p2)(cadr p1)) (* pi 0.25) 20000))
;; (command "text" "non" pp 20000 0 (substr (nth 2 (dos_strtokens (nth 2 (dos_splitpath newdwg)) "-")) 3))
(command "text" "non" pp 20000 0 newdwg);;我的程序是针对工程图纸合并所写,所以20000的字高对一般的应用可能大了,自己改吧
(setq ss (ssadd (entlast) ss))
(setq diss (- (cadr p2)(cadr p1) -10000))
(setq ss-ss (cons (list (list (car p1)(cadr p2)) diss ss) ss-ss))
)
(setq po '(0 0))
(setq ss-ss (reverse ss-ss))
(foreach x ss-ss
(setq aa (nth 0 x))
(setq bb (nth 1 x))
(setq cc (nth 2 x))
(command "move" cc "" "non" aa "non" po)
(setq po (polar po (* pi -0.5) bb))
)
(command "zoom" "e")
(close ini)
(setq filename (getfiled "保存文件" dwgpath "dwg" 1))
(if (findfile filename)
(command "save" filename "y")
(command "save" filename)
)
(setvar "filedia" 1)
(princ)
)
lisp批量生成轴线_求批量插入图纸的程序 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...相关推荐
- lisp新建标注式样_创建标注样式后续消零问题 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
DIMASO 关 创建标注对象 DIMSTYLE ISO-25 当前标注样式 (只读) DIMADEC 0 ...
- 块内拉升lisp_多重插入块的炸开问题? - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
很多个cad文件,被别人加了密,每个cad文件都生成了很多个多重插入块,在论坛找了个xxi的程序,可以炸开多重插入块,但是,文件太多,块也太多,不能一个一个炸,而且,每个多重插入块执行一下xxi命令之 ...
- 特别行政区界线lisp_CAD 系统变量参数大全 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
本帖最后由 1291500406 于 2019-1-29 20:52 编辑 CAD 系统变量参数大全 一.数学运算功能函数 1.1(十 数值 数值-)返回:累计实数或整数数值 1.2(一 数值 数 ...
- lisp批量生成轴线_已知大量坐标和直径,请问如何以用autocad 的lisp 以坐标为球心批量画球...
展开全部 lisp里用62616964757a686964616fe59b9ee7ad9431333363383432command调用CAD球体命令:sphere (command "sp ...
- LISP 圆孔标记_原创,圆孔生成镙丝孔 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
本帖最后由 邹锋 于 2013-4-14 04:10 编辑 好久没来,最近闲着无事,练练手,整个LISP ,比较适合做机械朋友使用 由于我们UG转出来的图档里没有标明哪些孔是镙丝孔,哪些是顶针孔,所以 ...
- cad偏移后自动变色lisp_高手帮忙修改,批量偏移 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
;;用LISP实现将PL环向内或向外偏移 ;;http://www.mjtd.com/Develop/ArticleShow.asp?ArticleID=654 (defun C:TEE ( / cu ...
- cad批量逐个填充lisp_快速填充的多选问题 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
本帖最后由 alexmai 于 2019-3-22 00:35 编辑 ----------------------------------------------------------------- ...
- cad四边形展开lisp_批量绘制四边形 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
;试用以下程序 (defun c:test() (setq bcsjb '(("A1" 9549.31 6977.53 7180.75 7155.97 11015.11) (&qu ...
- cad线段总和lisp_求一个线段长度总和与生成文本 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
像这种 ;;;;;计算面积,周长.显视在图面上 (defun C:am (/ s text1 text2 ss l i totalarea ename obj insertpt insertpt1) ...
最新文章
- ASP.NET MVC Routing、Areas、URLs
- Android Call requires API level 11 (current min is 8)的解决方案
- 屌丝笔记本玩Windows Phone 8开发(在Windows Server 2012中安装WP8 SDK)
- 使用event.keyCode来判断是否为数字
- 创建Python数据分析的Docker镜像+Docker自定义镜像commit,Dockerfile方式解析+pull,push,rmi操作...
- 标准C程序设计七---121
- flash 游戏开发工作总结(1)--开发准备:FB的配置
- diadem2017注册机 ni_NI DIAdem2017下载
- android支付宝支付
- python时间模块详解(time模块)
- excel 表头合并 和拆分的例子
- 【VR游戏】封神榜传
- Linux 权限相关指令
- linux rtl8723bu 蓝牙,RTL8723BU(wifi Bluetooth) 移植
- 神经网络与深度学习笔记(二)正向传播与反向传播
- Redis 全实践(超长文预警)
- 如何在OS X照片中禁用iCloud照片同步
- 【文本生成】评价指标:事实一致性Evaluating the Factual Consistency of Abstractive Text Summarization
- 硬盘对拷/硬盘克隆/硬盘数据迁移工具
- 计算机要素--第六章 汇编编译器
热门文章
- js_DOM读写节点
- LeetCode - Remove Nth Node From End of List
- listview android:cacheColorHint,android:listSelector属性作用
- 1.Python基础----认识环境
- idea 编译spring_《Spring源码解析(二)》构建 Spring5 源码工程,开启研读Spring源码之路...
- 求一列数据中的波峰_数据分析实践入门(四):数据运算
- xp系统打开计算机配置文件,浅析xp系统如何解决开机出现“Windows不能加载本地存储的配置文件“...
- 路由包含#号导致的nginx_分布式实战:Nginx缓存之OpenResty部署
- 根据不同条件查询_刑事立案要符合哪些条件,怎么查看立案没有
- excel高级筛选怎么用_excel中使用高级筛选7个示例、多个条件、复制到另一个工作表公式...