[已解决】申请个添加工艺孔的程序

hxyjd

增加工艺孔

我是做钣金加工的，经常要优化图形，增加工艺孔类的，用CAD一个个的处理太繁琐，想简化下操作，特申请个添加工艺孔的LISP程序

marting

你画完，孔和两直线不是一体的 一个 多段线吗？ 分散的？

hxyjd

分散和一体的都可以，只看哪个更简单

csharp

圆心是什么计算规则

csharp

2. 
   
3. (defun c:tt1 (/ ss sl e1 e2 kw lst cl p p1 p2)
   
4.   (xd::doc:disableosmode)
   
5.   (xdrx_begin)
   
6.   (while (and (setq ss (ssget '((0 . "line,lwpolyline"))))
   
7.               (setq sl (xdrx_pickset->ents ss))
   
8.               (if (vl-some '(lambda (x)
   
9.                               (= (car (xdrx_getpropertyvalue x "classname")) "LWPOLYLINE")
   
10.                             )
    
11.                            sl
    
12.                   )
    
13.                 (setq sl (xdrx_pickset->ents (xdrx_entity_explode t ss)))
    
14.                 t
    
15.               )
    
16.               (>= (length sl) 2)
    
17.               (setq lst        (vl-sort sl
    
18.                                  '(lambda (e1 e2)
    
19.                                     (> (xdrx_getpropertyvalue e1 "length")
    
20.                                        (xdrx_getpropertyvalue e2 "length")
    
21.                                     )
    
22.                                   )
    
23.                         )
    
24.               )
    
25.               (if (> (length lst) 2)
    
26.                 (xdrx_entity_delete (cddr lst))
    
27.                 t
    
28.               )
    
29.               (progn
    
30.                 (setq mod (xd::symbol:get 'FilletMode))
    
31.                 (setq rad (xd::symbol:get 'FilletRad))
    
32.                 (initget 128 "1 2")
    
33.                 (setq kw (getkword (if mod
    
34.                                      (strcat "\n模式[1.倒角(1)/2.圆(2)]<" mod ">: ")
    
35.                                      "\n模式[1.倒角(1)/2.圆(2)]: "
    
36.                                    )
    
37.                          )
    
38.                 )
    
39.                 (if kw
    
40.                   (xd::symbol:put 'FilletMode kw)
    
41.                   t
    
42.                 )
    
43.                 (if (= (xd::symbol:get 'FilletMode) "1")
    
44.                   (progn
    
45.                     (vl-cmdf ".fillet" (car lst) (cadr lst))
    
46.                     t
    
47.                   )
    
48.                   (progn
    
49.                     (setq r (getdist (if rad
    
50.                                        (strcat "\n半径<" (rtos rad 2 4) ">: ")
    
51.                                        "\n半径: "
    
52.                                      )
    
53.                             )
    
54.                     )
    
55.                     (if        (null r)
    
56.                       (setq r rad)
    
57.                       (xd::symbol:put 'FilletRad r)
    
58.                     )
    
59.                     (vl-cmdf ".fillet" (car lst) (cadr lst))
    
60.                     (setq p (xdrx_entity_intersectwith (car lst) (cadr lst) 3))
    
61.                     (setq cl (xdrx_circle_make (car p) r))
    
62.                     (setq p1 (car (xdrx_entity_intersectwith cl (car lst)))
    
63.                           p2 (car (xdrx_entity_intersectwith cl (cadr lst)))
    
64.                     )
    
65.                     (vl-cmdf ".trim"
    
66.                              (list (car lst) p1)
    
67.                              (list (cadr lst) p2)
    
68.                              (list cl (car p))
    
69.                              ""
    
70.                              (list (car lst) (car p))
    
71.                              (list (cadr lst) (car p))
    
72.                              (list cl (polar p1 (angle p1 p2) (* 0.5 (distance p1 p2))))
    
73.                              ""
    
74.                     )
    
75.                     t
    
76.                   )
    
77.                 )
    
78.               )
    
79.          )
    
80.   )
    
81.   (xd::doc:enableosmode)
    
82.   (xdrx_end)
    
83.   (princ)
    
84. )

<br /> (defun c:tt1 (/ ss sl e1 e2 kw lst cl p p1 p2)<br />   (xd::doc:disableosmode)<br />   (xdrx_begin)<br />   (while (and (setq ss (ssget '((0 . "line,lwpolyline"))))<br />               (setq sl (xdrx_pickset->ents ss))<br />               (if (vl-some '(lambda (x)<br />                               (= (car (xdrx_getpropertyvalue x "classname")) "LWPOLYLINE")<br />                             )<br />                            sl<br />                   )<br />                 (setq sl (xdrx_pickset->ents (xdrx_entity_explode t ss)))<br />                 t<br />               )<br />               (>= (length sl) 2)<br />               (setq lst        (vl-sort sl<br />                                  '(lambda (e1 e2)<br />                                     (> (xdrx_getpropertyvalue e1 "length")<br />                                        (xdrx_getpropertyvalue e2 "length")<br />                                     )<br />                                   )<br />                         )<br />               )<br />               (if (> (length lst) 2)<br />                 (xdrx_entity_delete (cddr lst))<br />                 t<br />               )<br />               (progn<br />                 (setq mod (xd::symbol:get 'FilletMode))<br />                 (setq rad (xd::symbol:get 'FilletRad))<br />                 (initget 128 "1 2")<br />                 (setq kw (getkword (if mod<br />                                      (strcat "\n模式[1.倒角(1)/2.圆(2)]<" mod ">: ")<br />                                      "\n模式[1.倒角(1)/2.圆(2)]: "<br />                                    )<br />                          )<br />                 )<br />                 (if kw<br />                   (xd::symbol:put 'FilletMode kw)<br />                   t<br />                 )<br />                 (if (= (xd::symbol:get 'FilletMode) "1")<br />                   (progn<br />                     (vl-cmdf ".fillet" (car lst) (cadr lst))<br />                     t<br />                   )<br />                   (progn<br />                     (setq r (getdist (if rad<br />                                        (strcat "\n半径<" (rtos rad 2 4) ">: ")<br />                                        "\n半径: "<br />                                      )<br />                             )<br />                     )<br />                     (if        (null r)<br />                       (setq r rad)<br />                       (xd::symbol:put 'FilletRad r)<br />                     )<br />                     (vl-cmdf ".fillet" (car lst) (cadr lst))<br />                     (setq p (xdrx_entity_intersectwith (car lst) (cadr lst) 3))<br />                     (setq cl (xdrx_circle_make (car p) r))<br />                     (setq p1 (car (xdrx_entity_intersectwith cl (car lst)))<br />                           p2 (car (xdrx_entity_intersectwith cl (cadr lst)))<br />                     )<br />                     (vl-cmdf ".trim"<br />                              (list (car lst) p1)<br />                              (list (cadr lst) p2)<br />                              (list cl (car p))<br />                              ""<br />                              (list (car lst) (car p))<br />                              (list (cadr lst) (car p))<br />                              (list cl (polar p1 (angle p1 p2) (* 0.5 (distance p1 p2))))<br />                              ""<br />                     )<br />                     t<br />                   )<br />                 )<br />               )<br />          )<br />   )<br />   (xd::doc:enableosmode)<br />   (xdrx_end)<br />   (princ)<br /> )

newer

csharp 发表于 2017-3-5 09:27

从描述看，圆心在交点上。

hxyjd

命令: _appload 已成功加载 工艺孔.lsp。
命令: ; 错误: 读入的 (八进制) 字符不正确: 0
命令:

加载成功，但出现错误了，杀了CAD病毒，也重装了CAD，但还是一样。CAD版本为2007


命令:
命令: _appload 已成功加载 tt1.lsp。
命令:
命令:
命令: tt1
; 错误: no function definition: XD::DOC:DISABLEOSMODE
命令:



不知道什么情况，加载成功，但用不了

marting

hxyjd 发表于 2017-3-5 14:00

可能是你编辑软件的编码问题， 你直接从论坛拷贝，然后直接粘贴到CAD命令行，看看如何？

csharp

加载库文件

hxyjd

csharp 发表于 2017-3-5 14:39

你好，请问怎么加载库文件，刚重装了系统和CAD2007.

marting

hxyjd 发表于 2017-3-5 14:57

提示八进制错误，是你拷贝编辑后的代码的编码不对。 你把 论坛代码 直接拷贝粘贴到命令行，看还提示 八进制错误不， 出现八进制错误是你没加载成功。

如果不提示这个错误了，你安装下XDRX API 或者 晓东工具箱，然后再执行代码。代码里面用到了XDRX API里面的函数。

marting

hxyjd 发表于 2017-3-5 14:57

关于提示八进制错误的，你看看这个帖子的解决办法。

http://bbs.xdcad.net/thread-706549-1-1.html

330774521lhq

啥也不说了，感谢楼主分享哇！

hxyjd

已经解决了，谢谢,安装最新的工具箱，在CAD下，用VLIDE命令，创建一个新文件，然后把代码粘贴过去，保存成LISP，再加载就不出现问题了。可以完美使用，特别感谢大师编的程序，省了很多事了

newer

hxyjd 发表于 2017-3-5 15:57

解决了，就编辑下主题帖，在[编程申请]后面加上【已解决】吧。