学习AutoLisp

albroswift · 发表于 2022-7-7 13:55:20

问候语
这个周末的项目学习一两件事。lsp文件。
开始学习教程
http://www.cadtutor.net/tutorials/autolisp/quick-start.php
在阅读了教程后，我尝试了一些示例脚本，其中有很多是有意义的新语言。
CHLAYER按预期工作，将文件放入/脚本目录，加载的文件，工作得很好，正如预期的那样，是我可以经常使用的东西。
尝试了“更改十字线角度”脚本：

copy

(defun c:perpdon (/ a b  pntl pnt2 angl) (graphscr)
(setq a (entsel))
(setq b (entget (car a)))
(setq pntl (cdr (assoc 10 b)))
(setq pnt2 (cdr (assoc 11 b)))
(setq angl (angle pntl pnt2))
(setvar "snapang" ang1)
(princ)
)
(defun c:perpdoff (setvar "snapang" 0)
(princ)
)

脚本向右选择实体，我选择一行，然后什么也没发生。正交保持0/90
还尝试将脚本“PERPDON”和“PERPDOFF”分开。lsp文件
无论哪种方式，命令“PERPDOFF”总是返回“未知命令按F1寻求帮助”
ACAD 2014
谢谢--
铝

BIGAL · 发表于 2022-7-7 14:06:59

要修复（）的简单错误，请使用#选项执行代码部分，或在开始时键入[c o d e][c o d e]在结束时，版主将处理此问题。

copy

(defun c:perpdoff () (setvar "snapang" 0)

albroswift · 发表于 2022-7-7 14:17:39

感谢您提供关于邮寄代码的说明。尝试添加（），仍然没有乐趣。尝试了一些其他的脚本，他们工作了，想知道这里缺少了什么。
铝

copy


(defun c:perpdon (/ a b pntl pnt2 angl) (graphscr)
(setq a (entsel))
(setq b (entget (car a)))
(setq pntl (cdr (assoc 10 b)))
(setq pnt2 (cdr (assoc 11 b)))
(setq angl (angle pntl pnt2))
(setvar "snapang" ang1)
(princ)
)
(defun c:perpdoff () (setvar "snapang" 0)
(princ)
)

BKT · 发表于 2022-7-7 14:21:05

代码似乎在“ang”变量中混合了数字“1”和小写“L”。如果您使它们保持一致，这应该可以解决问题（即，使用“ang1”或“angl”）。

为了避免混淆，最好将两个“pnt”变量设置为使用数字或字母，但不要使用其中一个。我会使用“pnt1”和“pnt2”。目前“pnt1”实际上是“pntl”，根据使用的字体，很难看出区别。