在lisp中编写SSX命令

Dorian Gray · 发表于 2022-7-6 11:34:20

有谁知道如何将ssx lisp写入脚本，但是该脚本具有如下lisp函数（红色）。

我可以使用ssget选择外部参照，但希望使用ssx进行选择，以便可以剪裁，但似乎无法让autocad读取ssx位，我做错了什么？

脚本运行时，命令行状态：错误：无函数定义：SSX

如果我用command作为前缀，它将显示：command:ssx Unknown command“ssx”。

这是剧本的一部分。。。。

（如果（=drawxref xref01）
（程序
（命令“tilemode”“0”）
（命令“ucs”“w”）
（命令“_.MSPACE”-视图“R”sht-01-sc1000）
（命令“tilemode”“1”）
（命令“-view“R”sht-01-sc1000”）
（命令“insert”“S:/standard/ACAD/HEASTD/STD Blocks/Sheets/a3\u sht\u sc1000.dwg”“0,0”“1”“1”“0”）
（命令“ucs”“w”）
（命令“-xref”“overlay”“HEA-GEN-XRF-RG000-DE-design-sc1000”“0,0”“1”“1”“0”）
;（命令“-xref”“overlay”“HEA-GEN-XRF-RG000-CA-exist-cadast-bdny”“0,0”“1”“1”“0”）
;（命令“-xref”“overlay”“HEA-GEN-XRF-GT000-GT-bornel-locations”“0,0”“1”“1”“0”）
（命令“-xref”“overlay”“HEA-GEN-XRF-PT000-PT-铺装”“0,0”“1”“1”“0”）
（命令“-xref”“overlay”“HEA-GEN-XRF-DC000-DR-PAINS”“0,0”“1”“1”“0”）
（命令“-xref”“overlay”“HEA-GEN-XRF-DC000-DR-basins-labels”“0,0”“1”“1”“0”）
（命令“-xref”“overlay”“HEA-GEN-XRF-DC000-DR-handle-labels”“0,0”“1”“1”“0”）
（命令“-xref”“overlay”“HEA-GEN-XRF-DC000-DR-handle-locations”“0,0”“1”“1”“0”）
;（命令“-xref”“overlay”“xref”“0,0”“1”“1”“0”）
;（命令“-xref”“overlay”“xref”“0,0”“1”“1”“0”）
;（命令“-xref”“overlay”“xref”“0,0”“1”“1”“0”）
;（命令“-xref”“overlay”“xref”“0,0”“1”“1”“0”）
;（命令“-xref”“overlay”“xref”“0,0”“1”“1”“0”）
;（命令“-xref”“overlay”“xref”“0,0”“1”“1”“0”）
（命令“-xref”“Detach”“HEA-GEN-XRF-RG000-SH-sheets-sc1000”）
（命令“-view“R”sht-01-sc1000”）
（ssx“”）
;（ssget“x”'（（0。“插入”）（2。“HEA-GEN-XRF*”）
（命令“xclip”“p”“”“New”“rectangle”“0,0”“385.000239.136”）
（命令“ucs”“w”）
（命令“-xref”“overlay”“HEA-GEN-XRF-RG000-SH-sheets-sc1000”“0,0”“1”“1”“0”）
))

干杯

alanjt · 发表于 2022-7-6 13:22:10

这是可能的，但不建议这样做。（c:SSX）将执行Lisp例程（SSX是Express Tools中的Lisp例程，还是在2k中仍称为Bonus Tools？）。

你只是想创建一个特定的选择吗？只需使用ssget创建一个选择集，然后使用sssetfirst选择您的选择集。

例如：

copy

(setq ss (ssget "_X" '((0 . "INSERT"))))
(sssetfirst nil ss)

或

copy

(sssetfirst nil (ssget "_X" '((0 . "INSERT")))))

[编程交流] 在lisp中编写SSX命令

发表回复

精选推荐