乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 ☆ ☆ ☆ 尊重版权，从我做起，拒绝盗版，拒绝倒卖 ☆ ☆ ☆ 签到、发布资源、邀请好友注册，可以获得银币 ☆ ☆ ☆ 请注意保管好自己的密码，避免账户资金被盗
查看： 46|回复： 19

[编程交流] lisp正在计算吗？

[复制链接]
rekoj

3

主题

7

帖子

4

银币

初来乍到

Rank: 1

铜币
15
发表于 2022-7-6 09:11:03 | 显示全部楼层 |阅读模式
大家好，
 
我才刚刚开始学习Lisp编程，真的不太懂。。。然而所以这里有一个问题。。
 
我想创建一个程序，它可以横向绘制几条线。在我的想象中，它应该是这样工作的：
在AutoCad中，我显示了一个正方形，程序询问我要绘制多少条线。当我给她一个数字时，她将总平方长度除以我给定的数字，然后画出直线（直线程序的长度也来自平方）。
 
问题是：
AutoCad可以计算吗？（在我的例子中）也许有人已经有了类似的东西？
回复

使用道具 举报

Joro--

9

主题

59

帖子

38

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
58
发表于 2022-7-6 09:16:15 | 显示全部楼层
你好
 
这肯定可以使用Lisp完成。我使用VBA进行AutoCad自定义，但这里可能有人会帮助您使用此lisp。写它应该不会花太长时间。
回复

使用道具 举报

irneb

11

主题

968

帖子

919

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
99
发表于 2022-7-6 09:19:00 | 显示全部楼层
你是说这样的事？
  1. (defun c:HFillRect (/ pt1 pt2 div h v vdiv p1 p2)
  2.  (if (and (setq pt1 (getpoint "\nGet start point of rectancgle: "))
  3.           (setq pt2 (getcorner pt1 "\nGet 2nd point of rectangle: "))
  4.           (setq div (getint "\nHow many lines: "))
  5.      )
  6.    (progn
  7.      (setq p1 (list (min (car pt1) (car pt2)) (min (cadr pt1) (cadr pt2)) (min (caddr pt1) (caddr pt2))) ;Left-bottom
  8.            p2 (list (max (car pt1) (car pt2)) (max (cadr pt1) (cadr pt2)) (max (caddr pt1) (caddr pt2))) ;Right-top
  9.            h  (- (car p2) (car p1)) ;Horizontal length
  10.            v  (- (cadr p2) (cadr p1));Vertical length
  11.            vdiv (/ v div) ;Vertical division length
  12.            pt1 p1 ;Start point of line
  13.            pt2 (list (car p2) (cadr p1) (caddr p2)) ;Endpoint of line
  14.      )
  15.      (while (< (cadr pt1) (cadr p2))
  16.        (command "._LINE" "_None" pt1 "_None" pt2 "")
  17.        (setq pt1 (list (car pt1) (+ (cadr pt1) vdiv) (caddr pt1))
  18.              pt2 (list (car pt2) (+ (cadr pt2) vdiv) (caddr pt2))
  19.        )
  20.      )
  21.    )
  22.  )
  23.  (princ)
  24. )
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 09:22:45 | 显示全部楼层
或者像这样？
 
  1. (defun c:hlines ( / p1 p2 h n v )
  2.  (if
  3.    (and
  4.      (setq p1 (getpoint "\nSpecify First Corner: "))
  5.      (setq p2 (getcorner "\nSpecify Opposite Corner: " p1))
  6.      (progn (initget 6) (setq n (getint "\nSpecify Number of Lines: ")))
  7.    )
  8.    (progn
  9.      (setq h (- (car p2) (car p1))
  10.            v (if (= 1 n) 0. (/ (- (cadr p2) (cadr p1)) (1- n)))
  11.      )
  12.      (repeat n
  13.        (entmakex
  14.          (list
  15.            (cons 0 "LINE")
  16.            (cons 10 (trans p1 1 0))
  17.            (cons 11 (trans (list (+ (car p1) h) (cadr p1) (caddr p1)) 1 0))
  18.          )
  19.        )
  20.        (setq p1 (list (car p1) (+ v (cadr p1)) (caddr p1)))
  21.      )
  22.    )
  23.  )
  24.  (princ)
  25. )

 
或者，根据您想要的行为：
 
  1. (defun c:hlines ( / p1 p2 h n v )
  2.  (if
  3.    (and
  4.      (setq p1 (getpoint "\nSpecify First Corner: "))
  5.      (setq p2 (getcorner "\nSpecify Opposite Corner: " p1))
  6.      (progn (initget 6) (setq n (getint "\nSpecify Number of Lines: ")))
  7.    )
  8.    (progn
  9.      (setq h (- (car p2) (car p1))
  10.            v (/ (- (cadr p2) (cadr p1)) (1+ n))
  11.      )
  12.      (repeat n (setq p1 (list (car p1) (+ v (cadr p1)) (caddr p1)))
  13.        (entmakex
  14.          (list
  15.            (cons 0 "LINE")
  16.            (cons 10 (trans p1 1 0))
  17.            (cons 11 (trans (list (+ (car p1) h) (cadr p1) (caddr p1)) 1 0))
  18.          )
  19.        )
  20.      )
  21.    )
  22.  )
  23.  (princ)
  24. )
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 09:23:56 | 显示全部楼层
这个帖子让我想起了一个类似的帖子。
回复

使用道具 举报

rekoj

3

主题

7

帖子

4

银币

初来乍到

Rank: 1

铜币
15
发表于 2022-7-6 09:28:19 | 显示全部楼层
嗯，是的，
当我想出如何启动它的时候，所有的程序都是你做的
只有一件事，我解释错了，那就是线必须是垂直的，但距离是水平分开的。。。
我把我的照片附在这篇帖子上，为了解释更容易理解。。。以下是我想做的关于这个项目的一些事情：
1、第一行和最后一行始终为蓝色。
2.所有线条都属于图层轮廓
3.线路上的静噪块属于层kons1
4、线路上的圆块属于kons2层
5.所有圆和squere块之间的距离永远不会大于70（ar之间的所有间隙相等），如果需要，可以在线路上添加传统圆块。
6、线路起点/终点到区间的距离始终为10。
 
所以，如果有人想要这个挑战，并且想帮助我，请随时。。。因为正如我所看到的，对我来说，制作这样的程序需要很长时间，而这里的第一篇帖子是在几分钟后发布的 101106dwgjbghzb5jvgmk4.jpg
[ATTACH]28609[ATTACH][ATTACH]28610[ATTACH]。。。在另一种情况下，我会分享我的Lisp程序与你无论如何稍后，只是为了知道你的想法
101108whotogh0tgogr0t0.jpg
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 09:32:57 | 显示全部楼层
grread更有趣。。。
 
编写一个有趣的程序，但肯定不实用：
 
动态水平：
 
 
  2. ([color=BLUE]defun[/color] c:hlines ( [color=BLUE]/[/color] *error* g1 g2 gr h l ms p p1 p2 v )
  3.  [color=GREEN];; Lee Mac 2011[/color]
  4.  ([color=BLUE]defun[/color] *error* ( m ) ([color=BLUE]redraw[/color]) ([color=BLUE]princ[/color]))
  5.  ([color=BLUE]or[/color] *n ([color=BLUE]setq[/color] *n 3))
  6.  
  7.  ([color=BLUE]if[/color] ([color=BLUE]setq[/color] p1 ([color=BLUE]getpoint[/color] [color=MAROON]"\nSpecify First Corner: "[/color]))
  8.    ([color=BLUE]progn[/color]
  9.      ([color=BLUE]setq[/color] ms ([color=BLUE]princ[/color] [color=MAROON]"\nSpecify Opposite Corner [+/-]: "[/color]))
  10.      ([color=BLUE]while[/color]
  11.        ([color=BLUE]progn[/color] ([color=BLUE]setq[/color] gr ([color=BLUE]grread[/color] [color=BLUE]t[/color] 15 0) g1 ([color=BLUE]car[/color] gr) g2 ([color=BLUE]cadr[/color] gr))
  12.          ([color=BLUE]cond[/color]
  13.            ( ([color=BLUE]=[/color] 5 g1)([color=BLUE]redraw[/color])
  14.              ([color=BLUE]setq[/color] h ([color=BLUE]-[/color] ([color=BLUE]car[/color] g2) ([color=BLUE]car[/color] p1))
  15.                    v ([color=BLUE]/[/color] ([color=BLUE]-[/color] ([color=BLUE]cadr[/color] g2) ([color=BLUE]cadr[/color] p1)) ([color=BLUE]1+[/color] *n))
  16.                    p p1
  17.              )
  18.              ([color=BLUE]repeat[/color] *n
  19.                ([color=BLUE]setq[/color] p ([color=BLUE]list[/color] ([color=BLUE]car[/color] p) ([color=BLUE]+[/color] v ([color=BLUE]cadr[/color] p)) ([color=BLUE]caddr[/color] p)))
  20.                ([color=BLUE]grdraw[/color] p ([color=BLUE]list[/color] ([color=BLUE]+[/color] ([color=BLUE]car[/color] p) h) ([color=BLUE]cadr[/color] p) ([color=BLUE]caddr[/color] p)) -1)
  21.              )
  22.              ([color=BLUE]setq[/color] l
  23.                ([color=BLUE]list[/color]
  24.                  p1 ([color=BLUE]list[/color] ([color=BLUE]+[/color] ([color=BLUE]car[/color] p1) h) ([color=BLUE]cadr[/color] p1) ([color=BLUE]caddr[/color] p1))
  25.                  g2 ([color=BLUE]list[/color] ([color=BLUE]car[/color] p) ([color=BLUE]+[/color] v ([color=BLUE]cadr[/color] p)) ([color=BLUE]caddr[/color] p))
  26.                )
  27.              )
  28.              ([color=BLUE]mapcar[/color] '([color=BLUE]lambda[/color] ( a b ) ([color=BLUE]grdraw[/color] a b 1 -1)) l ([color=BLUE]append[/color] ([color=BLUE]cdr[/color] l) ([color=BLUE]list[/color] ([color=BLUE]car[/color] l))))
  29.            )
  30.            ( ([color=BLUE]=[/color] 2 g1)
  31.              ([color=BLUE]cond[/color]
  32.                ( ([color=BLUE]member[/color] g2 '(45 95))
  33.                  ([color=BLUE]if[/color] ([color=BLUE]=[/color] 1 *n)
  34.                    ([color=BLUE]princ[/color] ([color=BLUE]strcat[/color] [color=MAROON]"\n--> Minimum Number of Lines Reached."[/color] ms))
  35.                    ([color=BLUE]setq[/color] *n ([color=BLUE]1-[/color] *n))
  36.                  )
  37.                )
  38.                ( ([color=BLUE]member[/color] g2 '(43 61))
  39.                  ([color=BLUE]setq[/color] *n ([color=BLUE]1+[/color] *n))
  40.                )
  41.              )
  42.            )
  43.            ( ([color=BLUE]=[/color] 3 g1)
  44.              ([color=BLUE]setq[/color] h ([color=BLUE]-[/color] ([color=BLUE]car[/color] g2) ([color=BLUE]car[/color] p1))
  45.                    v ([color=BLUE]/[/color] ([color=BLUE]-[/color] ([color=BLUE]cadr[/color] g2) ([color=BLUE]cadr[/color] p1)) ([color=BLUE]1+[/color] *n))
  46.              )
  47.              ([color=BLUE]repeat[/color] *n ([color=BLUE]setq[/color] p1 ([color=BLUE]list[/color] ([color=BLUE]car[/color] p1) ([color=BLUE]+[/color] v ([color=BLUE]cadr[/color] p1)) ([color=BLUE]caddr[/color] p1)))
  48.                ([color=BLUE]entmakex[/color]
  49.                  ([color=BLUE]list[/color]
  50.                    ([color=BLUE]cons[/color] 0 [color=MAROON]"LINE"[/color])
  51.                    ([color=BLUE]cons[/color] 10 ([color=BLUE]trans[/color] p1 1 0))
  52.                    ([color=BLUE]cons[/color] 11 ([color=BLUE]trans[/color] ([color=BLUE]list[/color] ([color=BLUE]+[/color] ([color=BLUE]car[/color] p1) h) ([color=BLUE]cadr[/color] p1) ([color=BLUE]caddr[/color] p1)) 1 0))
  53.                  )
  54.                )
  55.              )
  56.              [color=BLUE]nil[/color]
  57.            )
  58.          )
  59.        )
  60.      )
  61.    )
  62.  )
  63.  ([color=BLUE]redraw[/color]) ([color=BLUE]princ[/color])
  64. )

 
动态垂直：
 
 
  1. ([color=BLUE]defun[/color] c:vlines ( [color=BLUE]/[/color] *error* g1 g2 gr h l ms p p1 p2 v )
  2.  [color=GREEN];; Lee Mac 2011[/color]
  3.  ([color=BLUE]defun[/color] *error* ( m ) ([color=BLUE]redraw[/color]) ([color=BLUE]princ[/color]))
  4.  ([color=BLUE]or[/color] *n ([color=BLUE]setq[/color] *n 3))
  5.  
  6.  ([color=BLUE]if[/color] ([color=BLUE]setq[/color] p1 ([color=BLUE]getpoint[/color] [color=MAROON]"\nSpecify First Corner: "[/color]))
  7.    ([color=BLUE]progn[/color]
  8.      ([color=BLUE]setq[/color] ms ([color=BLUE]princ[/color] [color=MAROON]"\nSpecify Opposite Corner [+/-]: "[/color]))
  9.      ([color=BLUE]while[/color]
  10.        ([color=BLUE]progn[/color] ([color=BLUE]setq[/color] gr ([color=BLUE]grread[/color] [color=BLUE]t[/color] 15 0) g1 ([color=BLUE]car[/color] gr) g2 ([color=BLUE]cadr[/color] gr))
  11.          ([color=BLUE]cond[/color]
  12.            ( ([color=BLUE]=[/color] 5 g1)([color=BLUE]redraw[/color])
  13.              ([color=BLUE]setq[/color] h ([color=BLUE]/[/color] ([color=BLUE]-[/color] ([color=BLUE]car[/color] g2) ([color=BLUE]car[/color] p1)) ([color=BLUE]1+[/color] *n))
  14.                    v ([color=BLUE]-[/color] ([color=BLUE]cadr[/color] g2) ([color=BLUE]cadr[/color] p1))
  15.                    p p1
  16.              )
  17.              ([color=BLUE]repeat[/color] *n
  18.                ([color=BLUE]setq[/color] p ([color=BLUE]list[/color] ([color=BLUE]+[/color] h ([color=BLUE]car[/color] p)) ([color=BLUE]cadr[/color] p) ([color=BLUE]caddr[/color] p)))
  19.                ([color=BLUE]grdraw[/color] p ([color=BLUE]list[/color] ([color=BLUE]car[/color] p) ([color=BLUE]+[/color] v ([color=BLUE]cadr[/color] p)) ([color=BLUE]caddr[/color] p)) -1)
  20.              )
  21.              ([color=BLUE]setq[/color] l
  22.                ([color=BLUE]list[/color]
  23.                  p1 ([color=BLUE]list[/color] ([color=BLUE]car[/color] p1) ([color=BLUE]+[/color] v ([color=BLUE]cadr[/color] p1)) ([color=BLUE]caddr[/color] p1))
  24.                  g2 ([color=BLUE]list[/color] ([color=BLUE]+[/color] h ([color=BLUE]car[/color] p)) ([color=BLUE]cadr[/color] p) ([color=BLUE]caddr[/color] p))
  25.                )
  26.              )
  27.              ([color=BLUE]mapcar[/color] '([color=BLUE]lambda[/color] ( a b ) ([color=BLUE]grdraw[/color] a b 1 -1)) l ([color=BLUE]append[/color] ([color=BLUE]cdr[/color] l) ([color=BLUE]list[/color] ([color=BLUE]car[/color] l))))
  28.            )
  29.            ( ([color=BLUE]=[/color] 2 g1)
  30.              ([color=BLUE]cond[/color]
  31.                ( ([color=BLUE]member[/color] g2 '(45 95))
  32.                  ([color=BLUE]if[/color] ([color=BLUE]=[/color] 1 *n)
  33.                    ([color=BLUE]princ[/color] ([color=BLUE]strcat[/color] [color=MAROON]"\n--> Minimum Number of Lines Reached."[/color] ms))
  34.                    ([color=BLUE]setq[/color] *n ([color=BLUE]1-[/color] *n))
  35.                  )
  36.                )
  37.                ( ([color=BLUE]member[/color] g2 '(43 61))
  38.                  ([color=BLUE]setq[/color] *n ([color=BLUE]1+[/color] *n))
  39.                )
  40.              )
  41.            )
  42.            ( ([color=BLUE]=[/color] 3 g1)
  43.              ([color=BLUE]setq[/color] h ([color=BLUE]/[/color] ([color=BLUE]-[/color] ([color=BLUE]car[/color] g2) ([color=BLUE]car[/color] p1)) ([color=BLUE]1+[/color] *n))
  44.                    v ([color=BLUE]-[/color] ([color=BLUE]cadr[/color] g2) ([color=BLUE]cadr[/color] p1))
  45.              )
  46.              ([color=BLUE]repeat[/color] *n ([color=BLUE]setq[/color] p1 ([color=BLUE]list[/color] ([color=BLUE]+[/color] h ([color=BLUE]car[/color] p1)) ([color=BLUE]cadr[/color] p1) ([color=BLUE]caddr[/color] p1)))
  47.                ([color=BLUE]entmakex[/color]
  48.                  ([color=BLUE]list[/color]
  49.                    ([color=BLUE]cons[/color] 0 [color=MAROON]"LINE"[/color])
  50.                    ([color=BLUE]cons[/color] 10 ([color=BLUE]trans[/color] p1 1 0))
  51.                    ([color=BLUE]cons[/color] 11 ([color=BLUE]trans[/color] ([color=BLUE]list[/color] ([color=BLUE]car[/color] p1) ([color=BLUE]+[/color] v ([color=BLUE]cadr[/color] p1)) ([color=BLUE]caddr[/color] p1)) 1 0))
  52.                  )
  53.                )
  54.              )
  55.              [color=BLUE]nil[/color]
  56.            )
  57.          )
  58.        )
  59.      )
  60.    )
  61.  )
  62.  ([color=BLUE]redraw[/color]) ([color=BLUE]princ[/color])
  63. )

 
将两者结合起来。。。
 
 
  2. (defun c:hvlines ( / *error* g1 g2 gr h l ms p p1 p2 v )
  3.  ;; Lee Mac 2011
  4.  (defun *error* ( m ) (redraw) (princ))
  5.  (or *n (setq *n 3))
  6.  
  7.  (if (setq p1 (getpoint "\nSpecify First Corner: "))
  8.    (progn
  9.      (setq ms (princ "\nSpecify Opposite Corner [TAB/+/-]: "))
  10.      (while
  11.        (progn (setq gr (grread t 15 0) g1 (car gr) g2 (cadr gr))
  12.          (cond
  13.            ( (= 5 g1)(redraw)
  14.              (if *v
  15.                (progn
  16.                  (setq h (/ (- (car g2) (car p1)) (1+ *n))
  17.                        v (- (cadr g2) (cadr p1))
  18.                        p p1
  19.                  )
  20.                  (repeat *n
  21.                    (setq p (list (+ h (car p)) (cadr p) (caddr p)))
  22.                    (grdraw p (list (car p) (+ v (cadr p)) (caddr p)) -1)
  23.                  )
  24.                  (setq l
  25.                    (list
  26.                      p1 (list (car p1) (+ v (cadr p1)) (caddr p1))
  27.                      g2 (list (+ h (car p)) (cadr p) (caddr p))
  28.                    )
  29.                  )
  30.                )
  31.                (progn
  32.                  (setq h (- (car g2) (car p1))
  33.                        v (/ (- (cadr g2) (cadr p1)) (1+ *n))
  34.                        p p1
  35.                  )
  36.                  (repeat *n
  37.                    (setq p (list (car p) (+ v (cadr p)) (caddr p)))
  38.                    (grdraw p (list (+ (car p) h) (cadr p) (caddr p)) -1)
  39.                  )
  40.                  (setq l
  41.                    (list
  42.                      p1 (list (+ (car p1) h) (cadr p1) (caddr p1))
  43.                      g2 (list (car p) (+ v (cadr p)) (caddr p))
  44.                    )
  45.                  )
  46.                )
  47.              )                  
  48.              (mapcar '(lambda ( a b ) (grdraw a b 1 -1)) l (append (cdr l) (list (car l))))
  49.            )
  50.            ( (= 2 g1)
  51.              (cond
  52.                ( (member g2 '(45 95))
  53.                  (if (= 1 *n)
  54.                    (princ (strcat "\n--> Minimum Number of Lines Reached." ms))
  55.                    (setq *n (1- *n))
  56.                  )
  57.                )
  58.                ( (member g2 '(43 61))
  59.                  (setq *n (1+ *n))
  60.                )
  61.                ( (= 9 g2)
  62.                  (setq *v (not *v)) t
  63.                )
  64.              )
  65.            )
  66.            ( (= 3 g1)
  67.              (if *v
  68.                (progn
  69.                  (setq h (/ (- (car g2) (car p1)) (1+ *n))
  70.                        v (- (cadr g2) (cadr p1))
  71.                  )
  72.                  (repeat *n (setq p1 (list (+ h (car p1)) (cadr p1) (caddr p1)))
  73.                    (entmakex
  74.                      (list
  75.                        (cons 0 "LINE")
  76.                        (cons 10 (trans p1 1 0))
  77.                        (cons 11 (trans (list (car p1) (+ v (cadr p1)) (caddr p1)) 1 0))
  78.                      )
  79.                    )
  80.                  )
  81.                )
  82.                (progn
  83.                  (setq h (- (car g2) (car p1))
  84.                        v (/ (- (cadr g2) (cadr p1)) (1+ *n))
  85.                  )
  86.                  (repeat *n (setq p1 (list (car p1) (+ v (cadr p1)) (caddr p1)))
  87.                    (entmakex
  88.                      (list
  89.                        (cons 0 "LINE")
  90.                        (cons 10 (trans p1 1 0))
  91.                        (cons 11 (trans (list (+ (car p1) h) (cadr p1) (caddr p1)) 1 0))
  92.                      )
  93.                    )
  94.                  )
  95.                )
  96.              )
  97.              nil
  98.            )
  99.          )
  100.        )
  101.      )
  102.    )
  103.  )
  104.  (redraw) (princ)
  105. )
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 09:34:42 | 显示全部楼层
对我之前的代码进行了快速修改，以创建垂直线：
 
  1. (defun c:vlines ( / p1 p2 h n v )
  2.  (if
  3.    (and
  4.      (setq p1 (getpoint "\nSpecify First Corner: "))
  5.      (setq p2 (getcorner "\nSpecify Opposite Corner: " p1))
  6.      (progn (initget 6) (setq n (getint "\nSpecify Number of Lines: ")))
  7.    )
  8.    (progn
  9.      (setq h (if (= 1 n) 0. (/ (- (car p2) (car p1)) (1- n)))
  10.            v (- (cadr p2) (cadr p1))
  11.      )
  12.      (repeat n
  13.        (entmakex
  14.          (list
  15.            (cons 0 "LINE")
  16.            (cons 10 (trans p1 1 0))
  17.            (cons 11 (trans (list (car p1) (+ (cadr p1) v) (caddr p1)) 1 0))
  18.          )
  19.        )
  20.        (setq p1 (list (+ h (car p1)) (cadr p1) (caddr p1)))
  21.      )
  22.    )
  23.  )
  24.  (princ)
  25. )
回复

使用道具 举报

Qonfire

23

主题

102

帖子

79

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
115
发表于 2022-7-6 09:37:27 | 显示全部楼层
rekoj我想看看带线条和方块的lisp，这就是我想学习lisp的基本原因，但这些老虎会让任何人泄气：）
 
李你的乐趣与3行是切实可行的，我会直接问你会做一些修改，你的程序，所以它的权利，我需要什么？
它将涉及一些矩形内的行距计算
比在线上块间距的计算
嵌入我的区块
可能显示矩形的尺寸
将其放置在层上，如果不存在，则创建
删除一个矩形
 
我一直到这里
  1. (defun c:xxx (/ pt1 pt2 pt3 pt4 bay)
  2.  (setq pt1 (getpoint "/nTop:"))
  3. (setq pt2 (getcorner "/nBottom" pt1))
  4.       (setq pt3 (list (nth 0 pt2)(nth 1 pt1)))
  5.                (setq pt4 (list (nth 0 pt1)(nth 1 pt2)))
  6.       (command ".rectang" pt1 pt2)
  8. (setq bay (command ".dist" (pt1 pt3))-cant get a value
  9.  (print "bay")
  10.  Princ
  11.  )
回复

使用道具 举报

BIGAL

106

主题

1万

帖子

101

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1299
发表于 2022-7-6 09:41:11 | 显示全部楼层
从Lees代码开始！
 
好的，蓝线v是红色的，重复n是条数，所以红色是n-2
这不是测试，只是剪切和粘贴。预期存在红色和蓝色层。
 
  2. (defun c:vlines ( / p1 p2 h n v )
  3.  (if
  4.    (and
  5.      (setq p1 (getpoint "\nSpecify First Corner: "))
  6.      (setq p2 (getcorner "\nSpecify Opposite Corner: " p1))
  7.      (progn (initget 6) (setq [color=red]numline[/color] (getint "\nSpecify Number of Lines: ")))
  9.    )
  10.    (progn
  11. [color=red](setq n (- numline 2))[/color]
  12.      (setq h (if (= 1 n) 0. (/ (- (car p2) (car p1)) (1- n)))
  13.            v (- (cadr p2) (cadr p1))
  14.      )
  15. [color=darkred][/color] 
  16. [color=darkred]       (entmakex
  17.          (list
  18.            (cons 0 "LINE")[/color]
  19. [color=darkred]            (cons 8 "blue")
  20.            (cons 10 (trans p1 1 0))
  21.            (cons 11 (trans (list (car p1) (+ (cadr p1) v) (caddr p1)) 1 0))
  22.          )
  23.        )
  24.        (setq p1 (list (+ h (car p1)) (cadr p1) (caddr p1)))
  25.      )
  26. [/color]      (repeat n
  27.        (entmakex
  28.          (list
  29.            (cons 0 "LINE")
  30. [color=red](cons 8 "Red")[/color]
  31.            (cons 10 (trans p1 1 0))
  32.            (cons 11 (trans (list (car p1) (+ (cadr p1) v) (caddr p1)) 1 0))
  33.          )
  34.        )
  35.        (setq p1 (list (+ h (car p1)) (cadr p1) (caddr p1)))
  36. [color=#8b0000]       (entmakex
  37.          (list
  38.            (cons 0 "LINE")
  39. (cons 8 "BLUE")            [/color]
  40. [color=#8b0000](cons 10 (trans p1 1 0))
  41.            (cons 11 (trans (list (car p1) (+ (cadr p1) v) (caddr p1)) 1 0))
  42.          )
  43.        )
  44.        (setq p1 (list (+ h (car p1)) (cadr p1) (caddr p1)))
  45.      )[/color]
  47.      )
  48.    )
  49.  )
  50.  (princ)
  51. )
回复

使用道具 举报

12下一页
返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-7 05:32 , Processed in 0.345209 second(s), 74 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表