乐筑天下

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

[编程交流] 从中检索顶点列表

[复制链接]
Tharwat

63

主题

6297

帖子

6283

银币

后起之秀

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

铜币
358
发表于 2022-7-5 16:06:45 | 显示全部楼层
没问题。
回复

使用道具 举报

samifox

218

主题

699

帖子

483

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1090
发表于 2022-7-5 16:11:17 | 显示全部楼层
你好
 
为什么这个不提取点？
 
  2. (setq plst (mapcar '(lambda (x) (assoc 10 lst)) lst))
回复

使用道具 举报

Tharwat

63

主题

6297

帖子

6283

银币

后起之秀

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

铜币
358
发表于 2022-7-5 16:13:04 | 显示全部楼层
 
 
分配给变量“lst”的值是多少？
回复

使用道具 举报

samifox

218

主题

699

帖子

483

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1090
发表于 2022-7-5 16:17:14 | 显示全部楼层
我不是acad的前面，而是我记得的积分列表
回复

使用道具 举报

Tharwat

63

主题

6297

帖子

6283

银币

后起之秀

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

铜币
358
发表于 2022-7-5 16:18:43 | 显示全部楼层
 
你的答案不够清楚，那么你想用之前的代码做什么？
回复

使用道具 举报

samifox

218

主题

699

帖子

483

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1090
发表于 2022-7-5 16:23:44 | 显示全部楼层
对不起，当我回家的时候，我会给你完整的密码
回复

使用道具 举报

David Bethel

26

主题

1495

帖子

20

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
118
发表于 2022-7-5 16:25:35 | 显示全部楼层
我首先推荐您学习基本的autolisp。
 
重多段线的gotcha是标题组70和顶点组70代码：
 
->参数->多段线名称
  2. [b][color=BLACK]([/color][/b]defun plpts [b][color=FUCHSIA]([/color][/b]en / ed mf vn vd vf[b][color=FUCHSIA])[/color][/b]
  4.  [b][color=FUCHSIA]([/color][/b]setq ed [b][color=NAVY]([/color][/b]entget en[b][color=NAVY])[/color][/b]
  5.        mf [b][color=NAVY]([/color][/b]cdr [b][color=MAROON]([/color][/b]assoc 70 ed[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
  7.  [b][color=FUCHSIA]([/color][/b]and [b][color=NAVY]([/color][/b]= mf 0[b][color=NAVY])[/color][/b]
  8.       [b][color=NAVY]([/color][/b]princ [color=#2f4f4f]"I'm a open 2D Polyline\n"[/color][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
  9.  [b][color=FUCHSIA]([/color][/b]and [b][color=NAVY]([/color][/b]= [b][color=MAROON]([/color][/b]logand mf 1[b][color=MAROON])[/color][/b] 1[b][color=NAVY])[/color][/b]
  10.       [b][color=NAVY]([/color][/b]princ [color=#2f4f4f]"I'm a closed Polyline in theM direction\n"[/color][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
  11.  [b][color=FUCHSIA]([/color][/b]and [b][color=NAVY]([/color][/b]= [b][color=MAROON]([/color][/b]logand mf 2[b][color=MAROON])[/color][/b] 2[b][color=NAVY])[/color][/b]
  12.       [b][color=NAVY]([/color][/b]princ [color=#2f4f4f]"I'm a curved fit Polyline\n"[/color][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
  13.  [b][color=FUCHSIA]([/color][/b]and [b][color=NAVY]([/color][/b]= [b][color=MAROON]([/color][/b]logand mf 2[b][color=MAROON])[/color][/b] 4[b][color=NAVY])[/color][/b]
  14.       [b][color=NAVY]([/color][/b]princ [color=#2f4f4f]"I'm a spline-fit Polyline\n"[/color][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
  15.  [b][color=FUCHSIA]([/color][/b]and [b][color=NAVY]([/color][/b]= [b][color=MAROON]([/color][/b]logand mf 8[b][color=MAROON])[/color][/b] 8[b][color=NAVY])[/color][/b]
  16.       [b][color=NAVY]([/color][/b]princ [color=#2f4f4f]"I'm a 3D Polyline\n"[/color][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
  17.  [b][color=FUCHSIA]([/color][/b]and [b][color=NAVY]([/color][/b]= [b][color=MAROON]([/color][/b]logand mf 16[b][color=MAROON])[/color][/b] 16[b][color=NAVY])[/color][/b]
  18.       [b][color=NAVY]([/color][/b]princ [color=#2f4f4f]"I'm a 3D Polyline Mesh\n"[/color][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
  19.  [b][color=FUCHSIA]([/color][/b]and [b][color=NAVY]([/color][/b]= [b][color=MAROON]([/color][/b]logand mf 32[b][color=MAROON])[/color][/b] 32[b][color=NAVY])[/color][/b]
  20.       [b][color=NAVY]([/color][/b]princ [color=#2f4f4f]"I'm a closed Polyline Mesh in the N direction\n"[/color][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
  21.  [b][color=FUCHSIA]([/color][/b]and [b][color=NAVY]([/color][/b]= [b][color=MAROON]([/color][/b]logand mf 64[b][color=MAROON])[/color][/b] 64[b][color=NAVY])[/color][/b]
  22.       [b][color=NAVY]([/color][/b]princ [color=#2f4f4f]"I'm a PFACE Polyline Mesh\n"[/color][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
  24.  [b][color=FUCHSIA]([/color][/b]terpri[b][color=FUCHSIA])[/color][/b]
  26.  [b][color=FUCHSIA]([/color][/b]setq vn [b][color=NAVY]([/color][/b]entnext en[b][color=NAVY])[/color][/b]
  27.        vd [b][color=NAVY]([/color][/b]entget vn[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
  29.  [b][color=FUCHSIA]([/color][/b]while [b][color=NAVY]([/color][/b]= [color=#2f4f4f]"VERTEX"[/color] [b][color=MAROON]([/color][/b]cdr [b][color=GREEN]([/color][/b]assoc 0 vd[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
  30.         [b][color=NAVY]([/color][/b]setq vp [b][color=MAROON]([/color][/b]cdr [b][color=GREEN]([/color][/b]assoc 10 vd[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
  31.               vf [b][color=MAROON]([/color][/b]cdr [b][color=GREEN]([/color][/b]assoc 70 vd[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
  33.  [color=#8b4513];;;Here's where the fun begins![/color]
  35.         [b][color=NAVY]([/color][/b]cond [b][color=MAROON]([/color][/b][b][color=GREEN]([/color][/b]and [b][color=BLUE]([/color][/b]= mf 0[b][color=BLUE])[/color][/b]
  36.                     [b][color=BLUE]([/color][/b]= vf 0[b][color=BLUE])[/color][/b]
  37.                     [b][color=BLUE]([/color][/b]= [b][color=RED]([/color][/b]cdr [b][color=PURPLE]([/color][/b]assoc 42 vd[b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b] 0[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
  38.                [b][color=GREEN]([/color][/b]prin1 vp[b][color=GREEN])[/color][/b]
  39.                [b][color=GREEN]([/color][/b]princ [color=#2f4f4f]" - I'm a 2D Vertex point\n"[/color][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
  40.               [b][color=MAROON]([/color][/b][b][color=GREEN]([/color][/b]and [b][color=BLUE]([/color][/b]= mf 0[b][color=BLUE])[/color][/b]
  41.                     [b][color=BLUE]([/color][/b]= vf 0[b][color=BLUE])[/color][/b]
  42.                     [b][color=BLUE]([/color][/b]/= [b][color=RED]([/color][/b]cdr [b][color=PURPLE]([/color][/b]assoc 42 vd[b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b] 0[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
  43.                [b][color=GREEN]([/color][/b]prin1 vp[b][color=GREEN])[/color][/b]
  44.                [b][color=GREEN]([/color][/b]princ [color=#2f4f4f]" - I'm a 2D Bulge Ceneter point\n"[/color][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
  45.               [b][color=MAROON]([/color][/b][b][color=GREEN]([/color][/b]and [b][color=BLUE]([/color][/b]= [b][color=RED]([/color][/b]logand mf 2[b][color=RED])[/color][/b] 2[b][color=BLUE])[/color][/b]
  46.                     [b][color=BLUE]([/color][/b]= [b][color=RED]([/color][/b]logand vf 1[b][color=RED])[/color][/b] 1[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
  47.                [b][color=GREEN]([/color][/b]prin1 vp[b][color=GREEN])[/color][/b]
  48.                [b][color=GREEN]([/color][/b]princ [color=#2f4f4f]" - I'm UCS curved fit tangent point\n"[/color][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
  49.               [b][color=MAROON]([/color][/b][b][color=GREEN]([/color][/b]and [b][color=BLUE]([/color][/b]= [b][color=RED]([/color][/b]logand mf 8[b][color=RED])[/color][/b] 8[b][color=BLUE])[/color][/b]
  50.                    [b][color=BLUE]([/color][/b]= [b][color=RED]([/color][/b]logand vf 1[b][color=RED])[/color][/b] 32[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
  51.                [b][color=GREEN]([/color][/b]prin1 vp[b][color=GREEN])[/color][/b]
  52.                [b][color=GREEN]([/color][/b]princ [color=#2f4f4f]" - I'm a WCS Vertex point\n"[/color][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
  53.               [b][color=MAROON]([/color][/b][b][color=GREEN]([/color][/b]and [b][color=BLUE]([/color][/b]= [b][color=RED]([/color][/b]logand mf 16[b][color=RED])[/color][/b] 16[b][color=BLUE])[/color][/b]
  54.                     [b][color=BLUE]([/color][/b]= [b][color=RED]([/color][/b]logand vf 64[b][color=RED])[/color][/b] 64[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
  55.                [b][color=GREEN]([/color][/b]prin1 vp[b][color=GREEN])[/color][/b]
  56.                [b][color=GREEN]([/color][/b]princ [color=#2f4f4f]" - I'm a WCS Mesh point\n"[/color][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
  57.               [b][color=MAROON]([/color][/b][b][color=GREEN]([/color][/b]and [b][color=BLUE]([/color][/b]= [b][color=RED]([/color][/b]logand mf 64[b][color=RED])[/color][/b] 64[b][color=BLUE])[/color][/b]
  58.                     [b][color=BLUE]([/color][/b]= [b][color=RED]([/color][/b]logand vf 128[b][color=RED])[/color][/b] 128[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
  59.                [b][color=GREEN]([/color][/b]prin1 vp[b][color=GREEN])[/color][/b]
  60.                [b][color=GREEN]([/color][/b]princ [color=#2f4f4f]" - I'm a WCS PFACE point\n"[/color][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
  61.           [b][color=NAVY])[/color][/b][color=#8b4513];cond[/color]
  63.         [b][color=NAVY]([/color][/b]setq vn [b][color=MAROON]([/color][/b]entnext vn[b][color=MAROON])[/color][/b]
  64.               vd [b][color=MAROON]([/color][/b]entget vn[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
  65.  [b][color=FUCHSIA]([/color][/b]prin1[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]

 
 
基于实体构造，有许多标志组合需要测试。
 
玩得开心-大卫
回复

使用道具 举报

samifox

218

主题

699

帖子

483

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1090
发表于 2022-7-5 16:30:01 | 显示全部楼层
你好
 
您将如何使用mapcar检索顶点？
回复

使用道具 举报

hanhphuc

5

主题

956

帖子

963

银币

初来乍到

Rank: 1

铜币
35
发表于 2022-7-5 16:31:20 | 显示全部楼层
如果检索顶点坐标，
  2. ([color="blue"]mapcar[/color] 'cdr (vl-remove-if '(lambda (x) (/= (car x) 10)) (entget(car(entsel)))))
  4. ;or
  6. ([color="blue"]mapcar[/color] 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget(car(entsel)))))

*注意：但是，只有不带凸起的LW多段线
回复

使用道具 举报

samifox

218

主题

699

帖子

483

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1090
发表于 2022-7-5 16:36:04 | 显示全部楼层
可以同时混合autolisp和vlisp吗？
回复

使用道具 举报

12
返回列表 发帖

发表回复

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

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-7-7 13:29 , Processed in 2.318396 second(s), 70 queries .

© 2020-2025 乐筑天下

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