Getpoint-使用近sna时

rich220 · 发表于 2022-7-6 10:37:40

我的简单Lisp程序

（定义C:LSwt（）
（setq pt
（getpoint“\n选择灯光开关的中心点Sym”）（ERPI）
（命令“insert”“C:/light\u Switch\u Sym”pt“1”“1”）
（普林斯）

除非为“getpoint”的位置输入“near”，否则此Lisp有效。当输入“near”时，块被放置在最近的端点或中点，该端点或中点曾经距离拾取的点最近。当我列出pt（！pt）时，值等于拾取的点的值，而不是块放置的位置。

请帮忙，
里希220

lpseifert · 发表于 2022-7-6 11:01:00

可能是你的跑步快照
试试这个

copy


(Command "insert" "C:/light_Switch_Sym" "_non" pt "1" "1" )

Tharwat · 发表于 2022-7-6 11:10:35

在pt之前使用“_non”，如下所示：

copy


(Command "_.-insert" "C:/light_Switch_Sym" "_non" pt "1" "1" )

当做

塔瓦特

mdbdesign · 发表于 2022-7-6 11:22:21

这两个版本对我来说都很好。

rich220 · 发表于 2022-7-6 11:32:41

非常感谢您修复了它。。。

Tharwat · 发表于 2022-7-6 11:44:09

不客气。

欢迎来到CADTutor。

塔瓦特

[编程交流] Getpoint-使用近sna时

发表回复

精选推荐