求优化。画焊缝的程序，图形大时执行很慢。谢谢

ly8zx2109

求优化。画焊缝的程序，图形大时执行很慢。谢谢



(defun err (s)
        (if (/= s "Function cancelled")
                (princ (strcat "\nError: " s))
        )
        (setq sset nil)
        (setq *error* olderr)
        (princ)
)

(defun c:hf()
  (setvar "cmdecho" 0)
  (setq oldoffsetdist (getvar "offsetdist"))
  (setq oldosmode (getvar "osmode"))
  (setvar "dimzin" 0)
  (setq olderr *error*
               *error* err)
  (command "undo" "group")
  (setq pt1 (getpoint"\n请选择要添加焊缝上的直线上的焊缝起点："))
  (setq pt2 (getpoint"\n请选择要添加焊缝上的直线上的焊缝终点："))
  (setq pt3 (getpoint"\n请选择要添加焊缝的一侧："))

  (setvar "osmode" 0)

  (setq hfjl (distance pt1 pt2))
  (command "line" pt1  pt2 "")
  (setq en1 (entlast))
  (command "offset" "0.466666666666667" en1 pt3 "")
  (setq en2 (entlast))
  (setq en11 (entget en1))
  (setq en22 (entget en2))


  (setq qd11 (cdr (assoc 10 en11)))

  (setq qd22 (cdr (assoc 10 en22)))


  (command "line" qd11 qd22 "")
  (setq en3 (entlast))
  (command "offset" "0.4" en3 pt2 "")
  (setq en4 (entlast))

  (setq n (/ hfjl 0.533333333333333333))
  (setq n (fix n))
  (setq m 1)
  (while (>= n m)
    (setq jl1 (* m 0.5333333333333))
    (command "offset" jl1 en4 pt2 "")
    (setq m (+ 1 m))
  )
  (command "erase" en1 en2 en3 "")
  (command "undo" "end")
  (setvar "osmode" oldosmode)
  (setvar "offsetdist" oldoffsetdist)
  (setvar "cmdecho" 1)
  (setq *error* olderr)
  (princ)
)  

夏生生

2. (vl-load-com)
   
3. (defun c:pp (/ en1 pt pt1 pt2 Deriv ang ang1 ang2 l n i)
   
4.   (setvar "cmdecho" 0)
   
5.   (command "undo" "group")
   
6.   (setq        en1   (entsel "\n选择焊件：")
   
7.         pt    (cadr en1)
   
8.         en1   (car en1)
   
9.         pt1   (vlax-curve-getClosestPointTo en1 pt)
   
10.         Deriv (vlax-curve-getSecondDeriv
    
11.                 en1
    
12.                 (vlax-curve-getParamAtPoint en1 pt1)
    
13.               )
    
14.         ang1  (angle pt1 pt)
    
15.         ang2  (angle pt1 (mapcar '+ pt1 Deriv))
    
16.         l     (vlax-curve-getdistatPoint en1 (vlax-curve-getendPoint en1))
    
17.         n     (fix(/ (- l 0.4) 0.533333))
    
18.         i     0
    
19.   )
    
20.   (repeat (1+ n)
    
21.     (setq pt (vlax-curve-getPointAtDist en1 (+ 0.4 (* 0.53333 i)))
    
22.           i  (1+ i)
    
23.     )
    
24.     (if        (equal Deriv '(0. 0. 0.) 1e-6)
    
25.       (entmake (list '(0 . "line")
    
26.                      (cons 10 pt)
    
27.                      (cons 11 (polar pt ang1 0.46666666666))
    
28.                )
    
29.       )
    
30.       (if (equal ang1 ang2 1e-6)
    
31.         (entmake
    
32.           (list
    
33.             '(0 . "line")
    
34.             (cons 10 pt)
    
35.             (cons
    
36.               11
    
37.               (polar pt
    
38.                      (angle pt
    
39.                             (mapcar '+
    
40.                                     pt
    
41.                                     (vlax-curve-getSecondDeriv
    
42.                                       en1
    
43.                                       (vlax-curve-getParamAtPoint en1 pt)
    
44.                                     )
    
45.                             )
    
46.                      )
    
47.                      0.46666666666
    
48.               )
    
49.             )
    
50.           )
    
51.         )
    
52.         (entmake
    
53.           (list
    
54.             '(0 . "line")
    
55.             (cons 10 pt)
    
56.             (cons
    
57.               11
    
58.               (polar
    
59.                 pt
    
60.                 (+ pi
    
61.                    (angle pt
    
62.                           (mapcar '+
    
63.                                   pt
    
64.                                   (vlax-curve-getSecondDeriv
    
65.                                     en1
    
66.                                     (vlax-curve-getParamAtPoint en1 pt)
    
67.                                   )
    
68.                           )
    
69.                    )
    
70.                 )
    
71.                 0.46666666666
    
72.               )
    
73.             )
    
74.           )
    
75.         )
    
76.       )
    
77.     )
    
78.   )
    
79.   (command "undo" "end")
    
80.   (princ)
    
81. )
    

(vl-load-com)<br /> (defun c:pp (/ en1 pt pt1 pt2 Deriv ang ang1 ang2 l n i)<br />   (setvar "cmdecho" 0)<br />   (command "undo" "group")<br />   (setq        en1   (entsel "\n选择焊件：")<br />         pt    (cadr en1)<br />         en1   (car en1)<br />         pt1   (vlax-curve-getClosestPointTo en1 pt)<br />         Deriv (vlax-curve-getSecondDeriv<br />                 en1<br />                 (vlax-curve-getParamAtPoint en1 pt1)<br />               )<br />         ang1  (angle pt1 pt)<br />         ang2  (angle pt1 (mapcar '+ pt1 Deriv))<br />         l     (vlax-curve-getdistatPoint en1 (vlax-curve-getendPoint en1))<br />         n     (fix(/ (- l 0.4) 0.533333))<br />         i     0<br />   )<br />   (repeat (1+ n)<br />     (setq pt (vlax-curve-getPointAtDist en1 (+ 0.4 (* 0.53333 i)))<br />           i  (1+ i)<br />     )<br />     (if        (equal Deriv '(0. 0. 0.) 1e-6)<br />       (entmake (list '(0 . "line")<br />                      (cons 10 pt)<br />                      (cons 11 (polar pt ang1 0.46666666666))<br />                )<br />       )<br />       (if (equal ang1 ang2 1e-6)<br />         (entmake<br />           (list<br />             '(0 . "line")<br />             (cons 10 pt)<br />             (cons<br />               11<br />               (polar pt<br />                      (angle pt<br />                             (mapcar '+<br />                                     pt<br />                                     (vlax-curve-getSecondDeriv<br />                                       en1<br />                                       (vlax-curve-getParamAtPoint en1 pt)<br />                                     )<br />                             )<br />                      )<br />                      0.46666666666<br />               )<br />             )<br />           )<br />         )<br />         (entmake<br />           (list<br />             '(0 . "line")<br />             (cons 10 pt)<br />             (cons<br />               11<br />               (polar<br />                 pt<br />                 (+ pi<br />                    (angle pt<br />                           (mapcar '+<br />                                   pt<br />                                   (vlax-curve-getSecondDeriv<br />                                     en1<br />                                     (vlax-curve-getParamAtPoint en1 pt)<br />                                   )<br />                           )<br />                    )<br />                 )<br />                 0.46666666666<br />               )<br />             )<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (command "undo" "end")<br />   (princ)<br /> )<br />

夏生生

不知道是否需要考虑起弧落弧

夏生生

什么专业画焊缝这么画啊？随便写的，比较随意，选择框中心在线的哪一边就画在哪一边，可用于直线与圆弧，代码见楼下

ly8zx2109

好的，谢谢。如调整线的长度和间距需调哪些数据。谢谢

夏生生

里面的0.4,0,466,0.533