test

starlet2003

局部修改LW线的问题

如果想通过画示意线的方式来局部修改LWPOLYLINE线的话，有什么思路吗？

Free-Lancer

一个示例，不太完善

2. (defun c:tt (/ e el obj p pa1 tf code typ)
   
3.   (if (and (setq e (entsel "\nPick Pline: "))
   
4.            (setq el (entget (car e)))
   
5.            (wcmatch (strcase (cdr (assoc 0 el))) "*POLYLINE")
   
6.       )
   
7.     (progn
   
8.       (setq obj        (vlax-ename->vla-object (car e))
   
9.             p        (vlax-curve-getclosestpointto obj (cadr e))
   
10.             pa1        (fix (vlax-curve-getparamatpoint obj p))
    
11.             tf        t
    
12.       )
    
13.       (while tf
    
14.         (setq code (grread t 12 4)
    
15.               typ  (car code)
    
16.         )
    
17.         (redraw)
    
18.         (cond
    
19.           ((= typ 3)
    
20.            (vla-setwidth
    
21.              obj
    
22.              pa1
    
23.              (distance p (cadr code))
    
24.              (distance p (cadr code))
    
25.            )
    
26.            (setq tf nil)
    
27.           )
    
28.           ((= typ 5)
    
29.            (grdraw p (cadr code) 4 1)
    
30.            (vla-setwidth
    
31.              obj
    
32.              pa1
    
33.              (distance p (cadr code))
    
34.              (distance p (cadr code))
    
35.            )
    
36.           )
    
37.           (t
    
38.           
    
39.            (setq tf nil)
    
40.           )
    
41.         )
    
42.       )
    
43.     )
    
44.   )
    
45.   (princ)
    
46. )

(defun c:tt (/ e el obj p pa1 tf code typ)<br />   (if (and (setq e (entsel "\nPick Pline: "))<br />            (setq el (entget (car e)))<br />            (wcmatch (strcase (cdr (assoc 0 el))) "*POLYLINE")<br />       )<br />     (progn<br />       (setq obj        (vlax-ename->vla-object (car e))<br />             p        (vlax-curve-getclosestpointto obj (cadr e))<br />             pa1        (fix (vlax-curve-getparamatpoint obj p))<br />             tf        t<br />       )<br />       (while tf<br />         (setq code (grread t 12 4)<br />               typ  (car code)<br />         )<br />         (redraw)<br />         (cond<br />           ((= typ 3)<br />            (vla-setwidth<br />              obj<br />              pa1<br />              (distance p (cadr code))<br />              (distance p (cadr code))<br />            )<br />            (setq tf nil)<br />           )<br />           ((= typ 5)<br />            (grdraw p (cadr code) 4 1)<br />            (vla-setwidth<br />              obj<br />              pa1<br />              (distance p (cadr code))<br />              (distance p (cadr code))<br />            )<br />           )<br />           (t<br />            <br />            (setq tf nil)<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )