乐筑天下

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

[编程交流] x、 选定对象的y坐标

[复制链接]

3

主题

8

帖子

5

银币

初来乍到

Rank: 1

铜币
15
发表于 2022-7-5 16:32:46 | 显示全部楼层 |阅读模式
您好,先生/女士。。
谁能帮帮我!!!!!
这是一个lisp程序,它将创建显示x,y的文本
选定对象的坐标?
 
非常感谢。
先生
回复

使用道具 举报

106

主题

1万

帖子

101

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1299
发表于 2022-7-5 16:45:33 | 显示全部楼层
这里有很多只需搜索“标签点”各种选项,纯文本、堆叠x/y、引线样式等。
回复

使用道具 举报

17

主题

1274

帖子

25

银币

后起之秀

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

铜币
260
发表于 2022-7-5 17:04:16 | 显示全部楼层
旧的开始,你需要放置Pt_坐标。dwg随代码一起附加到支持目录中。
  1. ;| Label for Point.
  2.   PtLabel.lsp BY: TOM BEAUFORD
  3.   ^P(or C:Label (load "PtLabel.lsp"));PtLabel
  4.   BeaufordT@LeonCountyFL.gov
  5.   Leon County Public Works/Engineering
  6. ==================================================================|;
  7. (defun C:PtLabel (/ ATTDIA)
  8.      (setq ATTDIA (getvar "ATTDIA"))
  9.      (setvar "ATTDIA" 0)
  10.      (command "._INSERT"
  11.               "Pt_Coordinates"
  12.               (getpoint "Pick Point: ")                                                ;Insert pt
  13.               (/ 0.1 (getvar "cannoscalevalue"))                                ;X Scale
  14. ;               (* (getvar "DIMTXT") (getvar "DIMSCALE"))        ;X Scale (Alternate)
  15.               ""                                                        ;Y Scale
  16. ;               ""                                                        ;Rotation
  17.               (*(/(getvar "viewtwist")pi)-180)        ;Rotation
  18.               ""                                                        ;Easting
  19.               ""                                                        ;Northing
  20.      )
  21.      (setvar "ATTDIA" ATTDIA)
  22.      (entupd (entlast))
  23. ;      (command "._DDATTE" (entlast))
  24.      (princ)
  25. )

Pt_坐标。图纸
回复

使用道具 举报

13

主题

146

帖子

136

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
62
发表于 2022-7-5 17:10:26 | 显示全部楼层
这里有一个简单的例子,显示了命令行中的坐标。
 
史蒂夫
回复

使用道具 举报

0

主题

19

帖子

21

银币

限制会员

铜币
-2
发表于 2022-7-5 17:31:28 | 显示全部楼层
我的版本
XY_引线。LSP
回复

使用道具 举报

3

主题

8

帖子

5

银币

初来乍到

Rank: 1

铜币
15
发表于 2022-7-5 17:40:56 | 显示全部楼层
谢谢大师们:震惊:震惊:非常感谢!!!
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-8-21 02:02 , Processed in 0.860418 second(s), 65 queries .

© 2020-2025 乐筑天下

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