这段代码有大神帮忙优化下吗

天之如一

感觉写的代码太冗长了，有没有大神帮忙指点指点。。

xyp1964

1. ;; 绘制多段线并加凸度
   
2. (defun pline (p0 pts lst-td / p0 pl ptn x)
   
3.   (setq ptn (mapcar '(lambda (x) (mapcar '+ p0 x)) pts)
   
4.         ptn (reverse ptn)
   
5.   )
   
6.   (command "pline")
   
7.   (foreach pt ptn (command "non" pt))
   
8.   (command "")
   
9.   (setq pl (vlax-ename->vla-object (entlast)))
   
10.   (set-pl-td pl lst-td)
    
11. )
    
12. 
    
13. ;; 设置多点凸度值函数
    
14. (defun set-pl-td (pl lst-td / n td)
    
15.   (if lst-td
    
16.     (foreach temp lst-td
    
17.       (setq n  (car temp)
    
18.             td (cadr temp)
    
19.       )
    
20.       (vla-setBulge pl n td)
    
21.     )
    
22.   )
    
23. )
    
24. 
    
25. ;; 绘制扶梯主程序
    
26. (defun c:tt (/ bp l1 l2 l3 l4 pts1 pts2 pts3 pts4 ptsx1 ptsx2 ptsx3 tl1 tl2 tl3)
    
27.   (setq bp    (getpoint "\n确定基点: ")
    
28.         pts1  '((-2826 0 0)
    
29.                 (-2846.31 106.185 0)
    
30.                 (-2827.908 200 0)
    
31.                 (-2797.37 250 0)
    
32.                 (-2776 250 0)
    
33.                 (-2776 150 0)
    
34.                 (-2776 0 0)
    
35.                )
    
36.         l1    (pline bp pts1 '((3 0.2)))
    
37.         pts2  '((-2797.37 250 0)
    
38.                 (-2876 250 0)
    
39.                 (-2876 950 0)
    
40.                 (-829 950 0)
    
41.                 (820.3194 507.8838 0)
    
42.                )
    
43.         l2    (pline bp pts2 '((0 0.1325) (2 1)))
    
44.         pts3  '((-2827.908 200 0)
    
45.                 (-2876 200 0)
    
46.                 (-2876 1000 0)
    
47.                 (-816.2831 1000 0)
    
48.                 (833.7169 557.8838 0)
    
49.                )
    
50.         l3    (pline bp pts3 '((0 0.1325) (2 1)))
    
51.         pts4  '((-2776 150 0) (-193.7822 150 0))
    
52.         l4    (pline bp pts4 '((0 0)))
    
53.         ptsx1 '((0 0 0)
    
54.                 (-5450 0 0)
    
55.                 (-5450 -80 0)
    
56.                 (-4950 -80 0)
    
57.                 (-4950 0 0)
    
58.                )
    
59.         tl1   (pline bp ptsx1 '((0 0)))
    
60.         ptsx2 '((-5150 -80 0) (-5150 -1305 0) (296.3263 -1305.0000 0))
    
61.         tl2   (pline bp ptsx2 '((0 0)))
    
62.         ptsx3 '((-5200 -80 0) (-5200 -1700 0))
    
63.         tl3   (pline bp ptsx3 '((0 0)))
    
64.   )
    
65.   (princ)
    
66. )

;; 绘制多段线并加凸度<br /> (defun pline (p0 pts lst-td / p0 pl ptn x)<br />   (setq ptn (mapcar '(lambda (x) (mapcar '+ p0 x)) pts)<br />         ptn (reverse ptn)<br />   )<br />   (command "pline")<br />   (foreach pt ptn (command "non" pt))<br />   (command "")<br />   (setq pl (vlax-ename->vla-object (entlast)))<br />   (set-pl-td pl lst-td)<br /> )<br /> <br /> ;; 设置多点凸度值函数<br /> (defun set-pl-td (pl lst-td / n td)<br />   (if lst-td<br />     (foreach temp lst-td<br />       (setq n  (car temp)<br />             td (cadr temp)<br />       )<br />       (vla-setBulge pl n td)<br />     )<br />   )<br /> )<br /> <br /> ;; 绘制扶梯主程序<br /> (defun c:tt (/ bp l1 l2 l3 l4 pts1 pts2 pts3 pts4 ptsx1 ptsx2 ptsx3 tl1 tl2 tl3)<br />   (setq bp    (getpoint "\n确定基点: ")<br />         pts1  '((-2826 0 0)<br />                 (-2846.31 106.185 0)<br />                 (-2827.908 200 0)<br />                 (-2797.37 250 0)<br />                 (-2776 250 0)<br />                 (-2776 150 0)<br />                 (-2776 0 0)<br />                )<br />         l1    (pline bp pts1 '((3 0.2)))<br />         pts2  '((-2797.37 250 0)<br />                 (-2876 250 0)<br />                 (-2876 950 0)<br />                 (-829 950 0)<br />                 (820.3194 507.8838 0)<br />                )<br />         l2    (pline bp pts2 '((0 0.1325) (2 1)))<br />         pts3  '((-2827.908 200 0)<br />                 (-2876 200 0)<br />                 (-2876 1000 0)<br />                 (-816.2831 1000 0)<br />                 (833.7169 557.8838 0)<br />                )<br />         l3    (pline bp pts3 '((0 0.1325) (2 1)))<br />         pts4  '((-2776 150 0) (-193.7822 150 0))<br />         l4    (pline bp pts4 '((0 0)))<br />         ptsx1 '((0 0 0)<br />                 (-5450 0 0)<br />                 (-5450 -80 0)<br />                 (-4950 -80 0)<br />                 (-4950 0 0)<br />                )<br />         tl1   (pline bp ptsx1 '((0 0)))<br />         ptsx2 '((-5150 -80 0) (-5150 -1305 0) (296.3263 -1305.0000 0))<br />         tl2   (pline bp ptsx2 '((0 0)))<br />         ptsx3 '((-5200 -80 0) (-5200 -1700 0))<br />         tl3   (pline bp ptsx3 '((0 0)))<br />   )<br />   (princ)<br /> )

饼仲郎

qazxswk 发表于 2024-8-27 04:28
AI还没有写出让我能用的代码，可能是我不会跟它沟通。

AI的代码总跳台，什么语言都搞上来，特别是国内的。GPT4还凑合，不过免费的不好找。

天之如一

饼仲郎 发表于 2024-8-28 09:02
AI的代码总跳台，什么语言都搞上来，特别是国内的。GPT4还凑合，不过免费的不好找。

不过能节省很大一部分时间，

天命

用Copilot....

czb203

ai写的吗，高手哦

天之如一

czb203 发表于 2024-8-25 16:31
ai写的吗，高手哦

哈哈，配合吧，AI写，我自己来改，要不根本跑不动

夏生生

写得很好，看不出有什么优化空间

天之如一

夏生生 发表于 2024-8-25 16:46
写得很好，看不出有什么优化空间

主要没有完整写过，不懂是不是开发个程序都这么繁琐

tigcat

运行了一下,好强.

GEGEYANG88

AI是个打工仔，没那么多责任，也没收几个银子。总不能榨干AI吧。

qazxswk

AI还没有写出让我能用的代码，可能是我不会跟它沟通。