乐筑天下

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

[编程交流] 直线为pi时插入圆

[复制链接]
BrianTFC

39

主题

180

帖子

141

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
195
发表于 2022-7-6 08:14:51 | 显示全部楼层 |阅读模式
大家好，
 
我想知道是否有一个lisp例程，当你选择一条线时，它会放在两行中心之间的圆圈中，每行距离两端6英寸？我附上了一个文件，显示了我在寻找什么。
 
谢谢
布瑞恩
091454t2dr6g2a13ra3lar.jpg
回复

使用道具 举报

Tharwat

63

主题

6297

帖子

6283

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
358
发表于 2022-7-6 08:24:20 | 显示全部楼层
这是否意味着要在选定线的中心插入一个名为“孔”的块？
回复

使用道具 举报

BrianTFC

39

主题

180

帖子

141

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
195
发表于 2022-7-6 08:26:26 | 显示全部楼层
不。我想要它做的是画圆圈。
回复

使用道具 举报

Tharwat

63

主题

6297

帖子

6283

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
358
发表于 2022-7-6 08:35:14 | 显示全部楼层
像这样的事情？
 
  2. (defun c:TesT (/ ss i sn)
  3.  (princ "\n Select lines :")
  4.  (if (setq ss (ssget '((0 . "LINE"))))
  5.    (repeat (setq i (sslength ss))
  6.      (setq sn (ssname ss (setq i (1- i))))
  7.      (entmake (list '(0 . "CIRCLE")
  8.                     (cons 10
  9.                           (mapcar (function (lambda (a b)
  10.                                               (/ (+ a b) 2.)
  11.                                             )
  12.                                   )
  13.                                   (cdr (assoc 10 (entget sn)))
  14.                                   (cdr (assoc 11 (entget sn)))
  15.                           )
  16.                     )
  17.                     '(40 . 1.0)
  18.               )
  19.      )
  20.    )
  21.    (princ "\n Nothing selected or not line(s) *** ")
  22.  )
  23.  (princ)
  24. )
回复

使用道具 举报

Tharwat

63

主题

6297

帖子

6283

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
358
发表于 2022-7-6 08:39:26 | 显示全部楼层
我想这就是。。。。。
 
  2. (defun c:TesT (/ ss i sn p1 p2)
  3.  ;;; Tharwat 22. Feb. 2012 ;;;
  4.  (princ "\n Select lines :")
  5.  (if (setq ss (ssget '((0 . "LINE"))))
  6.    (repeat (setq i (sslength ss))
  7.      (setq sn (ssname ss (setq i (1- i))))
  8.      (entmake
  9.        (list
  10.          '(0 . "CIRCLE")
  11.          (cons 10
  12.                (polar (setq p1 (cdr (assoc 10 (entget sn))))
  13.                       (angle p1 (setq p2 (cdr (assoc 11 (entget sn)))))
  14.                       147.
  15.                )
  16.          )
  17.          '(40 . 3.0)
  18.        )
  19.      )
  20.      (entmake (list '(0 . "CIRCLE")
  21.                     (cons 10 (polar p2 (angle p2 p1) 147.))
  22.                     '(40 . 3.0)
  23.               )
  24.      )
  25.    )
  26.    (princ "\n Nothing selected or not line(s) *** ")
  27.  )
  28.  (princ)
  29. )
回复

使用道具 举报

BrianTFC

39

主题

180

帖子

141

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
195
发表于 2022-7-6 08:45:23 | 显示全部楼层
没有。但那很酷。。我需要它把两个圆圈6英寸，从两端的蓝色线“当挑选”在我的画，并有他们之间的蓝色和绿色的中心线。
回复

使用道具 举报

BIGAL

106

主题

1万

帖子

101

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1299
发表于 2022-7-6 08:50:36 | 显示全部楼层
对代码进行几个简单的更改
 
  2. (polar p2 (angle p2 p1) 147.)) change the 147 to 6"
  3. (polar p1 (angle p1 p2) 147.)) need to repeat entmake for other end
回复

使用道具 举报

pBe

32

主题

2722

帖子

2666

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
211
发表于 2022-7-6 08:57:07 | 显示全部楼层
两端距离6英寸？
什么决定了圆的半径？
回复

使用道具 举报

BrianTFC

39

主题

180

帖子

141

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
195
发表于 2022-7-6 09:03:02 | 显示全部楼层
这是Tharwat编写的代码，在Bigal的帮助下，我能够像我需要的那样将孔设置为距离线条末端6“，但我需要做什么更改才能使圆位于线条上方3/8”。
 
 
  1.  
  2. (defun c:wh (/ ss i sn p1 p2)
  3. ;;; Tharwat 22. Feb. 2012 ;;;
  4. (princ "\n Select lines :")
  5. (if (setq ss (ssget '((0 . "LINE"))))
  6. (repeat (setq i (sslength ss))
  7. (setq sn (ssname ss (setq i (1- i))))
  8. (entmake
  9. (list
  10. '(0 . "CIRCLE")
  11. (cons 10
  12. (polar (setq p1 (cdr (assoc 10 (entget sn))))
  13. (angle p1 (setq p2 (cdr (assoc 11 (entget sn)))))
  14. 6
  15. )
  16. )
  17. '(40 . 0.1875)
  18. )
  19. )
  20. (entmake (list '(0 . "CIRCLE")
  21. (cons 10 (polar p2 (angle p2 p1) 6))
  22. '(40 . 0.1875)
  23. )
  24. )
  25. )
  26. (princ "\n Nothing selected or not line(s) *** ")
  27. )
  28. (princ)
  29. )
回复

使用道具 举报

David Bethel

26

主题

1495

帖子

20

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
118
发表于 2022-7-6 09:06:52 | 显示全部楼层
我想我理解：
  2. [b][color=BLACK]([/color][/b]defun c:cirend [b][color=FUCHSIA]([/color][/b]/ ss en ed p10 p11 c10 c11 ang pan[b][color=FUCHSIA])[/color][/b]
  3.  [b][color=FUCHSIA]([/color][/b]and [b][color=NAVY]([/color][/b]setq ss [b][color=MAROON]([/color][/b]ssget '[b][color=GREEN]([/color][/b][b][color=BLUE]([/color][/b]0 . [color=#2f4f4f]"LINE"[/color][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
  4.       [b][color=NAVY]([/color][/b]while [b][color=MAROON]([/color][/b]setq en [b][color=GREEN]([/color][/b]ssname ss 0[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
  5.              [b][color=MAROON]([/color][/b]setq ed [b][color=GREEN]([/color][/b]entget en[b][color=GREEN])[/color][/b]
  6.                    p10 [b][color=GREEN]([/color][/b]cdr [b][color=BLUE]([/color][/b]assoc 10 ed[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
  7.                    p11 [b][color=GREEN]([/color][/b]cdr [b][color=BLUE]([/color][/b]assoc 11 ed[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
  8.                    c10 [b][color=GREEN]([/color][/b]polar p10 [b][color=BLUE]([/color][/b]angle p10 p11[b][color=BLUE])[/color][/b] 6[b][color=GREEN])[/color][/b]
  9.                    c11 [b][color=GREEN]([/color][/b]polar p11 [b][color=BLUE]([/color][/b]angle p11 p10[b][color=BLUE])[/color][/b] 6[b][color=GREEN])[/color][/b]
  10.                    ang [b][color=GREEN]([/color][/b]angle p10 p11[b][color=GREEN])[/color][/b]
  11.                    pan [b][color=GREEN]([/color][/b]if [b][color=BLUE]([/color][/b]< [b][color=RED]([/color][/b]* pi 0.5[b][color=RED])[/color][/b] ang [b][color=RED]([/color][/b]* pi 1.5[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b]
  12.                            [b][color=BLUE]([/color][/b]+ ang [b][color=RED]([/color][/b]* pi -0.5[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b]
  13.                            [b][color=BLUE]([/color][/b]+ ang [b][color=RED]([/color][/b]* pi  0.5[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
  14.                    c10 [b][color=GREEN]([/color][/b]polar c10 pan 0.375[b][color=GREEN])[/color][/b]
  15.                    c11 [b][color=GREEN]([/color][/b]polar c11 pan 0.375[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
  16.              [b][color=MAROON]([/color][/b]entmake [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]cons 0 [color=#2f4f4f]"CIRCLE"[/color][b][color=BLUE])[/color][/b][b][color=BLUE]([/color][/b]cons 10 c10[b][color=BLUE])[/color][/b][b][color=BLUE]([/color][/b]cons 40 0.1875[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
  17.              [b][color=MAROON]([/color][/b]entmake [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]cons 0 [color=#2f4f4f]"CIRCLE"[/color][b][color=BLUE])[/color][/b][b][color=BLUE]([/color][/b]cons 10 c11[b][color=BLUE])[/color][/b][b][color=BLUE]([/color][/b]cons 40 0.1875[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
  18.              [b][color=MAROON]([/color][/b]ssdel en ss[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
  19.  [b][color=FUCHSIA]([/color][/b]prin1[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]

 
 
-大卫
回复

使用道具 举报

12下一页
返回列表 发帖

发表回复

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

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-9 08:57 , Processed in 0.786842 second(s), 75 queries .

© 2020-2025 乐筑天下

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