乐筑天下

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

[编程交流] 代理对象

[复制链接]
wimal

171

主题

447

帖子

276

银币

中流砥柱

Rank: 25

铜币
860
发表于 2022-7-5 16:57:42 | 显示全部楼层 |阅读模式
我怎样才能找到这些项目点的坐标。
Cad文件已上载。
代理对象。图纸
回复

使用道具 举报

Grrr

66

主题

1552

帖子

1514

银币

后起之秀

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

铜币
325
发表于 2022-7-5 17:11:59 | 显示全部楼层
我只能解决这个问题（带有边界框比较的半自动）：
  3. [b][color=BLACK]([/color][/b]defun C:test [b][color=FUCHSIA]([/color][/b] / s sl d cen bp SS i e lst plst osm [b][color=FUCHSIA])[/color][/b]
  5. [b][color=FUCHSIA]([/color][/b]setvar 'errno 0[b][color=FUCHSIA])[/color][/b] [b][color=FUCHSIA]([/color][/b]redraw[b][color=FUCHSIA])[/color][/b]
  6. [b][color=FUCHSIA]([/color][/b]while [b][color=NAVY]([/color][/b]/= 52 [b][color=MAROON]([/color][/b]getvar 'errno[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
  7.         [b][color=NAVY]([/color][/b]princ [color=#2f4f4f]"\nSelect source proxy entity for reference <exit>: "[/color][b][color=NAVY])[/color][/b]
  8.         [b][color=NAVY]([/color][/b]setq s [b][color=MAROON]([/color][/b]ssget [color=#2f4f4f]"_+.:E:S"[/color] '[b][color=GREEN]([/color][/b][b][color=BLUE]([/color][/b]0 . [color=#2f4f4f]"ACAD_PROXY_ENTITY"[/color][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
  9.         [b][color=NAVY]([/color][/b]cond
  10.                 [b][color=MAROON]([/color][/b][b][color=GREEN]([/color][/b]= 7 [b][color=BLUE]([/color][/b]getvar 'errno[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]princ [color=#2f4f4f]"\nMissed, try again."[/color][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
  11.                 [b][color=MAROON]([/color][/b][b][color=GREEN]([/color][/b]= 'PICKSET [b][color=BLUE]([/color][/b]type s[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b] 
  12.                         [b][color=GREEN]([/color][/b]setq s [b][color=BLUE]([/color][/b]ssname s 0[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
  13.                         [b][color=GREEN]([/color][/b]vla-GetBoundingBox [b][color=BLUE]([/color][/b]vlax-ename->vla-object s[b][color=BLUE])[/color][/b] 'll 'ur[b][color=GREEN])[/color][/b]
  14.                         [b][color=GREEN]([/color][/b]setq sl [b][color=BLUE]([/color][/b]mapcar 'vlax-safearray->list [b][color=RED]([/color][/b]list ll ur[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
  15.                         [b][color=GREEN]([/color][/b]setq d [b][color=BLUE]([/color][/b]apply 'distance sl[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
  16.                         [b][color=GREEN]([/color][/b]setq cen [b][color=BLUE]([/color][/b]mapcar '[b][color=RED]([/color][/b]lambda [b][color=PURPLE]([/color][/b]a b[b][color=PURPLE])[/color][/b] [b][color=PURPLE]([/color][/b]/ [b][color=TEAL]([/color][/b]+ a b[b][color=TEAL])[/color][/b] 2.[b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b]car sl[b][color=RED])[/color][/b] [b][color=RED]([/color][/b]cadr sl[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
  17.                         [b][color=GREEN]([/color][/b]command [color=#2f4f4f]"_.EXPLODE"[/color] s[b][color=GREEN])[/color][/b] [color=#8b4513]; I don't want to explode it, only the proxy's basept to be snappable[/color]
  18.                         [b][color=GREEN]([/color][/b]if [b][color=BLUE]([/color][/b]setq bp [b][color=RED]([/color][/b]getpoint [color=#2f4f4f]"\nSpecify its base point for reference < exit >: "[/color] cen[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b]
  19.                                 [b][color=BLUE]([/color][/b]progn [b][color=RED]([/color][/b]setq sl [b][color=PURPLE]([/color][/b]list d [b][color=TEAL]([/color][/b]angle cen bp[b][color=TEAL])[/color][/b] [b][color=TEAL]([/color][/b]distance cen bp[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b]grdraw cen bp 1 1[b][color=RED])[/color][/b] [b][color=RED]([/color][/b]setq plst [b][color=PURPLE]([/color][/b]cons bp plst[b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b]
  20.                                 [b][color=BLUE]([/color][/b]setq sl nil[b][color=BLUE])[/color][/b]
  21.                         [b][color=GREEN])[/color][/b]
  22.                         [b][color=GREEN]([/color][/b]setvar 'errno 52[b][color=GREEN])[/color][/b]
  23.                 [b][color=MAROON])[/color][/b]
  24.                 [b][color=MAROON]([/color][/b]T nil[b][color=MAROON])[/color][/b]
  25.         [b][color=NAVY])[/color][/b][color=#8b4513]; cond[/color]
  26. [b][color=FUCHSIA])[/color][/b][color=#8b4513]; while[/color]
  28. [b][color=FUCHSIA]([/color][/b]if 
  29.         [b][color=NAVY]([/color][/b]and sl 
  30.                 [color=#8b4513]; [b][color=MAROON]([/color][/b]princ [color=#2f4f4f]"\nSelect proxy objects: "[/color][b][color=MAROON])[/color][/b][/color]
  31.                 [b][color=MAROON]([/color][/b]setq SS [b][color=GREEN]([/color][/b]ssget [color=#2f4f4f]"_X"[/color] [b][color=BLUE]([/color][/b]list [b][color=RED]([/color][/b]cons 0 [color=#2f4f4f]"ACAD_PROXY_ENTITY"[/color][b][color=RED])[/color][/b][b][color=RED]([/color][/b]if [b][color=PURPLE]([/color][/b]= 1 [b][color=TEAL]([/color][/b]getvar 'cvport[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b] [b][color=PURPLE]([/color][/b]cons 410 [b][color=TEAL]([/color][/b]getvar 'ctab[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b] '[b][color=PURPLE]([/color][/b]410 . [color=#2f4f4f]"Model"[/color][b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
  32.         [b][color=NAVY])[/color][/b]
  33.         [b][color=NAVY]([/color][/b]progn
  34.                 [b][color=MAROON]([/color][/b]repeat [b][color=GREEN]([/color][/b]setq i [b][color=BLUE]([/color][/b]sslength SS[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
  35.                         [b][color=GREEN]([/color][/b]setq e [b][color=BLUE]([/color][/b]ssname SS [b][color=RED]([/color][/b]setq i [b][color=PURPLE]([/color][/b]1- i[b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
  36.                         [b][color=GREEN]([/color][/b]vla-GetBoundingBox [b][color=BLUE]([/color][/b]vlax-ename->vla-object e[b][color=BLUE])[/color][/b] 'll 'ur[b][color=GREEN])[/color][/b]
  37.                         [b][color=GREEN]([/color][/b]setq lst [b][color=BLUE]([/color][/b]mapcar 'vlax-safearray->list [b][color=RED]([/color][/b]list ll ur[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
  38.                         [b][color=GREEN]([/color][/b]if [b][color=BLUE]([/color][/b]equal [b][color=RED]([/color][/b]setq d [b][color=PURPLE]([/color][/b]apply 'distance lst[b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b]car sl[b][color=RED])[/color][/b] 1e-8[b][color=BLUE])[/color][/b]
  39.                                 [b][color=BLUE]([/color][/b]progn
  40.                                         [b][color=RED]([/color][/b]setq cen [b][color=PURPLE]([/color][/b]mapcar '[b][color=TEAL]([/color][/b]lambda [b][color=OLIVE]([/color][/b]a b[b][color=OLIVE])[/color][/b] [b][color=OLIVE]([/color][/b]/ [b][color=GRAY]([/color][/b]+ a b[b][color=GRAY])[/color][/b] 2.[b][color=OLIVE])[/color][/b][b][color=TEAL])[/color][/b] [b][color=TEAL]([/color][/b]car lst[b][color=TEAL])[/color][/b] [b][color=TEAL]([/color][/b]cadr lst[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b]
  41.                                         [b][color=RED]([/color][/b]setq bp [b][color=PURPLE]([/color][/b]polar cen [b][color=TEAL]([/color][/b]cadr sl[b][color=TEAL])[/color][/b] [b][color=TEAL]([/color][/b]caddr sl[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b]
  42.                                         [b][color=RED]([/color][/b]setq plst [b][color=PURPLE]([/color][/b]cons bp plst[b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b]
  43.                                 [b][color=BLUE])[/color][/b][color=#8b4513]; progn[/color]
  44.                         [b][color=GREEN])[/color][/b][color=#8b4513]; if[/color]
  45.                 [b][color=MAROON])[/color][/b][color=#8b4513]; repeat[/color]
  46.                 [b][color=MAROON]([/color][/b]setq osm [b][color=GREEN]([/color][/b]getvar 'osmode[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
  47.                 [b][color=MAROON]([/color][/b]setvar 'osmode 0[b][color=MAROON])[/color][/b]
  48.                 [b][color=MAROON]([/color][/b]setvar 'pdmode 35[b][color=MAROON])[/color][/b]
  49.                 [b][color=MAROON]([/color][/b]foreach x plst [b][color=GREEN]([/color][/b]entmakex [b][color=BLUE]([/color][/b]list [b][color=RED]([/color][/b]cons 0 [color=#2f4f4f]"POINT"[/color][b][color=RED])[/color][/b] [b][color=RED]([/color][/b]cons 62 1[b][color=RED])[/color][/b] [b][color=RED]([/color][/b]cons 10 x[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b] [color=#8b4513]; graphical check[/color]
  50.                 [b][color=MAROON]([/color][/b]princ [b][color=GREEN]([/color][/b]strcat [color=#2f4f4f]"\nProceeded "[/color] [b][color=BLUE]([/color][/b]itoa [b][color=RED]([/color][/b]length plst[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b] [color=#2f4f4f]" proxy objects with the same BoundingBox."[/color][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
  51.                 [b][color=MAROON]([/color][/b]setvar 'osmode osm[b][color=MAROON])[/color][/b]
  52.         [b][color=NAVY])[/color][/b][color=#8b4513]; progn[/color]
  53. [b][color=FUCHSIA])[/color][/b][color=#8b4513]; if[/color]
  54. [b][color=FUCHSIA]([/color][/b]princ[b][color=FUCHSIA])[/color][/b]
  55. [b][color=BLACK])[/color][/b][color=#8b4513];| defun |; [b][color=BLACK]([/color][/b]vl-load-com[b][color=BLACK])[/color][/b] [b][color=BLACK]([/color][/b]princ[b][color=BLACK])[/color][/b][/color]

选定的源代理已分解（抱歉）。
也许其他人可以“开发”或想出更好的办法。
回复

使用道具 举报

BIGAL

106

主题

1万

帖子

101

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1299
发表于 2022-7-5 17:20:33 | 显示全部楼层
Wimal对象是
 
AECC_点图层：“0”
空间：模型空间
手柄=472
文本位置：（321447.349944110.55，0.00）
文字旋转：
正常：（0.00，0.00，1.00）
组名称：
点数：372
点名称：
北距：9944110.55
东距：321447.34
标高：1468.81 XDRef：
原始描述：NYCS0071 XDRef：
完整描述：NYCS0071
标记位置：（321447.349944110.55，0.00）
 
因为我有CIV3D没问题，如果你用这个，你会得到什么请张贴，只是复制和粘贴到命令行。
 
  2. (vlax-Dump-Object (vlax-Ename->Vla-Object (car (entsel))))
回复

使用道具 举报

wimal

171

主题

447

帖子

276

银币

中流砥柱

Rank: 25

铜币
860
发表于 2022-7-5 17:35:33 | 显示全部楼层
谢谢Bigal先生，我用autocad 2016运行它。
175744q1ur85c833s1kz1z.png
回复

使用道具 举报

wimal

171

主题

447

帖子

276

银币

中流砥柱

Rank: 25

铜币
860
发表于 2022-7-5 17:39:35 | 显示全部楼层
即使在civil 3d 2015中
175745i22dlxgl6001dpgl.png
回复

使用道具 举报

wimal

171

主题

447

帖子

276

银币

中流砥柱

Rank: 25

铜币
860
发表于 2022-7-5 17:49:04 | 显示全部楼层
使用civil 3D打开后
当我选择它时，将插入点对齐。
当我移动它时，会自动生成一个指向插入点的箭头。。
但我不能得到插入点的值。
一定有人有办法。
175747zh88y8xm4xhxxbmv.png
回复

使用道具 举报

Roy_043

18

主题

1529

帖子

973

银币

中流砥柱

Rank: 25

铜币
649
发表于 2022-7-5 17:59:17 | 显示全部楼层
下面的代码有点风险，因为与Grrr的建议一样，使用了_Explode命令：
  1. (defun KGA_Sys_Entlast ( / enm tmp)
  2.  (if (setq enm (entlast))
  3.    (while (setq tmp (entnext enm))
  4.      (setq enm tmp)
  5.    )
  6.  )
  7.  enm
  8. )
  10. ; (AeccDbPointInsPointGet (car (entsel)))
  11. (defun AeccDbPointInsPointGet (enm / enmLast obj ptLst tmp)
  12.  (setq enmLast (KGA_Sys_Entlast))
  13.  (setvar 'cmdecho 0)
  14.  (command "_.explode" enm)
  15.  (while (setq tmp (entnext enmLast))
  16.    (if (= "AcDbLine" (vla-get-objectname (setq obj (vlax-ename->vla-object tmp))))
  17.      (setq ptLst (vl-list* (vlax-get obj 'startpoint) (vlax-get obj 'endpoint) ptLst))
  18.    )
  19.    (setq enmLast tmp)
  20.  )
  21.  (command "_.u")
  22.  (setvar 'cmdecho 1)
  23.  (if (= 4 (length ptLst)) (apply 'inters ptLst))
  24. )
回复

使用道具 举报

返回列表 发帖

发表回复

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

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-13 12:56 , Processed in 0.367175 second(s), 68 queries .

© 2020-2025 乐筑天下

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