[求助]：请教线开口的问题

zhengguoyun

;;;线开口
(defun c:test040 (/ pt1 pt2 pt3 sss nnn e leng df s1)
  (CMDLA0)
  (setvar "osmode" 0)
  (setq        pt1 (getvar "VSMIN")
        pt2 (getvar "VSMax")
        pt3 (xyp-get-MidPoint pt1 pt2)
        SSS (ssget '((0 . "CIRCLE,ELLIPSE,*LINE,ARC")))
        NO1 (UDIST 1 "" "\n\t线长" NO1 pt3)
        NO2 (UDIST 1 "" "\n\t缺口长" NO2 pt3)
        nnn -1
  )

  (while (setq e (ssname sss (setq nnn (1+ nnn))))
    (setq leng (vlax-curve-getDistAtParam e (vlax-curve-getEndParam e))
          df   (fix (abs (/ leng (+ NO1 no2))))
    )
    (repeat df
      (setq pt1        (vlax-curve-getPointAtDist
                  (vlax-ename->vla-object e)
                  no1
                )
            pt2        (vlax-curve-getPointAtDist
                  (vlax-ename->vla-object e)
                  (+ no1 no2)
                )
      )
      (command "break" e pt1 pt2)
      (command "select" "l" "")
      (setq s1 (ssget "p")
            e  (ssname s1 0)
      )
    )
  )
  (CMDLA1)
)
这是在“通用函数及实用程序汇总1111“ 里面摘录的，我发现了一个问题，在CAD中如果有好多图形时，选中其中一个加缺口，发现在未选中的图形也加了缺口， 估计是  “(command "select" "l" "")
      (setq s1 (ssget "p")
            e  (ssname s1 0)
      )
”的问题， 高手帮我呀

xyp1964

2. [FONT=courier new];;;线开口
   
3. (defun c:test040 (/ pt1 pt2 ss i e leng df ss1)
   
4.   (CMDLA0)
   
5.   (setvar "osmode" 0)
   
6.   (setq        NO1 (UREAL 7 "" "\n线长" no1)
   
7.         NO2 (UREAL 7 "" "\n缺口长" no2)
   
8.         ss  (ssget '((0 . "CIRCLE,ELLIPSE,*LINE,ARC")))
   
9.         i   -1
   
10.   )
    
11.   (while (setq e (ssname ss (setq i (1+ i))))
    
12.     (setq leng (vlax-curve-getDistAtParam e (vlax-curve-getEndParam e))
    
13.           df   (fix (abs (/ leng (+ NO1 no2))))
    
14.     )
    
15.     (repeat df
    
16.       (setq pt1        (vlax-curve-getPointAtDist
    
17.                   (vlax-ename->vla-object e)
    
18.                   no1
    
19.                 )
    
20.             pt2        (vlax-curve-getPointAtDist
    
21.                   (vlax-ename->vla-object e)
    
22.                   (+ no1 no2)
    
23.                 )
    
24.       )
    
25.       (command "break" e pt1 pt2)
    
26.       (setq e (entlast))
    
27.     )
    
28.   )
    
29.   (CMDLA1)
    
30. )[/FONT]

[FONT=courier new];;;线开口<br /> (defun c:test040 (/ pt1 pt2 ss i e leng df ss1)<br />   (CMDLA0)<br />   (setvar "osmode" 0)<br />   (setq        NO1 (UREAL 7 "" "\n线长" no1)<br />         NO2 (UREAL 7 "" "\n缺口长" no2)<br />         ss  (ssget '((0 . "CIRCLE,ELLIPSE,*LINE,ARC")))<br />         i   -1<br />   )<br />   (while (setq e (ssname ss (setq i (1+ i))))<br />     (setq leng (vlax-curve-getDistAtParam e (vlax-curve-getEndParam e))<br />           df   (fix (abs (/ leng (+ NO1 no2))))<br />     )<br />     (repeat df<br />       (setq pt1        (vlax-curve-getPointAtDist<br />                   (vlax-ename->vla-object e)<br />                   no1<br />                 )<br />             pt2        (vlax-curve-getPointAtDist<br />                   (vlax-ename->vla-object e)<br />                   (+ no1 no2)<br />                 )<br />       )<br />       (command "break" e pt1 pt2)<br />       (setq e (entlast))<br />     )<br />   )<br />   (CMDLA1)<br /> )[/FONT]

zhengguoyun

我试了楼主的办法，好象也不行，我现在采用的方法好象挺好的，
将(setq e (entlast))改为（SETQ E （SSNAME （SSGET “C”PT2  PT2） 0））就好了

xyp1964

最初由 zhengguoyun 发布
[B]我试了楼主的办法，好象也不行，我现在采用的方法好象挺好的，
将(setq e (entlast))改为（SETQ E （SSNAME （SSGET “C”PT2  PT2） 0））就好了 [/B]

只要好用就行。
不过，真是这样（SETQ E （SSNAME （SSGET “C”PT2  PT2） 0））肯定不行！！