社区 › Auto Lisp › 加载错误

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

试试这个：
 
（定义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（而（

michaeloureiro 发表于 2022-7-6 16:54:16

李·麦克，
 
这是我第一次Lisp程序，你得帮我解决这个问题。。。
如何将上述文本保存为lisp文件。。。
 
谢谢

michaeloureiro 发表于 2022-7-6 16:58:37

在faq上找到了，李·麦克

michaeloureiro 发表于 2022-7-6 17:01:40

李·麦克，
试用后得到：
 
; 错误：错误的参数类型：numberp:nil

Lee Mac 发表于 2022-7-6 17:04:50

隐马尔可夫模型。。我去看看

Lee Mac 发表于 2022-7-6 17:07:16

这对我来说似乎很好，但我会看看是否可以简化它。

查看完整版本: 加载错误