（完成）[编程申请]：将所选线的端点汇聚一点（附图）

星期八

希望能框选部分线（SPL线，PL线和Line线）的端点，并指定某端点为最终交汇点，将所选线的端点汇聚最终交汇点。关键要能对SPL线起作用。见图:
谢谢!

eachy

2. 
   
3. (defun c:ChgLp (/ ss e el ep etyp p sp ssl)
   
4.   (if (and (setq p (getpoint "\n集中点: "))
   
5.            (progn
   
6.              (princ "\n选择要修改的Spline,Line,Pline...")
   
7.              (if (setq ss (ssget '((0 . "Spline,line,lwpolyline"))))
   
8.                ss
   
9.                t
   
10.              )
    
11.            )
    
12.       )
    
13.     (progn
    
14.       (setq ssl (sslength ss))
    
15.       (while (> ssl 0)
    
16.         (setq e           (ssname ss (setq ssl (1- ssl)))
    
17.               el   (entget e)
    
18.               sp   (vlax-curve-getstartpoint e)
    
19.               ep   (vlax-curve-getendpoint e)
    
20.               etyp (cdr (assoc 0 el))
    
21.         )
    
22.         (if (> (distance sp p) (distance ep p))
    
23.           (cond
    
24.             ((= etyp "LINE")
    
25.              (entmod (subst (cons 11 p) (assoc 11 el) el))
    
26.             )
    
27.             ((= etyp "SPLINE")
    
28.              (entmod (subst (cons 10 p)
    
29.                             (assoc 10 (reverse el))
    
30.                             el
    
31.                      )
    
32.              )
    
33.             )
    
34.             (t
    
35.              (entmod (subst (list 10 (car p) (cadr p))
    
36.                             (assoc 10 (reverse el))
    
37.                             el
    
38.                      )
    
39.              )
    
40.             )
    
41.           )
    
42.           (cond
    
43.             ((= etyp "LINE")
    
44.              (entmod (subst (cons 10 p) (assoc 10 el) el))
    
45.             )
    
46.             ((= etyp "SPLINE")
    
47.              (entmod (subst (cons 10 p)
    
48.                             (assoc 10 el)
    
49.                             el
    
50.                      )
    
51.              )
    
52.             )
    
53.             (t
    
54.              (entmod (subst (list 10 (car p) (cadr p))
    
55.                             (assoc 10 el)
    
56.                             el
    
57.                      )
    
58.              )
    
59.             )
    
60.           )
    
61.         )
    
62.       )
    
63.     )
    
64.   )
    
65.   (princ)
    
66. )

<br /> (defun c:ChgLp (/ ss e el ep etyp p sp ssl)<br />   (if (and (setq p (getpoint "\n集中点: "))<br />            (progn<br />              (princ "\n选择要修改的Spline,Line,Pline...")<br />              (if (setq ss (ssget '((0 . "Spline,line,lwpolyline"))))<br />                ss<br />                t<br />              )<br />            )<br />       )<br />     (progn<br />       (setq ssl (sslength ss))<br />       (while (> ssl 0)<br />         (setq e           (ssname ss (setq ssl (1- ssl)))<br />               el   (entget e)<br />               sp   (vlax-curve-getstartpoint e)<br />               ep   (vlax-curve-getendpoint e)<br />               etyp (cdr (assoc 0 el))<br />         )<br />         (if (> (distance sp p) (distance ep p))<br />           (cond<br />             ((= etyp "LINE")<br />              (entmod (subst (cons 11 p) (assoc 11 el) el))<br />             )<br />             ((= etyp "SPLINE")<br />              (entmod (subst (cons 10 p)<br />                             (assoc 10 (reverse el))<br />                             el<br />                      )<br />              )<br />             )<br />             (t<br />              (entmod (subst (list 10 (car p) (cadr p))<br />                             (assoc 10 (reverse el))<br />                             el<br />                      )<br />              )<br />             )<br />           )<br />           (cond<br />             ((= etyp "LINE")<br />              (entmod (subst (cons 10 p) (assoc 10 el) el))<br />             )<br />             ((= etyp "SPLINE")<br />              (entmod (subst (cons 10 p)<br />                             (assoc 10 el)<br />                             el<br />                      )<br />              )<br />             )<br />             (t<br />              (entmod (subst (list 10 (car p) (cadr p))<br />                             (assoc 10 el)<br />                             el<br />                      )<br />              )<br />             )<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

星期八

大侠：
无论R14还是2002加载后，均不能对SPL线起作用。
请帮忙看看

cdmar

多谢版主！加载试用中！

eachy

最初由 星期八 发布
[B]大侠：
无论R14还是2002加载后，均不能对SPL线起作用。
请帮忙看看 [/B]

很遗憾，我现在只用CAD2005，不能测试。

tangyiyi

用chang命令就行了

lhdlgmz

试了：1、选择要一个一个的选。2、能交汇但无法指定交汇点。

zxq0220

将eachy斑竹的程序修改如下:
[php]
(defun c:ChgLp (/ P SS SSL EL ETYP SP EP PC R)
  (if (and (setq p (getpoint "\n集中点: "))
           (progn
             (princ "\n选择要修改的Arc,Spline,Line,Pline...")
             (if (setq ss (ssget '((0 . "Arc,Spline,line,lwpolyline"))))
               ss
               t
             )
           )
      )
    (progn
      (setq ssl (sslength ss))
      (REPEAT ssl
        (SETQ EL (ENTGET (SSNAME SS (SETQ SSL (1- SSL)))))
        (SETQ ETYP (CDR (ASSOC 0 EL)))
        (COND
          ((= ETYP "LINE")
           (SETQ SP (CDR (ASSOC 10 EL))
                 EP (CDR (ASSOC 11 EL))
           )
          )
          ((= ETYP "ARC")
           (SETQ PC (CDR (ASSOC 10 EL))
                 R  (CDR (ASSOC 40 EL))
                 SP (POLAR PC (CDR (ASSOC 50 EL)) R)
                 EP (POLAR PC (CDR (ASSOC 51 EL)) R)
           )
          )
          ((OR (= ETYP "SPLINE") (= ETYP "LWPOLYLINE"))
           (SETQ SP (CDR (ASSOC 10 EL))
                 EP (CDR (ASSOC 10 (REVERSE EL)))
           )
          )
        )
        (IF (> (DISTANCE SP P) (DISTANCE EP P))
          (COMMAND "STRETCH" "C" EP EP "" EP P)
          (COMMAND "STRETCH" "C" SP SP "" SP P)
        )
      )                                        ; end while
    )
  )                                        ; end if
  (princ)
)
[/php]
程序在R14版调试通过,支持ARC、LINE、LWPOLYLINE、SPLINE。

星期八

真是谢谢热心的朋友们啊。
这个软件是提高工作效率！