-
-
1@lisp 函数库是一个开源、共享、可云端加载的 autolisp 函数库。由像您一样热爱开源共享的爱好者所构筑并维护。可依据开放许可协议自由使用。 @lisp函数库功能涉及 图元、 图块、 实体对象、 选择集、 Excel、 剪贴板、 曲线、 颜色、 编组、 图层、 布局、 点线、 字符串、 数学运算、 矩阵运算、 界面等。更多内容持续迭代中 … 网址 : http://atlisp.cn/function-lib 基本函数 使用说明 base64 base64:base64-to-file base64:decode base64:encode base64:encode-from-file block block:ge
-
0用vb计算并且对齿轮的强度进行校核,选择合适的值,从而得出画图所需要的参数,生成中的数据文件,Autolisp文件通过读取中间的数据文件进行画图。最后利用script脚本文件,自动加载Autolisp文件到AUTOCAD中,绘制出齿轮图形。vb已经做出来了,有人代做autolisp吗?价格私聊。
-
1本人最近编写出了win7、win10系统下利用磁盘序列号绑定电脑的autolisp程序,可实现将一个autolisp或vlx程序绑定至一台电脑,其他电脑无法使用,需要者可加qq492379558。
-
1已知一个块的名称(代数表示),想要获得其图元名,我的想法是先捕捉到此块,假设块的名称是1(setq n 1)(setq k (ssget ‘‘X’’ '((0 . ‘‘INSERT’’) (cons 2 (rtos n)))))为什么不行呢? 还有没有其他方法可以获得图元名呢?谢谢大家。
-
0
-
1请问一下 (setq fp (open "D:\\画塔数据.csv" "r")) (setq a (read-line fp))我这样读取了文档第一行的内容,但是得到的是 "横担长度,10" 这样一个长度为11的字符串,然后我这样想把十赋值给b (setq b (atoi(substr a 8 1))) 但是查看b的值是00,这是哪里错了呀。
-
5(defun C:sj() (setq fp (open filename "C:\Users\s0890\Desktop.r.text" "r")) (setq a (read-line fp)) (setq a (read a)) (setq b (read-line fp)) (setq b (read b)) (setq aa (list a b)) (setq d (list 0 0)) (command "line" aa d c) ) 我的代码是这样的但是运行后提示我参数太多,请问一下是为什么啊。 我的text文件里就是两行,一行一个数据 10 20 这样
-
2请问各位大神,输入直径命令后,在输入已知圆弧的图元名,比如en_arc,但是无法完成标注
-
032本人对AUTOLISP略知一二,如有需要,请与我联系734889115@qq.com(业余时间)0本人最近编写出了快速画园林方格网数字的程序,有需要者加qq492379558。0我想计算下cad中几何体的体积用visuallisp 谁有代码啊?0(defun c:hhh(/ bzz e1 e10 e11 e12 e13 e14 e15 e2 e3 e4 e5 e6 e7 e8 e9 h1 id kst mk point point_1 point_10 point_11 point_12 point_13 point_14 point_15 point_16 point_17 point_18 point_19 point_2 point_20 point_21 point_22 point_23 point_24 point_25 point_26 point_27 point_28 point_29 point_3 point_30 point_31 point_32 point_33 point_34 point_35 point_36 point_37 point_38 point_39 point_4 point_40 point_41 point_42 point_43 point_44 point_45 point_46 point_47 point_48 point_49 point_5 point_50 point_51 point_52 point_53 point_54 point_55 point_6 point_7 point_8 point_9 r1 r2 r3 r5 r6 r7 rj w12有大佬给个实例吗?请喝水2引用自bbs.mjtd.co m/thread-85614-1- 1.ht ml ;;;=================================================================* ;;;功能:向系统剪贴板写入文字 * (vl-load-com) (defun ZML-CLIP-SETSTRING (STR / HTML RESULT) (and (= (type STR) 'STR) (setq HTML (vlax-create-object "htmlfile")) (setq RESULT (vlax-invoke (vlax-get (vlax-get HTML 'PARENTWINDOW) 'CLIPBOARDDATA ) 'SETDATA "Text" STR ) ) (vlax-release-object HTML) ) ) ;;;=================================================================* ;;函数测试 (defun C:AA (/ CURVE TLEN SS N SUMLEN) (princ &quo23第一个问题 :我想改标注和改单行文字一样方便,直接ddedit后,单击标注一次后出现的修改文字对话框文字直接就是可编辑状态,就是直接可写数字了,默认全选文字的状态,就和单行文字一样,这样可直接写数字,但现在不是,现在是点击标注后,进去,还得再单击一次文字才能选中文字,再改,这样多点一次,改一个标注要单击2次很麻烦,如何能省去这一次点击,或者autolisp语言如何做到,就是我选择标注后,让程序替我在点击一次,这样我就9吧里有人精通或略懂lisp吗,我完全是小白,什么都不懂,我想问一些问题关于lisp,因为画图太累了,想用lisp能不能编个插件什么的代替我画,但我有一些疑问,如我如何让程序了解我的思维,我应该如何教它?我如何让他知道我想干什么?毕竟和教人不同,现在很多画图操作都是千篇一律的,很枯燥的鼠标键盘操作,每天点击鼠标成千上万次,如何让程序替我做呢,如我想连接两个点画直线,这样的端点有几百几千个,人力点太累了,但问题就算编40(defun c:lic () ;;; 选择要画的数据文件 (setq fn (getfiled "选择数据文件" "//" "" 4)) (setq f (open fn "r")) (setq size 2) ;;流量箭头大小调节 在标尺时是实际大小除以这个数 (setq x0 0 y0 0) (setq count 0) ;;间隔数 (while (setq se (read-line f)) (setq count(+ 1 count)) ;; 数据实数付值 (setq se (strcat se "\n")) (setq len (strlen se)) (setq L '() k 1 s_str "" p nil) (while(<= k len) (setq one (substr se k 1)) (if(or (= one":") (= one",") (= one " ") (= one (01 @Lisp 简介 @lisp 是一个运行于 AutoCAD 的应用管理器。用于管理AutoLisp 程序的网络下载安装、加载、卸载、查询等。可方便地实现 autolisp 程序的云管理。 软件名称: @lisp , atlisp , at-lisp 1.1 最小安装说明 本说明用户为 Administrator 如果你的用户文件夹不是这个,请把下面的Administrator 改为你实际的用户文件夹。 下载 核心程序@lisp.fas ,在主目录 (C:\Users\ Administrator ) 下建立 @lisp 文件夹,把下载的 "@lisp.fas" 文件放入 这个 @lisp 文件夹。 打开 AutoCAD , 打15还是笨蛋多啊!00本人是个菜鸟,找一个精通CAD和VB的大佬,帮我写一个程序,我有源代码.有偿服务!0第一次使用auto lisp,本人是菜鸟,想找一个大佬指导一下,有偿指导。欢迎大佬M我。在线等!!0(defun c:xzb (/) (setvar "cmdecho" 0) (setq ffn (getfiled "\n保存的坐标文件" "坐标" "txt" 1) ff (open ffn "w") ss (ssget '((0 . "*LINE"))) i -1 ) (setq xh 0);xh代表序号 (repeat (sslength ss) (setq ssdata (entget (ssname ss (setq i (1+ i)))) n 0) (repeat (length ssdata) (setq pp (nth n ssdata) key (car pp)) (if (= key 10) (progn (setq tx (strcat (itoa (setq xh(1+ xh))) "," (rtos (caddr pp) 2 3) "," (rtos(cadr pp) 2 3) "," " " "1")) (write-line tx ff) ) ) (setq n (1+ n))27大神们求推荐autolisp交流平台,自己一个人孤身奋战弯路太多。73有一条很长很多拐角的线段 如何把每个拐角的点坐标按顺序提取出来,我只找到了提取单个点的还要一个个点 太长的线段了,有大佬解答一下吗0(defun kkk () (vl-load-com) (setq n-scale (getint "输入结合剂尺寸与磨粒尺寸比例:(5,10,15)" ) ) (setq d-grind (getint "磨粒直径大小=")) (setq density (getreal "金刚石砂轮中金刚石密度(%):")) ; (setq cutting-high (getint "输入需要切削的高度:")) (setq b (* d-grind n-scale)) (setq ch (/ b 2)) (setq v-box (* b b b)) ;求结合剂总体积 (setq v-max (* (/ density 400) v-box));求金刚石砂轮中金刚石的最大总体积 (setq v-total 0.0) (setq v-single 0.0) ;限定区域 ;-----------------------------0autolisp中想插入一个块,但是希望它能够在六个自由度(x轴,y轴,z轴的移动,绕着x轴,y轴,z轴的旋转)都能够实现随机化!希望大佬能够指点一下6这是lisp文件 (defun c:work_1() (setq dlg_file (getfiled "选择要预览的对话框所在文件" "C:\\Documents and Settings\\czj\\My Documents\\autolisp\\" "DCL" 2)) (if (= dlg_file nil) (exit)) (setq dlg_name (getstring "\n对话框名称:")) (if (= dlg_name "") (exit)) (setq dlg_id (load_dialog dlg_file)) (if (< dlg_id 0) (exit)) (setq std 0) (if (not (new_dialog dlg_name dlg_id)) (exit)) (action_tile "accept" "(done_dialog 1)") (action_tile "aceept" "(done_dialog 0)") (setq std (start_dialog)) (unload_dialog dlg_id) (cond ((= std 1) (princ "确定")) ((= std 0) (princ "取消")) )4为什么我输入(command "layer" )新建图层时不是在命令栏根据提示输入而是弹出对话框?求大神解决此问题?0autolisp怎么实现自动新建一个图纸集?求大神指教0怎么删除前面画好一部分的图形,怎么求两个圆交点18本人对Autolisp有一定了解,工作之余进行一些程序的代写。有需要可以与本人联系。发送邮件mgak666@163.com或在本贴留言,将尽力为你解难。1如题,如何实现AUTOLISP多种类型值的输入。比如我想在同一次命令中输入 关键字 和 点,就像CAD自有填充功能-hatch一样,可以判断是输入点还是输入关键字,执行不同操作。1(330 . <图元名: 7507d820>) 错误: 输入的点对中含有多余的 cdrs 为什么330 这个点对加入就报错 有大神知道吗0这个工具箱功能非常丰富强大,而且是免费使用的,推荐大家可以来尝试一下! 这是官网的下载地址http://hh.lux-xul.com/15506做个小程式,先用getvar得到系统变量值,完事后再把变量里存的值用setvar设回去,发现:不成! 请教各位原因及解决方法