[注意]大家有关LISP编程的问题我愿乐意解答。。。

ljpnb · 发表于 2006-1-17 20:27:00

如题，我对LISP略知一二，大家有什么需要帮忙的，发贴上来，我会的有应必答。

ljpnb · 发表于 2006-1-18 14:05:00

已修改过了,请见链接地址

pwints1 · 发表于 2006-1-24 21:30:00

哦，不错
谢谢
那你能写个焊接符号的lisp程序吗？
其实我觉得同舟的就写的很好 只是编译过了，看不到源码

[此贴子已经被作者于2006-1-24 21:31:59编辑过]

ljpnb · 发表于 2006-1-25 09:03:00

你说的焊接符号我是不太会用到，同舟的程序在哪儿，给个链接，我看一下操作过程和结果

pwints1 · 发表于 2006-2-6 21:27:00

这个论坛板块里就有
呵呵

l2ee · 发表于 2006-2-17 00:10:00

想问一下在lisp中用entsel功能时如何用object snap，许多书都没说是什么格式，只说可以做到,谢谢！！

[此贴子已经被作者于2006-2-17 0:11:20编辑过]

pdca9799 · 发表于 2006-2-17 12:40:00

这个3d螺纹程序能做成任意牙形角吗？谢谢！

ljpnb · 发表于 2006-2-21 08:10:00

To 7楼,entsel用object snap这个我倒没有用到过,因为选择单个物体很少有人会和object snap组合去选择物体,这样做没什么意义,不知道你的本意是怎么样?
TO 8楼,这个程序我试了一下,可以做出3D的螺纹,应该是普通螺纹,至于你说的想改成任意牙形角,当然可以做到,需要的话可以帮你修改一下.

l2ee · 发表于 2006-2-21 18:58:00

帮助中所说trim extend等功能所用的就是这种方法，我想做的是一个自动判断标注的小程序，判断是直线和圆用不同的标注方式，选择时如果是直线就自动捕捉端点或交点等，做为标注的第一点，其它方法应该也可以实现，但还想知道这个命令的具体用法

ljpnb · 发表于 2006-2-22 16:24:00

<DIV class=quote>以下是引用l2ee在2006-2-21 18:58:23的发言： 帮助中所说trim extend等功能所用的就是这种方法，我想做的是一个自动判断标注的小程序，判断是直线和圆用不同的标注方式，选择时如果是直线就自动捕捉端点或交点等，做为标注的第一点，其它方法应该也可以实现，但还想知道这个命令的具体用法</DIV>
这个可以实现，比如直线和圆的相对应的DXF组码如下： 圆的DXF组码 选择对象: ((-1 . <图元名: 7ef84d68>) (0 . "CIRCLE") (330 . <图元名: 7ef63cc0>) (5 . "D55") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "CONTINUOUS") (100 . "AcDbCircle") (10 -111.664 -683.145 0.0) (40 . 9.89847) (210 0.0 0.0 1.0)) 直线的DXF组码 选择对象: ((-1 . <图元名: 7ef84d60>) (0 . "LINE") (330 . <图元名: 7ef63cc0>) (5 . "D54") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "CONTINUOUS") (100 . "AcDbLine") (10 -134.756 -667.031 0.0) (11 -78.6741 -667.764 0.0) (210 0.0 0.0 1.0)) 只要判断(0 . "CIRCLE") 或是(0 . "LINE") ，选择相应的标注方式。

l2ee · 发表于 2006-2-22 21:22:00

首先谢谢楼上，但这个方法我做到了，不过有点贪心，想做得跟一般的标注一样，以上的实现方法在标注前多点击了一下，只是想探讨一下，因为看到帮助中说可以才想到问一下.

ljpnb · 发表于 2006-2-23 09:56:00

为什么会多点击了一下?????可否将你的程序贴上来我看看.

l2ee · 发表于 2006-2-23 20:28:00

我已经解决了，明天上传

l2ee · 发表于 2006-2-24 12:41:00

正常的dimlinear只是选起、终点和放置点，如果不锁点要多一步选物体，再执行dimlinear，与习惯不太一样，现在做的也不象我想象的（不知道怎么上传，把程序直接贴上去了，锁点后的操作与我的样板设置有关）(defun c:dd(/ lst1 lst pt pt1 pt2 sign)   (setvar "cmdecho" 0)   (setq lst1(entsel "\n 选择标注的起始点:"))   (setq pt(cadr lst1))   (setq sign(cdr(assoc 0 (entget (car lst1)))))   (setq lst2(entget (car lst1)))   (if (equal sign "LINE")     (progn       (setq pt1(osnap(cadr lst1) "endp,midp,inte"))       (setq pt2(getpoint pt1 "\n选择第二点:"))       (command "dimlinear" pt1 pt2 pause)       (setq lst (entget(entlast)))       (setq lst(subst(cons 8 "Text")(assoc 8 lst)lst))       (setq lst(subst(cons 1 "%%c<>")(assoc 1 lst)lst))       (setq lst(subst(cons 3 "ISO-25")(assoc 3 lst)lst))       (entmod lst)              )     )   (if (equal sign "CIRCLE")     (progn       (setq pt1(osnap(cadr lst1) "nea"))             (command "dimdiameter" pt1 pause)       (setq lst (entget(entlast)))       (setq lst(subst(cons 8 "Text")(assoc 8 lst)lst))       (setq lst(subst(cons 3 "大孔标注")(assoc 3 lst)lst))       (entmod lst)       )     )   )

[此贴子已经被作者于2006-2-24 12:43:05编辑过]

ljpnb · 发表于 2006-2-24 18:31:00

格式方面不太规范,我改了一下
(defun c:dd (/ lst1 lst pt pt1 pt2 sign) (setvar "cmdecho" 0) (setq lst (entsel "\n 选择标注的起始点:") ent (car lst) pt (cadr lst) data (entget ent) name (cdr (assoc 0 data)) ) (if (= name "LINE") (progn (setq pt1 (osnap pt "endp,midp,int")) (setq pt2 (getpoint pt1 "\n选择第二点:")) (command "dimlinear" "non" pt1 "non" pt2 pause) (setq lst (entget (entlast))) (setq lst (subst (cons 8 "Text") (assoc 8 lst) lst)) (setq lst (subst (cons 1 "%%c<>") (assoc 1 lst) lst)) (setq lst (subst (cons 3 "ISO-25") (assoc 3 lst) lst)) (entmod lst) ) ) (if (= name "CIRCLE") (progn (setq pt1 (osnap pt "nea")) (command "dimdiameter" pt1 pause) (setq lst (entget (entlast))) (setq lst (subst (cons 8 "Text") (assoc 8 lst) lst)) (setq lst (subst (cons 3 "大孔标注") (assoc 3 lst) lst)) (entmod lst) ) ) (princ) )

[此贴子已经被作者于2006-2-24 18:34:42编辑过]

l2ee · 发表于 2006-2-24 19:02:00

谢谢！清晰很多。

ljpnb · 发表于 2006-2-24 19:58:00

平时有什么问题可以发贴上来,大家可以讨论讨论

kerryout · 发表于 2006-3-19 09:58:00

我是个初学者，想了解一下COMMAND 命令，能否将一些常用的，比如画圆弧，多边形等等的格式介绍给我？谢谢！

ljpnb · 发表于 2006-3-19 21:37:00

其实程序中的command命令的格式与命令行执行的命令过程是一样，你只要参照命令行的提示一步步操作就行了。比如：(command "line"   (setq p0 (getpoint "\n选择直线的起点："))   (getpoint p0  "\n选择第二点：")   "" )

wenzhihe · 发表于 2006-4-2 16:05:00

请问dcl的驱动程序怎么编？有嵌套的。

		自动登录	找回密码
密码			注册

申请者注册名：		*默认获取当前用户名
性别：	男女
年龄：		*请填写您的真实年龄
职业：		*请填写您当前的职业
申请版区名称：		*请选择您申请的版区
联系电话：		*请填写您的联系电话，此项必填！
我的QQ：		*请填写您的QQ，此项必填！
我的专业特长：		*请填写您的特长领域
申请理由：		*请填写您为什么要申请的理由
管理措施：		*您准备以何种措施管理申请的版块？

[注意]大家有关LISP编程的问题我愿乐意解答。。。

本帖子中包含更多资源

浏览过的版块

招聘信息 /5

求职信息 /5

技术求助 /5

×