刚自学LISP写了个小程序，请大神看看可优化一下不！

cxix64

老哥自学的教材或者视频方便指下路吗
最近刚搜到论坛，有点迷茫

228378553

很厉害了，我也刚学  小白一个，加油

`中微子

tomonkey239 发表于 2023-3-15 16:18
大师级的了。不错。你是怎么学的？

我是在某宝几块买了个教程，有视频看老师讲课学的。

最近工作很忙，谢谢各位的指点。这个贴要暂定一下了。

`中微子

xyp1964 发表于 2023-3-13 12:33

用填充确实简单不少，正在深化来达到要求。谢谢大神！

popsun

比我的第一个程序强多了

`中微子

xyp1964 发表于 2023-3-13 12:33

1. (defun c:tt ()
   
2.   (setvar "cmdecho" 0)
   
3.   (if (not spacing_a)
   
4.     (setq spacing_a 1200)
   
5.   )
   
6.   (setq  Enter_value
   
7.    (getreal (strcat "\n输入分板间距 <初始值"(rtos spacing_a)">")
   
8.    )
   
9.   )
   
10.   (if (null Enter_value)
    
11.     (setq Enter_value spacing_a)
    
12.     (setq spacing_a Enter_value)
    
13.   )
    
14.   (while (and (setq pt1 (getpoint "\n指定起点: "))
    
15.         (setq pt2 (getcorner pt1 "\n指定终点: "))
    
16.    )
    
17.     (setq pt1_x  (nth 0 pt1)
    
18.     pt1_y  (nth 1 pt1)
    
19.     pt2_x  (nth 0 pt2)
    
20.     )
    
21.     (setq gap_x (abs (- pt1_x pt2_x)))
    
22.     (setq n (rem (fix (/ gap_x spacing_a)) 2))
    
23.     (if  (= n 0)
    
24.       (setq gap_x (+ (/ (abs (- pt1_x pt2_x)) 2) (/ spacing_a 2)))
    
25.       (setq gap_x (/ (abs (- pt1_x pt2_x)) 2))
    
26.     )
    
27.     (if  (< pt1_x pt2_x)
    
28.       (setq gap (+ pt1_x gap_x))
    
29.       (setq gap (+ pt2_x gap_x))
    
30.     )
    
31.     (setq middle (list gap pt1_y))
    
32.     (command "rectang" pt1 pt2)
    
33.     (setq s1 (entlast))
    
34.     (command "-hatch" "p" "u" "90" spacing_a "n" "s" s1 "" "o" "s" middle "y" "")
    
35.     (command "_.erase" s1 "")
    
36.   )
    
37.   (princ)
    
38. )

(defun c:tt ()<br />   (setvar "cmdecho" 0)<br />   (if (not spacing_a)<br />     (setq spacing_a 1200)<br />   )<br />   (setq  Enter_value<br />    (getreal (strcat "\n输入分板间距 <初始值"(rtos spacing_a)">")<br />    )<br />   )<br />   (if (null Enter_value)<br />     (setq Enter_value spacing_a)<br />     (setq spacing_a Enter_value)<br />   )<br />   (while (and (setq pt1 (getpoint "\n指定起点: "))<br />         (setq pt2 (getcorner pt1 "\n指定终点: "))<br />    )<br />     (setq pt1_x  (nth 0 pt1)<br />     pt1_y  (nth 1 pt1)<br />     pt2_x  (nth 0 pt2)<br />     )<br />     (setq gap_x (abs (- pt1_x pt2_x)))<br />     (setq n (rem (fix (/ gap_x spacing_a)) 2))<br />     (if  (= n 0)<br />       (setq gap_x (+ (/ (abs (- pt1_x pt2_x)) 2) (/ spacing_a 2)))<br />       (setq gap_x (/ (abs (- pt1_x pt2_x)) 2))<br />     )<br />     (if  (< pt1_x pt2_x)<br />       (setq gap (+ pt1_x gap_x))<br />       (setq gap (+ pt2_x gap_x))<br />     )<br />     (setq middle (list gap pt1_y))<br />     (command "rectang" pt1 pt2)<br />     (setq s1 (entlast))<br />     (command "-hatch" "p" "u" "90" spacing_a "n" "s" s1 "" "o" "s" middle "y" "")<br />     (command "_.erase" s1 "")<br />   )<br />   (princ)<br /> )

用填充确实简单多了，我加入了填充指定基点。现在可以随意框了。

还要深化把填充体放入指定图层。

xiaomm250

`中微子 发表于 2023-3-31 16:33
用填充确实简单多了，我加入了填充指定基点。现在可以随意框了。

还要深化把填充体放入指定图层。 ...

没兴趣看程序！
但是我的经验是修改程序要先学会调试，学会下断点、观察变量、F8等