加载错误

michaeloureiro · 发表于 2022-7-6 16:37:23

大家好，
刚刚尝试重新加载lisp例程，我在命令中得到了这个结果
提示：

错误：无函数定义：c

有人能帮忙吗？

谢谢

Lee Mac · 发表于 2022-7-6 16:42:04

可能是LISP中的错误，请发布LISP，我会查看。

michaeloureiro · 发表于 2022-7-6 16:44:14

Tip2090:MARRAY。LSP修改阵列命令©2006 Paul Hinds

（defun c:MARRAY（）
;两点之间的多个相等数组
（setq SS（ssget））
（setq P1（getpoint“\n从点：”））
（setq P2（获取点p1“\n到点：”））
（setq dis（距离p1 p2））
（原则“\n立场”）
（princ dis）
（initget（+1 2 4））
（setq SPACE（getint“\n空格数：”）
（SETQ SPA（/DIS空间））
（“间距”原则）
（普林斯水疗中心）
（setq ANG（角度p1 p2））
（setq dist1（距离p1 p2））
（setq dist（/dist1空间））
（setq计数器空间）
;身体
（命令“undo”“be”）
（同时（>计数器0）
（命令“copy”ss“”p1（极坐标p1 ang（*dist counter）））
（setq计数器（-计数器1））
)
（命令“undo”“e”）
)

michaeloureiro · 发表于 2022-7-6 16:47:17

它第一次起作用。

Lee Mac · 发表于 2022-7-6 16:52:35

试试这个：

[code]（定义c:MARRAY（/ss p1 p2 dis spa ang counter）；2个点之间的多个相等数组（setvar“cmdecho”0）（setq SS（ssget））（if（and（setq P1（getpoint“\n从点：））（setq P2（getpoint P1“\n到点：））；_end and（progn（setq dis（distance p1 p2））（princ（strcat“\nDistance”（rtos dis）））（initget（+1 2 4））（setq space（getint“\n空格数：）（setq spa（/dis space））（princ（strcat“space between”（rtos spa）））（setq ang（角度p1 p2）计数器1）；_结束setq（而（