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

在lisp中编写SSX命令

有谁知道如何将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选择您的选择集。
 
例如:
(setq ss (ssget "_X" '((0 . "INSERT"))))
(sssetfirst nil ss)
 

 
(sssetfirst nil (ssget "_X" '((0 . "INSERT")))))
页: [1]
查看完整版本: 在lisp中编写SSX命令