查看: 1516|回复: 5
UID405302主题帖子精华0积分3394阅读权限50通道币0 个威望0 明经币2 个金钱20 个贡献38 激情3249 注册时间最后登录在线时间156 小时分享
金牌会员, 积分 3394, 距离下一级还需 1606 积分
帖子精华0通道币0 个明经币2 个
哪个高手有这样的lsp程序，就是可以从一个文件夹里调用一些做好的图块，比如说五金件，型材等。
&(defun c:WA4 ( / laspt)
(setq dwg &A4& laspt 1);假设CAD支持搜索目录有*.dwg这个文件
(while laspt
(setq p1 (getpoint &零件图框的插入点:&))(terpri)
(if (/= p1 nil)(command &_.insert &
UID403268主题帖子精华0积分7553阅读权限60通道币0 个威望0 明经币63 个金钱106 个贡献209 激情6478 注册时间最后登录在线时间409 小时分享
钻石会员, 积分 7553, 距离下一级还需 7447 积分
帖子精华0通道币0 个明经币63 个
说来说去,不就是插入图块的LISP嘛.明经多啦!不过我没有,我暂时不用块.别打我主意哈.
UID419675主题帖子精华0积分156阅读权限20通道币0 个威望0 明经币1 个金钱20 个贡献0 激情120 注册时间最后登录在线时间10 小时分享
注册会员, 积分 156, 距离下一级还需 344 积分
帖子精华0通道币0 个明经币1 个
AAAAAAAAAAAAA
UID313864主题帖子精华0积分4719阅读权限50通道币180 个威望0 明经币2 个金钱134 个贡献233 激情4147 注册时间最后登录在线时间195 小时分享
金牌会员, 积分 4719, 距离下一级还需 281 积分
帖子精华0通道币180 个明经币2 个
不用专门的工具啊！
CAD里的TOOLPALETTES就是做这个的！
你如果经常想调用某一个图里的CAD块，或者是你专门有一个图，里面都是些你经常用的块，你可以打开设计中心，选中你的那一个图，然后选中块，右键菜单“创建工具选项板”。
这张图里的所有图块都会被放到工具选项板里，每次你只需要拖出来就可以了。
UID405302主题帖子精华0积分3394阅读权限50通道币0 个威望0 明经币2 个金钱20 个贡献38 激情3249 注册时间最后登录在线时间156 小时分享
金牌会员, 积分 3394, 距离下一级还需 1606 积分
帖子精华0通道币0 个明经币2 个
panliang9 发表于
不用专门的工具啊！
CAD里的TOOLPALETTES就是做这个的！
非常感谢高人的指教啊
UID405302主题帖子精华0积分3394阅读权限50通道币0 个威望0 明经币2 个金钱20 个贡献38 激情3249 注册时间最后登录在线时间156 小时分享
金牌会员, 积分 3394, 距离下一级还需 1606 积分
帖子精华0通道币0 个明经币2 个
panliang9 发表于
不用专门的工具啊！
CAD里的TOOLPALETTES就是做这个的！
我看到别人画图的时候直接用快捷命令调出来，感觉很好，就想自己也找一个这样的lsp文件，不过第二种方法挺好的，可以自己添加一些螺钉，非常感谢！！！
& 明经通道 版权所有 本站代码，在未取得本站及作者授权的情况下，不得用于商业用途
Powered byLSP_Date_Time CAD的LISP语言,有源码,目的是在CAD中新建一个图层，并把它设为当前，在图 出 日 Windows Develop 238万源代码下载-
&文件名称: LSP_Date_Time
& & & & &&]
&&所属分类:
&&开发工具: LISP
&&文件大小: 1 KB
&&上传时间:
&&下载次数: 12
&&提 供 者:
&详细说明：CAD的LISP语言,有源码,目的是在CAD中新建一个图层，并把它设为当前，在图中写出当前日期与名字-CAD of the LISP language, have the source and purpose is to create a new layer in the CAD, and it set the current in the chart to write the current date and the name of
文件列表(日期：~)(点击判断是否您需要的文件，如果是垃圾请在下面评价投诉):
&相关搜索:
&输入关键字，在本站238万海量源码库中尽情搜索：
&[] - 每个人经常会在一个对话终端的编辑框里输入信息与他人进行交流，这个小程序就是实现这个用途的。请不要用作商业用途
&[] - 柱型图,饼型图控件
&[] - CAD下查删重复线、块、文字的命令.VLX
&[] - lisp有关24点的小程序，使用common lisp编写
&[] - lisp语言教程 简单介绍LISP的用法Scheme 语言是LISP语言的一个方言(或说成变种)，它诞生于1975年的MIT，对于这个有近三十年历史的编程语言来说，它并没有象C++，java，C#那样受到商业领域的青睐，在国内更是显为人知。但它在国外的计算机教育领域内却是有着广泛应用的，有很多人学的
&[] - VB编写简单的卡拉OK评分系统，很简单的！初次上传，请多多指点
&[] - DELPHI写的计算器源码，功能齐全，十分好用cad跪求一个插件或lsp文件能快速同时标注出多条直线的长度？谢谢了。_百度知道
cad跪求一个插件或lsp文件能快速同时标注出多条直线的长度？谢谢了。
提问者采纳
阳光算量快手直接批量获取cad的长度
提问者评价
其他类似问题
为您推荐：
lsp的相关知识
其他1条回答
百度搜索“分类统计线长程序”
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁想要一个CAD 快速标注直线的命令最好是Lsp_百度知道
想要一个CAD 快速标注直线的命令最好是Lsp
)&nbsp:tt ()&nbsp://a;& &nbsp.0)(= an pi))&.com/zhidao/wh%3D450%2C600/sign=67fe385fcb3d70cf4cafa209cdecfd36/adaf2edda3cc7cd995d05ebf3b0d2://a; &/zhidao/pic/item/09fa513d269759eeecf735adb0fb.5))) (command &quot.hiphotos://c.com/zhidao/pic/item/b812c8fcc3cec3fd96bbcd13d488d43f869427ca. &quot.jpg" />这次我要标注上万个三角形和多边形的尺寸; (while (setq een (entsel &quot._dimaligned&quot，希望高手帮忙; (if (= xx & &nbsp，如图; &.hiphotos.jpg" esrc=") & &clayer&quot。为了简化要求特做了以下思路; (setq p1 (cdr(assoc 10 en)) p2 (cdr (assoc 11 en)) an (angle p1 p2))& &3& & &;选择要标的直线; (if (or (= an 0;(command &quot.baidu.5)))&c& p1 p2 p3 &_dimaligned& &：1：<img class="ikqb_img" src=" &。; &nbsp。===========================================================在网络上找了个类似的LSP;exit& ._dimaligned&尺寸线位置。;& &ali&layer& & &nbsp.jpg" esrc="http.ver&exit&quot.选择多个对象(直线)&nbsp.hiphotos.hiphotos:(回车退出)&LINE&quot://b;(command &n&.自动标注&nbsp.))&nbsp:& & & &nbsp.jpg" target="_blank" title="点击查看大图" class="ikqb_img_alink"><img class="ikqb_img" src="clayer&/zhidao/wh%3D600%2C800/sign=d9a3ef07fae7827add024b/b812c8fcc3cec3fd96bbcd13d488d43f869427 & &quot.5))(= an (* pi 1..)&/zhidao/wh%3D600%2C800/sign=dd6e51fbc9ef91eed8ff4/09fa513d269759eeecf735adb0fb; &nbsp.设置标注偏移尺寸;。给参考; &; &)( &hor& (setq en (entget (car een)) xx (cdr (assoc 0 en)) pp3 (cadr een))&nbsp.0)(/= an pi)(/= an (* pi 0; &nbsp://c;_dimaligned&_dimaligned& &layer&quot://b;))&exit& &)&nbsp.jpg" />有一批直线;;_dimaligned&quot://b;clayer&))& & (setq la (getvar & &nbsp. &/zhidao/wh%3D450%2C600/sign=b00c15bb2c738bd4c474ba3594bbabe0/b812c8fcc3cec3fd96bbcd13d488d43f869427=================================================================; (if (or (= an (* pi 0; (if (and (/= an 0;)& &nbsp
，Y1 ，接下来要解决多选的直线;没人回答;|xx=&.0))(print p1)(princ p3)(princ &)(princ yy)，搞定了偏移;增加偏移========================================================直线的角度jiaodu;|yy=&;获取直线端点坐标X1,偏移100后的坐标 xx yy 偏移后的点为p3(setq x1 (nth 0 p1))(setq y1 (nth 1 p1))(setq xx (- x1 (* 100 (cos (- jiaodu 90)))))(setq yy (- y1 (* 100 (sin (- jiaodu 90)))))(setq p3 (list xx yy 0;)(princ xx)(princ &;;
我有更好的答案
输入个距离1。2、ssget一个选择集就行了。<file fsid="" link="/share/link?shareid=&uk=" name="tt
机械CAD论坛去看看，也许有帮助
其他类似问题
9人觉得有用
为您推荐：
lsp的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁}