【找钢网源码下载】【蛋蛋赚 e源码】【6949 小游戏源码】贱人工具箱源码lisp

2024-11-18 05:54:01 来源:gdi模块 源码 分类:探索

1.贱人工具箱 不小心把Y设置成命令了 不能调出工具箱 怎么办?
2.贱人工具箱V610官方版贱人工具箱V610官方版功能简介
3.贱人工具箱如何编号?贱人如一个圆有很多个不同样的图型,编成1到500,工具
4.贱人工具箱x64V590破解免费版贱人工具箱x64V590破解免费版功能简介
5.浩辰CAD 2010的箱源VLISP接口加载贱人工具箱图文教程

贱人工具箱源码lisp

贱人工具箱 不小心把Y设置成命令了 不能调出工具箱 怎么办?

       来个经实践验证了的方法:

       打开c盘贱人工具箱文件夹的“y.ini”文件,例如:

       找到文件里的贱人“y”,修改成任意其他字母(用新的工具快捷键替换掉y),搞定!箱源找钢网源码下载

       直接删除没用,贱人加载贱人工具箱后会还原(但未经过关机测试)。工具

贱人工具箱V官方版贱人工具箱V官方版功能简介

       大家好,箱源今天给大家介绍的贱人是贱人工具箱 V6.1.0 官方版,这款工具箱的工具功能非常强大,它是箱源CAD绘图的好帮手,提供了丰富的贱人CAD插件,让用户可以更加轻松地进行CAD图像的工具制作。接下来,箱源让我们一起详细了解一下这款工具箱的功能吧!

       使用说明

       加载方法:

       1. 打开CAD软件,选择“工具”菜单中的“加载应用程序”,或者直接输入命令:appload。蛋蛋赚 e源码

       2. 点击启动组中的“内容...”按钮,然后选择“添加...”,找到贱人工具箱,将其添加到CAD中。

       3. 关闭对话框,并重新启动CAD软件。

       4. 输入命令y或yy来打开工具箱。

       如果无法加载,可以尝试以下方法:

       1. 在打开CAD或图纸时,不要按Esc键,否则可能会阻止工具箱的加载。

       2. 以管理员身份登录操作系统。

       3. 对于使用vista和win7的用户,需要关闭UAC(用户账户控制),具体操作可以网上搜索,关闭UAC后请重启电脑以使其生效。

       4. 工具箱不支持绿色版、精简版的6949 小游戏源码CAD软件。

       CAD插件推荐

       在CAD领域,有一句话广为流传:“会不会使用插件,是你是否懂得这个软件的标志。”随着对CAD的深入了解,你会发现,使用插件与否,设计的效率有着天壤之别。除了贱人工具箱,还有其他许多优秀的CAD插件等着你去发现。以下是一些推荐的CAD插件工具:

       1. 燕秀工具箱官方免费版:这是一款方便易用的AutoCAD塑料模具工具,支持AutoCAD各个版本,注重应用功能的增强。

       2. 源泉CAD工具箱官方版:适用于建筑设计、装饰设计等相关CAD制图行业,由Visual LISP语言编写再经编译而成,可运行AutoCAD以及浩辰CAD各个版本。

       3. 常青藤辅助工具系统官方版:此绘图工具支持多种功能,如实体格式操作、流套接字源码图形符号绘制、表格智能处理等,支持AutoCAD、中望CAD和浩辰CAD平台。

       4. 海龙工具箱完美版:提供了丰富的绘图及设计工具,支持多种封面目录制作、平面图绘制等,可以大大提高用户的绘图工作效率。

贱人工具箱如何编号?如一个圆有很多个不同样的图型,编成1到,

       我用贱人尝试过,不会弄,后来下载了一个lisp,用text编辑的数字可以复制递增。希望对你有所帮助。如下:

       (defun c:gf()

       (setq bc (getint "\n 请输入步长:"))

       )

       (defun c:saa()

       (setq banben (ver))

       (ddd banben)

       (setq banben (atoi banben))

       (prompt "\n 设置步长命令为:gf,初始步长为1")

       (prompt "\n 请选择不需要更改的实体:")

       (if (= bc nil)

       (setq bc 1)

       )

       (setq ddjjqq (ssget))

       (setq entt (entsel "\n 请选择一个文字:"))

       (setq ent (car entt))

       ;(setq pt1 (cadr entt))

       (redraw ent 3)

       (setq dxf (entget ent)) ;联合列表

       (setq wenzizu (assoc 1 dxf)) ;点对列表

       (setq wenzi (cdr wenzizu)) ;文字

       (setq wenzilen (strlen wenzi))

       (setq fanyihou (vl-string-translate "" "##########" wenzi)) ;翻译字符

       (setq weizhi (vl-string-search "#" fanyihou)) ;找出#的位置

       (setq qianzhui (substr wenzi 1 weizhi)) ;取出前缀

       (setq shuzi (substr wenzi (+ weizhi 1))) ;取出字符串形式的数字

       (setq shishu (atoi shuzi)) ;把数字改为实数

       (setq pt1 (getpoint "\n 请选择一个点:"))

       (setq pt2 (getpoint pt1 "\n 请选择第二点:"))

       (setq n 0)

       (while pt2

       (setq lll (substr wenzi 1 1)) ;判断第一个字符是什么

       ;(setq llll (substr wenzi 4 1)) ;判断第四个字符是什么

       (cond

       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

       ( (= lll "<") ;

       (progn ;

       (setq b (+ shishu bc n)) ;

       (setq c (itoa b)) ;

       (if (< b ) ;

       (setq d (strcat qianzhui "0" c ">"))

       (setq d (strcat qianzhui c ">"))

       ) ;

       (setq e (cons 1 d))

       (if (> banben )

       (progn ;

       (command "copy" ddjjqq "" pt1 pt2 "")

       (command "copy" ent "" pt1 pt2 "")

       )

       (progn ;

       (command "copy" ddjjqq "" pt1 pt2 )

       (command "copy" ent "" pt1 pt2 )

       ) ;end progn

       ) ;end if

       (setq ent1 (entget (entlast))) ; ;此处为一个判断

       (setq txtzh1 (assoc 1 ent1)) ;

       (setq ent1 (subst e txtzh1 ent1)) ;

       (entmod ent1) ;

       (princ) ;

       ) ;end progn ;

       ) ;end first ;

       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

       ;如果要加判断的话,请选择这里

       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

       (t ;

       (progn ;

       (setq b (+ shishu bc n))

       (setq c (itoa b))

       (if (< b ) ;

       (setq d (strcat qianzhui c))

       (setq d (strcat qianzhui "0" c))

       ) ;

       (setq e (cons 1 d))

       (if (> banben )

       (progn ;

       (command "copy" ddjjqq "" pt1 pt2 "")

       (command "copy" ent "" pt1 pt2 "")

       ) ;end progn

       (progn ;

       (command "copy" ddjjqq "" pt1 pt2 )

       (command "copy" ent "" pt1 pt2 )

       ) ;end progn

       ); end if ; ;此处为第二个判断

       (setq ent1 (entget (entlast))) ;

       (setq txtzh1 (assoc 1 ent1)) ;

       (setq ent1 (subst e txtzh1 ent1)) ;

       (entmod ent1) ;

       (princ) ;

       ) ;

       ) ;

       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

       ) ;end cond

       (setq n (+ bc n))

       (setq pt2 (getpoint pt1 "\n 请选择第二点:")) ;pt1决定有没有显示线

       ) ;end while

       ) ;end defun

       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

       ;;;;;;;;;; 以下为输入单个字的命令 ;;;;;;;;;;;;;;;;

       (defun c:sa()

       (setq banben (ver))

       (ddd banben)

       (setq banben (atoi banben))

       (prompt "\n 设置步长命令为:gf,初始步长为1")

       (if (= bc nil)

       (setq bc 1)

       )

       (setq enty (entsel "\n 请选择一个文字:"))

       (setq ent (car enty))

       ;(setq pt1 (cadr enty))

       (redraw ent 3)

       (setq dxf (entget ent)) ;联合列表

       (setq wenzizu (assoc 1 dxf)) ;点对列表

       (setq wenzi (cdr wenzizu)) ;文字

       (setq wenzilen (strlen wenzi))

       (setq fanyihou (vl-string-translate "" "##########" wenzi)) ;翻译字符

       (setq weizhi (vl-string-search "#" fanyihou)) ;找出#的位置

       (setq qianzhui (substr wenzi 1 weizhi)) ;取出前缀

       (setq shuzi (substr wenzi (+ weizhi 1))) ;取出字符串形式的数字

       (setq shishu (atoi shuzi)) ;把数字改为实数

       (setq pt1 (getpoint "\n 请选择一个点:"))

       (setq pt2 (getpoint pt1 "\n 请选择第二点:"))

       (setq n 0)

       (while pt2

       (setq lll (substr wenzi 1 1)) ;判断第一个字符是什么

       ;(setq llll (substr wenzi 4 1)) ;判断第四个字符是什么

       (cond

       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

       ( (= lll "<") ;

       (progn ;

       (setq b (+ shishu bc n)) ;

       (setq c (itoa b)) ;

       (if (< b ) ;

       (setq d (strcat qianzhui "0" c ">"))

       (setq d (strcat qianzhui c ">")) ;

       ) ;

       (setq e (cons 1 d))

       (if (> banben ) ;

       (command "copy" ent "" pt1 pt2 "")

       (command "copy" ent "" pt1 pt2 )

       ) ;

       (setq ent1 (entget (entlast))) ; ;此处为一个判断

       (setq txtzh1 (assoc 1 ent1)) ;

       (setq ent1 (subst e txtzh1 ent1)) ;

       (entmod ent1) ;

       (princ) ;

       ) ;end progn ;

       ) ;end first ;

       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

       ;如果要加判断的话,请选择这里

       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

       (t ;

       (progn ;

       (setq b (+ shishu bc n)) ;

       (setq c (itoa b))

       (if (< b ) ;

       (setq d (strcat qianzhui "0" c))

       (setq d (strcat qianzhui c))

       ) ;

       (setq e (cons 1 d))

       (if (> banben ) ;

       (command "copy" ent "" pt1 pt2 "")

       (command "copy" ent "" pt1 pt2 )

       ) ;

       ;此处为第二个判断

       (setq ent1 (entget (entlast))) ;

       (setq txtzh1 (assoc 1 ent1)) ;

       (setq ent1 (subst e txtzh1 ent1)) ;

       (entmod ent1) ;

       (princ) ;

       ) ;

       ) ;

       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

       ) ;end cond

       (setq n (+ bc n))

       (setq pt2 (getpoint pt1 "\n 请选择第二点:")) ;pt1决定有没有显示线

       ) ;end while

       (princ)

       ) ;end defun

       ;;;;;;(wcmatch "SHZ1G" "*[]*") 可以找到是否只有一个数字

       (defun ddd (#a)

       (setq #b (vl-string->list #a))

       (setq #c (vl-remove-if '(lambda (x) (> x )) #b))

       (setq #d (vl-remove-if '(lambda (x) (< x )) #c))

       (setq #e (vl-remove #d)) ;此句是去掉/的语句

       (setq banben (vl-list->string #e))

贱人工具箱xV破解免费版贱人工具箱xV破解免费版功能简介

       大家好,关于贱人工具箱 x V5.9.0 破解免费版,贱人工具箱 x V5.9.0 破解免费版功能简介这个很多人还不知道,现在让我们一起来看看吧!

       贱人工具箱位破解版是gdb 指定源码路径一款非常不错的CAD绘图工具,该款工具专为位系统用户打造,为用户提供了丰富的CAD插件,帮助用户更加轻松便捷的进行CAD图像的制作,并且该版本为破解版,用户可使用上面的全部功能。

使用说明

       加载方法:

       1、菜单“工具”-->“加载应用程序”(或直接输入命令:appload)

       2、点启动组里的“内容...”按钮-->点“添加...”,找到工具箱,把工具箱添加进去

       3、关闭对话框,并重启CAD

       4、输入命令y或yy打开工具箱

       无法加载时请尝试以下方法:

       1、打开cad或图纸的时候不要按Esc键,按了会阻止工具箱的加载;

       2、请使用管理员身份登陆操作系统;

       3、使用vista和win7的要关闭UAC,关闭方法网上搜索,关闭UAC后请重启电脑以便生效;

       4、工具箱不支持绿色版、精简版的cad。

CAD插件推荐

       在CAD圈一直流传着这么一句话:会不会使用插件,是你懂不懂这个软件的门槛,因为随着对CAD的深入认识,你会发现使用插件和不使用插件,设计的效率天差地别,除了CAD贱人工具箱插件之外,还有其他好用的CAD插件等待着你的使用,小编也对这些类型的插件进行了整理,有需要的赶快来看看下面的表格吧。

       CAD插件工具

软件名称软件特色燕秀工具箱官方免费版燕秀工具箱是一款方便易用的AutoCAD塑胶模工具,该软件支持简体、繁体、英文的AutoCAD各个版本,注重应用功能的增强。源泉CAD工具箱官方版这款CAD源泉建筑工具箱适用于建筑设计、装饰设计等相关CAD制图行业,由Visual LISP语言编写再经编译而成,可运行AutoCAD以及浩辰CAD各个版本。常青藤辅助工具系统官方版此绘图工具主要包括实体格式操作、图形符号绘制、表格智能处理、实体批量修改、实体信息查询及图纸批量打印等功能,支持AutoCAD、中望CAD和浩辰CAD平台。海龙工具箱完美版软件提供了若干绘图及设计用工具,支持多种封面目录制作、平面图绘制、立面图绘制、剖面图绘制等操作,可以大大提高用户绘图工作效率。

浩辰CAD 的VLISP接口加载贱人工具箱图文教程

       Visual LISP语言可以访问CAD的对象模型, 不仅使程序开发变得更容易,更快捷,还提供了新的LISP语言应用功能。例如,可以使用VLISP以LISP语言访问ActiveX对象。还可以通过VLISP与其他支持ActiveX方法的Windows应用程序进行交互。

       1、直接访问ActiveX对象与标准LISP对比我们把标准Lisp和使用VLISP直接访问ActiveX对象做一个简单比较: 标准LISP语言:

           (setq circle-entity (car (entsel)))

           (setq radius (cdr (assoc (entget circle-entity))))

           使用VLISP直接访问ActiveX对象

           (vlax-ename-vla-object circle-entity)

           (setq radius (vla-get-radius circle-object))

           对比可以发现直接访问ActiveX对象更方便直观。从效率方面来讲,直接访问ActiveX对象避免了分配大量内存,生成冗余的列表,从而运行更快。

           2、加载VLISP工程的方法 浩辰CAD不仅提供了与AutoCAD兼容的VLISP接口,还可以直接加载AutoCAD编译好的VLISP工程(VLX、FAS文件),省去了移植工作的烦恼;同时也可以直接利用互联网上提供的大量免费的VLISP工程,从而更大程度上节约设计时间。

           1)、可以调用APPLOAD命令,像加载LISP文件一样加载VLISP工程(VLX、FAS文件)。

           2)、可以直接在命令行中书写形如(load “c://Test.vlx”) (load “c://Test.fas”)的LISP语句完成加载。

           3)、直接在其他程序中,像浩辰CAD发送LISP语句完成加载。

       3、VLISP加载实例贱人工具箱是网上流传很广的CAD免费小工具,下面就以贱人工具箱5.2版为例,演示一下浩辰CAD是如何加载VLISP程序的。在工具菜单选择加载应用程序选项,可以看到浩辰CAD可以支持所有的CAD二次开发程序的加载,这里选择VLISP的程序VLX来加载贱人工具箱。

CAD贱人工具箱 V5. 免费版:www./softs/.html

           

选择贱人工具箱的程序

       加载后根据命令行的提示启动贱人工具箱

           输入Y回车,弹出贱人工具箱的界面:

       贱人工具箱就可以在浩辰CAD上使用了,正因为浩辰CAD优秀的二次开发接口,类似贱人工具箱这样本来是为AutoCAD开发的插件都可以直接在浩辰CAD上进行加载运行,为用户提供了真正的便利。

           VLX和FAS的直接加载运行是浩辰CAD 版的重大技术突破,其他同类的CAD都无法实现。当然,由于VLISP函数以及命令参数还不能与AutoCAD%兼容,还不能保证所有的VLX或FAS程序加载后所有功能都能正常运行,我们的开发人员正在对一些常用的工具进行测试,并逐步完善VLISP与AutoCAD兼容性。

本文地址:http://04.net.cn/news/89b403895872.html 欢迎转发