求帮完善电气接线图批量折弯程序

cshimao

;;;  修改 荒野孤行 的不修剪圆角程序而来
;;;  bug:倒角后汇合线上有重叠线未删除，我想用;(if (<= len2 len3)(progn (vla-delete obj2)(ssadd ent3 ent2))(vla-delete obj3))这句来删除，但程序无法往下循环，不知是否是删除了ent2引起的？用(ssadd ent3 ent2)把ent3转为ent2可以吗？到底错在哪？请帮忙指点并完善。

程序如下：

2. (defun c:bz (/ dd1 dd2 backup_dd1 backup_dd2 i ss ent1 ent2 ent3)
   
3.   (setvar "OSMODE" 15359)
   
4.   (setvar "CMDECHO" 0)
   
5.   (princ "\n★功能：将两线进行倒角但不修剪。\n提示：若要完成结束请按空格键或Enter键，这样撤销操作可一步到位！\n")
   
6.   (vl-load-com)
   
7.   (setq backup_dd1 (getvar "CHAMFERA")
   
8.         backup_dd2 (getvar "CHAMFERB"))
   
9.   (initget 4)
   
10.   (if (not (setq dd1 (getreal (strcat "\n输入倒角距离：<" (rtos backup_dd1) ">"))))
    
11.     (setq dd1 backup_dd1  dd2 backup_dd2)
    
12.   )
    
13.   (setvar "CHAMFERA" dd1)
    
14.   (setvar "CHAMFERB" dd1)
    
15.   (command "undo" "be")
    
16.   (setvar "OSMODE" 0)
    
17.   (princ  "\n选择一根或一组线折弯：")
    
18.   (setq ss (ssget '((0 . "line"))))
    
19.   (setq ent2 (entsel "\n选择一条汇合线(选择位置决定折弯方向)："))
    
20.   (setq i 0);;;
    
21.   (while (< i (sslength ss));;;
    
22.     (setq ent1 (ssname ss i));;;
    
23.     (command "copy"  (car ent2) "" '(0 0) '(0 0))
    
24.     (setq ent3 (entlast)
    
25.           obj3 (vlax-ename->vla-object ent3)
    
26.           len3 (vlax-curve-getdistatparam  obj3 (vlax-curve-getendparam obj3)))
    
27.     (command "chamfer" "T" "T" ent1 ent2)
    
28.     (setq obj2 (vlax-ename->vla-object (car ent2))
    
29.           len2 (vlax-curve-getdistatparam  obj2 (vlax-curve-getendparam obj2)))
    
30.     ;(if (<= len2 len3)(progn (vla-delete obj2)(ssadd ent3 ent2))(vla-delete obj3))
    
31.     (princ)
    
32.     (setq i (+ i 1));;;
    
33.   )
    
34.   (command "undo" "e")
    
35.   (setvar "OSMODE" 15359)
    
36.   (princ)
    
37. )

(defun c:bz (/ dd1 dd2 backup_dd1 backup_dd2 i ss ent1 ent2 ent3)<br />   (setvar "OSMODE" 15359)<br />   (setvar "CMDECHO" 0)<br />   (princ "\n★功能：将两线进行倒角但不修剪。\n提示：若要完成结束请按空格键或Enter键，这样撤销操作可一步到位！\n")<br />   (vl-load-com)<br />   (setq backup_dd1 (getvar "CHAMFERA")<br />         backup_dd2 (getvar "CHAMFERB"))<br />   (initget 4)<br />   (if (not (setq dd1 (getreal (strcat "\n输入倒角距离：<" (rtos backup_dd1) ">"))))<br />     (setq dd1 backup_dd1  dd2 backup_dd2)<br />   )<br />   (setvar "CHAMFERA" dd1)<br />   (setvar "CHAMFERB" dd1)<br />   (command "undo" "be")<br />   (setvar "OSMODE" 0)<br />   (princ  "\n选择一根或一组线折弯：")<br />   (setq ss (ssget '((0 . "line"))))<br />   (setq ent2 (entsel "\n选择一条汇合线(选择位置决定折弯方向)："))<br />   (setq i 0);;;<br />   (while (< i (sslength ss));;;<br />     (setq ent1 (ssname ss i));;;<br />     (command "copy"  (car ent2) "" '(0 0) '(0 0))<br />     (setq ent3 (entlast)<br />           obj3 (vlax-ename->vla-object ent3)<br />           len3 (vlax-curve-getdistatparam  obj3 (vlax-curve-getendparam obj3)))<br />     (command "chamfer" "T" "T" ent1 ent2)<br />     (setq obj2 (vlax-ename->vla-object (car ent2))<br />           len2 (vlax-curve-getdistatparam  obj2 (vlax-curve-getendparam obj2)))<br />     ;(if (<= len2 len3)(progn (vla-delete obj2)(ssadd ent3 ent2))(vla-delete obj3))<br />     (princ)<br />     (setq i (+ i 1));;;<br />   )<br />   (command "undo" "e")<br />   (setvar "OSMODE" 15359)<br />   (princ)<br /> )

kozmosovia

这种没必要调用CHAMFER命令，直接计算直线顶点坐标修改原始直线并entmake倒角直线。

cshimao

kozmosovia 发表于 2016-7-20 16:38
这种没必要调用CHAMFER命令，直接计算直线顶点坐标修改原始直线并entmake倒角直线。

你的思路很妙，我试试。不过，我还是想知道现在的方法错在哪？

kozmosovia

ENT2的数据类型是（ENAME，POINT），之不能SSADD的

guankuiwu

修改一下！