reynaldomalasag 发表于 2022-7-5 16:32:46

x、 选定对象的y坐标

您好，先生/女士。。
谁能帮帮我！！！！！
这是一个lisp程序，它将创建显示x，y的文本
选定对象的坐标？
 
非常感谢。
先生

BIGAL 发表于 2022-7-5 16:45:33

这里有很多只需搜索“标签点”各种选项，纯文本、堆叠x/y、引线样式等。

tombu 发表于 2022-7-5 17:04:16

旧的开始，你需要放置Pt_坐标。dwg随代码一起附加到支持目录中。
;| Label for Point.
PtLabel.lsp BY: TOM BEAUFORD
^P(or C:Label (load "PtLabel.lsp"));PtLabel
BeaufordT@LeonCountyFL.gov
Leon County Public Works/Engineering
==================================================================|;

(defun C:PtLabel (/ ATTDIA)
   (setq ATTDIA (getvar "ATTDIA"))
   (setvar "ATTDIA" 0)
   (command "._INSERT"
            "Pt_Coordinates"
            (getpoint "Pick Point: ")                                                ;Insert pt
            (/ 0.1 (getvar "cannoscalevalue"))                                ;X Scale
;               (* (getvar "DIMTXT") (getvar "DIMSCALE"))        ;X Scale (Alternate)
            ""                                                        ;Y Scale
;               ""                                                      ;Rotation
            (*(/(getvar "viewtwist")pi)-180)        ;Rotation
            ""                                                        ;Easting
            ""                                                        ;Northing
   )
   (setvar "ATTDIA" ATTDIA)
   (entupd (entlast))
;      (command "._DDATTE" (entlast))
   (princ)
)

Pt_坐标。图纸

StevJ 发表于 2022-7-5 17:10:26

这里有一个简单的例子，显示了命令行中的坐标。
 
史蒂夫

1958 发表于 2022-7-5 17:31:28

我的版本
XY_引线。LSP

reynaldomalasag 发表于 2022-7-5 17:40:56

谢谢大师们：震惊：震惊：非常感谢！！！
页: [1]
查看完整版本: x、 选定对象的y坐标