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

Getpoint-使用近sna时

我的简单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

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

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

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

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

(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。
 
塔瓦特
页: [1]
查看完整版本: Getpoint-使用近sna时