cxix64 发表于 2023-3-15 22:07:20

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

228378553 发表于 2023-3-18 16:19:30

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

`中微子 发表于 2023-3-22 23:13:46

本帖最后由 `中微子 于 2023-3-22 23:14 编辑

tomonkey239 发表于 2023-3-15 16:18
大师级的了。不错。你是怎么学的？
我是在某宝几块买了个教程，有视频看老师讲课学的。

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

`中微子 发表于 2023-3-31 02:33:23

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


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

popsun 发表于 2023-3-31 09:14:36

比我的第一个程序强多了

`中微子 发表于 2023-3-31 16:33:59

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


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

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

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

xiaomm250 发表于 2023-4-7 11:09:44

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

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

没兴趣看程序！
但是我的经验是修改程序要先学会调试，学会下断点、观察变量、F8等
页: 1 [2]
查看完整版本: 刚自学LISP写了个小程序，请大神看看可优化一下不！