有谁能半忙改下这段代码，让模糊距离0 输入量可以记忆下来。

a4587332

(defun c:jf () (c:pljoinfuzz))
(defun c:pljoinfuzz (/ ss1 entLine objTypeoldcmdecho oldpeditaccept fuzz okObjects)
  (setq oldcmdecho (getvar"cmdecho"))
  (setq oldpeditaccept (getvar"PEDITACCEPT"))
  (setvar "cmdecho" 0)
  (setq A2k4 (>= (substr (getvar"ACADVER") 1 2) "16"))
  (if A2k4 (setvar"PEDITACCEPT" 0))
  (setq       okObjects '((0 . "LINE,ARC,POLYLINE,LWPOLYLINE")))
  (princ "\n请选择需要连接的直线，圆弧，多义线: ")
  (setq ss1 (ssget okObjects))
  (setq fuzz (getdist "\n模糊距离 <0>: "))
  (if (= fuzz nil) (setq fuzz 0))
  (if (/= ss1 nil)
      (progn
        (setq objType (cdr(assoc 0 (entget (setq entLine (ssname ss1 0))))))
        (if (= (sslength ss1)1) (setq ss1 (ssget "X" okObjects)))
        (if (member objType'("LINE" "ARC"))
          (command"_.pedit" "_M" ss1 "" "_Y""_J" "_J" "_B" fuzz "")
          (command"_.pedit" "_M" ss1 "" "_J""_J" "_B" fuzz "")
        )
      )
  )
  (setvar "cmdecho" oldcmdecho)
  (if A2k4 (setvar"PEDITACCEPT" oldpeditaccept))
  (princ)
)
(princ "\n *******连接程序。命令: JF ************\n")
(princ)

——————————————————————————————————————————————

有谁能半忙改下这段代码，让模糊距离0 输入量可以记忆下来。

Underway

(setq fuzz (getdist
              (strcat
                "\n模糊距离 <"
                (if *FUZZ* (Rtos *FUZZ* 2 2) "0")
                "> : "
              )  
            )  
)               
(if (= fuzz nil) (setq fuzz 0))
(setq *FUZZ* fuzz)

a4587332

Underway 发表于 2013-9-21 12:37
(setq fuzz (getdist
              (strcat
                "\n模糊距离  : "

谢谢，这位高人~但是代码加上去了还是只能连接一端线段

zxq0220

2. (defun c:jf () (c:pljoinfuzz))
   
3. (defun c:pljoinfuzz (/ ss1 entLine objTypeoldcmdecho oldpeditaccept fuzz okObjects)
   
4.   (setq oldcmdecho (getvar"cmdecho"))
   
5.   (setq oldpeditaccept (getvar"PEDITACCEPT"))
   
6.   (setvar "cmdecho" 0)
   
7.   (setq A2k4 (>= (substr (getvar"ACADVER") 1 2) "16"))
   
8.   (if A2k4 (setvar"PEDITACCEPT" 0))
   
9.   (setq okObjects '((0 . "LINE,ARC,*POLYLINE")))
   
10.   (princ "\n请选择需要连接的直线，圆弧，多义线: ")
    
11.   (setq ss1 (ssget okObjects))
    
12.   (setq *FUZZ* (if *FUZZ* *FUZZ* 0))
    
13.   (setq fuzz (getdist (strcat "\n模糊距离 <" (rtos *FUZZ* 2 2) ">: ")))
    
14.   (if (= fuzz nil) (setq fuzz 0) (setq *FUZZ* fuzz))
    
15.   (if ss1
    
16.    (if (ssget "P" '((0 . "ARC,LINE")))
    
17.     (command "_.PEDIT" "_M" ss1 "" "_Y" "_J" fuzz "")
    
18.     (command "_.PEDIT" "_M" ss1 "" "_J" fuzz "")
    
19.    )
    
20.   )
    
21. (setvar "cmdecho" oldcmdecho)
    
22.   (if A2k4 (setvar"PEDITACCEPT" oldpeditaccept))
    
23.   (princ)
    
24. )
    
25. (princ "\n *******连接程序。命令: JF ************\n")
    
26. (princ)
    

(defun c:jf () (c:pljoinfuzz))<br /> (defun c:pljoinfuzz (/ ss1 entLine objTypeoldcmdecho oldpeditaccept fuzz okObjects)<br />   (setq oldcmdecho (getvar"cmdecho"))<br />   (setq oldpeditaccept (getvar"PEDITACCEPT"))<br />   (setvar "cmdecho" 0)<br />   (setq A2k4 (>= (substr (getvar"ACADVER") 1 2) "16"))<br />   (if A2k4 (setvar"PEDITACCEPT" 0))<br />   (setq okObjects '((0 . "LINE,ARC,*POLYLINE")))<br />   (princ "\n请选择需要连接的直线，圆弧，多义线: ")<br />   (setq ss1 (ssget okObjects))<br />   (setq *FUZZ* (if *FUZZ* *FUZZ* 0))<br />   (setq fuzz (getdist (strcat "\n模糊距离 <" (rtos *FUZZ* 2 2) ">: ")))<br />   (if (= fuzz nil) (setq fuzz 0) (setq *FUZZ* fuzz))<br />   (if ss1<br />    (if (ssget "P" '((0 . "ARC,LINE")))<br />     (command "_.PEDIT" "_M" ss1 "" "_Y" "_J" fuzz "")<br />     (command "_.PEDIT" "_M" ss1 "" "_J" fuzz "")<br />    )<br />   )<br /> (setvar "cmdecho" oldcmdecho)<br />   (if A2k4 (setvar"PEDITACCEPT" oldpeditaccept))<br />   (princ)<br /> )<br /> (princ "\n *******连接程序。命令: JF ************\n") <br /> (princ)<br />

a4587332

zxq0220 发表于 2013-9-22 07:47

非常感谢这位大侠好心帮助

这段代码首次用有效果，不知道是不是调用了原始pedit命令  在选中的时候再输入命令无效~