关于用程序自动修改的问题，请高人帮忙．

SQ215 · 发表于 2007-4-11 09:03

本帖最后由作者于 2007-4-11 9:04:29 编辑

请高人帮一下，我经常会处理大量的这样的文件，就是有很多处没有交上，需要用手工fillet 0来把相临的二条线交上，如外面四个箭头所指处．另外还有，就是如中间箭头所指处是两条线断，需要改成一条直线．

请高人看看用ＬＩＳＰ自动修改有没有可能？应如何编这些程序？思路是什么？

SQ215 · 发表于 2007-4-11 17:15

怎么没人回复，这难度很大吗？哪位高人给我支下招行吗？

zml84 · 发表于 2007-4-11 19:05

本帖最后由作者于 2007-4-11 19:08:50 编辑

楼主也太心急了，高手可不是经常在线的。

一、对于图形中间的直线连接，可以通过调用系统命令JOIN来完成。
二、对于接头处的断开问题，可以使用延伸和剪切，并诸次探测的方法解决。
其步骤是：
1.先设置一个较小的尺寸阀值，这个阀值应比所要操作对象的个体都大；
2.提示选择要操作的一堆对象；
3.设第一个对象为当前对象；
4.以其它对象为边界，延伸和剪切当前对象；
3.然后判断：a.若当前对象无变化，则下一个对象；
b.若当前对象的变化值大于阀值，则回撤操作，并下一个对象；
c.若当前对象的变化值不大于阀值，则继续对当前对象进行操作（即转到 4 ）
4.直至选择的对象全部完成。

复制代码

SQ215 · 发表于 2007-4-12 08:02

JOIN是哪个版本的命令，我这是２００４的，怎么没有这个命令．

在这先谢谢３楼的朋友，不过你说的我不是太懂．阀值是固定不变的吗？怎么判断对像的变化值是否大于阀值？

zml84 · 发表于 2007-4-12 19:05

一、JOIN是2006版的命令。
二、阀值是允许被操作对象改变的尺寸大小。
阀值的大小可以固定不变，也可以根据不同使用对象进行设置。
三、

怎么判断对像的变化值是否大于阀值？

这个问题应该是“怎么判断对像的变化值的大小？”，答案是比较操作前后当前对象的起终点坐标。
四、关于获得比较操作前后当前对象的典型例子代码如下：
http://p4.xdcad.net/forum/showthread.php?s=&postid=3106068#post3106068 第6楼代码如下：

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;ZML84制作于2006-12-07
;;;==========================================
;;;全局变量说明：
;;;EDGE_JL 外延距离
;;;==========================================
(defun c:tt (/ S0 S1 PT entl LX
PT0 PT0_OLD PT1 PT1_OLD)
(princ "\n★★超级修剪★★")
(setq CMDECHO_OLD (getvar "CMDECHO")
)
(Setvar "CMDECHO" 0)
(if (or (= EDGE_jl "") (= EDGE_jl nil))
(setq EDGE_jl 5.0)
)
(princ
(strcat "\n当前设置:投影="
(nth (getvar "PROJMODE") '("不投影" "当前UCS" "当前视图"))
"，边="
(nth (getvar "EDGEMODE") '("不延伸" "延伸"))
"，外延距离="
(rtos EDGE_JL 2 (getvar "LUPREC"))
)
)
(princ "\n选择剪切边...")
(setq S0 (ssget))
(if (= S0 nil)
(princ "\n★未选择边界，即将退出。")
(progn
(setq S1 nil)
(while (or (/= S1 nil)
(/= nil
(progn (initget 4 "P E D U")
(setq pt (GETPOINT
"\n选择要修剪的对象，或 [投影(P)/边(E)/外延距离(D)/放弃(U)]:"
)
)
)
)
)
(cond
((= pt "P") ;分支一：投影选项设置
(progn
(initget 4)
(SETQ
XX (getint
(strcat
"\n输入投影选项 [无(0)/UCS(1)/视图(2)] <"
(itoa (getvar "PROJMODE"))
">:"
)
)
)
(if (or (= xx 0) (= xx 1) (= xx 2))
(Setvar "PROJMODE" xx)
)
)
)
((= pt "E") ;分支二：边延伸选项设置
(progn
(initget 4)
(SETQ XX (getint
(strcat
"\n输入隐含边延伸模式 [不延伸(0)/延伸(1)] <"
(itoa (getvar "EDGEMODE"))
">:"
)
)
)
(if (or (= xx 0) (= xx 1))
(Setvar "EDGEMODE" xx)
)
)
)
((= pt "D") ;分支三：外延距离选项设置
(progn
(initget 4)
(SETQ XX (getdist
(strcat
"\n输入外延的距离 <"
(rtos EDGE_jl
2
(getvar "LUPREC")
)
">:"
)
)
)
(if (>= xx 0)
(setq EDGE_jl xx)
)
)
)
((= pt "U") ;分支四：撤销上一步操作
(command "_.undo" 1)
)
((listp pt) ;分支五：对选中的对象进行修剪操作
(if (ssget pt)
(progn
(setq s1 (list (ssname (ssget pt) 0) pt))
(setq entl (entget (car s1) '("*"))
LX (dxf_let entl 0)
)
(cond ;对各种对象类型进行操作。
((= LX "LINE")
(progn
(command "_.undo" "be")
(setq pt0_old (dxf_let entl 10)
pt1_old (dxf_let entl 11)
)
(command "_trim" s0 "" s1 "")
(setq entl (entget (car s1) '("*")))
(setq pt0 (dxf_let entl 10)
pt1 (dxf_let entl 11)
)
(if (and (equal pt0 pt0_old)
(equal pt1 pt1_old)
)
(princ "\n★对象未与边相交。")
(progn
(if (not (equal pt0 pt0_old))
;检查起点
(dxf_set
entl
10
(polar pt0
(angle pt0 pt0_old)
EDGE_jl
)
)
(if (not (equal pt1 pt1_old))
;检查终点
(dxf_set
entl
11
(polar pt1
(angle pt1
pt1_old
)
EDGE_jl
)
)
)
)
(command "_.undo" "e")
)
)
)
)
((= LX "ARC")
(princ (strcat "\n★对象类型为""
LX
""，暂不能处理。"
)
)
)
(T
(princ
(strcat "\n★对象类型""
LX
""，拒绝操作。"
)
)
)
)
)
(princ "\n★未选择到对象。")
)
) ;结束分支五
) ;结束 cond 结束分支
(setq S1 nil)
) ;结束 while
)
) ;结束 if
(Setvar "CMDECHO" CMDECHO_OLD)
(princ "\n★正常结束。谢谢使用。")
(princ)
);结束 defun
;;;定义函数，用于提取属性。
(defun dxf_let (ent n)
(if (assoc n ent)
(cdr (assoc n ent))
nil
)
);结束 defun
;;;定义函数，用于修改属性。
(defun dxf_set (ent n nr)
(if (assoc n ent)
(progn
(setq ent (subst (cons n nr) (assoc n ent) ent)
)
(entmod ent)
)
nil
) ;结束 if
);结束 defun
(princ "\n\n★超级修剪。键入命令"TT"执行。")
(princ)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;ZML84制作于2006-12-07
;;;==========================================
;;;全局变量说明：
;;;EDGE_JL  外延距离
;;;==========================================
(defun c:tt (/ S0 S1 PT entl LX
       PT0 PT0_OLD PT1 PT1_OLD)
    (princ "\n★★超级修剪★★")

(setq CMDECHO_OLD (getvar "CMDECHO")
    )
    (Setvar "CMDECHO" 0)

(if  (or (= EDGE_jl "") (= EDGE_jl nil))
  (setq EDGE_jl 5.0)
    )
    (princ
  (strcat  "\n当前设置:投影="
    (nth (getvar "PROJMODE") '("不投影" "当前UCS" "当前视图"))
    "，边="
    (nth (getvar "EDGEMODE") '("不延伸" "延伸"))
    "，外延距离="
    (rtos EDGE_JL 2 (getvar "LUPREC"))
  )
    )

(princ "\n选择剪切边...")
    (setq S0 (ssget))

(if  (= S0 nil)
  (princ "\n★未选择边界，即将退出。")
  (progn
      (setq S1 nil)
      (while (or (/= S1 nil)
           (/= nil
         (progn (initget 4 "P E D U")
          (setq  pt (GETPOINT
                 "\n选择要修剪的对象，或 [投影(P)/边(E)/外延距离(D)/放弃(U)]:"
             )
          )
         )
           )
       )

(cond
        ((= pt "P") ;分支一：投影选项设置
         (progn
       (initget 4)
       (SETQ
           XX  (getint
            (strcat
          "\n输入投影选项 [无(0)/UCS(1)/视图(2)] <"
          (itoa (getvar "PROJMODE"))
          ">:"
            )
        )
       )
       (if (or (= xx 0) (= xx 1) (= xx 2))
           (Setvar "PROJMODE" xx)
       )
         )
        )

((= pt "E") ;分支二：边延伸选项设置
         (progn
       (initget 4)
       (SETQ XX (getint
              (strcat
            "\n输入隐含边延伸模式 [不延伸(0)/延伸(1)] <"
            (itoa (getvar "EDGEMODE"))
            ">:"
              )
          )
       )
       (if (or (= xx 0) (= xx 1))
           (Setvar "EDGEMODE" xx)
       )
         )
        )

((= pt "D") ;分支三：外延距离选项设置
         (progn
       (initget 4)
       (SETQ XX (getdist
              (strcat
            "\n输入外延的距离 <"
            (rtos  EDGE_jl
            2
            (getvar "LUPREC")
            )
            ">:"
              )
          )
       )
       (if (>= xx 0)
           (setq EDGE_jl xx)
       )
         )
        )

((= pt "U") ;分支四：撤销上一步操作
         (command "_.undo" 1)
        )

((listp pt) ;分支五：对选中的对象进行修剪操作
         (if (ssget pt)
       (progn
           (setq s1 (list (ssname (ssget pt) 0) pt))
           (setq entl  (entget (car s1) '("*"))
           LX  (dxf_let entl 0)
           )

(cond ;对各种对象类型进行操作。
         ((= LX "LINE")
          (progn
              (command "_.undo" "be")
              (setq pt0_old (dxf_let entl 10)
              pt1_old (dxf_let entl 11)
              )
              (command "_trim" s0 "" s1 "")
              (setq entl (entget (car s1) '("*")))
              (setq pt0  (dxf_let entl 10)
              pt1  (dxf_let entl 11)
              )
              (if (and (equal pt0 pt0_old)
                 (equal pt1 pt1_old)
            )
            (princ "\n★对象未与边相交。")
            (progn

(if (not (equal pt0 pt0_old))
     ;检查起点
              (dxf_set
                  entl
                  10
                  (polar pt0
                   (angle pt0 pt0_old)
                   EDGE_jl
                  )
              )
              (if (not (equal pt1 pt1_old))
     ;检查终点
                  (dxf_set
                entl
                11
                (polar pt1
                 (angle  pt1
                  pt1_old
                 )
                 EDGE_jl
                )
                  )
              )
                )
                (command "_.undo" "e")
            )
              )

)
         )
         ((= LX "ARC")
          (princ (strcat "\n★对象类型为""
             LX
             ""，暂不能处理。"
           )
          )
         )
         (T
          (princ
              (strcat "\n★对象类型""
                LX
                ""，拒绝操作。"
              )
          )
         )
           )
       )
       (princ "\n★未选择到对象。")
         )
        ) ;结束 分支五

) ;结束 cond 结束分支

(setq S1 nil)
      ) ;结束 while
  )
    ) ;结束 if

(Setvar "CMDECHO" CMDECHO_OLD)

(princ "\n★正常结束。谢谢使用。")
    (princ)
);结束 defun

;;;定义函数，用于提取属性。
(defun dxf_let (ent n)
    (if  (assoc n ent)
  (cdr (assoc n ent))
  nil
    )
);结束 defun

;;;定义函数，用于修改属性。
(defun dxf_set (ent n nr)
    (if  (assoc n ent)
  (progn
      (setq ent (subst (cons n nr) (assoc n ent) ent)
      )
      (entmod ent)
  )
  nil
    ) ;结束 if
);结束 defun

(princ "\n\n★超级修剪。键入命令"TT"执行。")
(princ)

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

关于用程序自动修改的问题，请高人帮忙．

本帖子中包含更多资源

浏览过的版块