添加固定点

mhmnibras · 发表于 2022-7-5 22:29:21

“（定义c:xy（）
（命令“setvar”“dimzin”0）
（setq ucsname（getstring“\n请输入当前ucs名称：”）
（命令“ucs”“restore”ucsname）
（setq e（entsel“\n请选择一个对象：”）
（setq pt1（getpoint“\n请定位Y的点：”）
（setq dy1（cadr pt1））
（setq pt2（getpoint“\n请定位X的点：”）
（setq dy2（cadr pt2））
（setq e（entget（car e）））
（foreach f e）
（if（=（汽车f）10）
（程序
（setq g（列表（cadr f）（caddr f）））
（setq g（trans g 0 1））
（setq x（汽车g））
（setq xabs（sqrt（*x）））
（setq y（cadr g））
（setq yabs（sqrt（*y）））
（setq pty（列表（-x 0.03）（+dy1 0.015）））
（setq ch（rtos yabs 2 3））
（命令“text”pty 90 ch）
（setq ptx（列表（-x 0.03）（+dy2 0.04）））
（setq ch（rtos xabs 2 3））
（命令“text”ptx 90 ch）
（命令行“g（list x dy1）”）
)
)
)
)"

在这段代码中不需要getpoint
我需要从ucs点为x轴和y轴添加一个固定坐标
请帮助我任何人。。。

asos2000 · 发表于 2022-7-5 23:00:41

代码发布指南

MSasu · 发表于 2022-7-5 23:54:11

要检索Y坐标而不是点的值，只需替换以下代码：

copy

...
(setq pt1 (getpoint "\nplease locate point for Y:"))
(setq dy1 (cadr pt1))
(setq pt2 (getpoint "\nplease locate point for X:"))
(setq dy2 (cadr pt2))
...

有了这个：

copy

...
(if (or (not (setq e (entsel "\nPlease choose an object: ")))
       (not (setq dy1 (getreal "\nFirst Y coordinate:")))
       (not (setq dy2 (getreal "\nSecond Y coordinate:"))))
(exit)
)
...

[编程交流] 添加固定点

发表回复

精选推荐