ggosgg 发表于 2024-8-21 22:47:43

函数传递参数

本帖最后由 ggosgg 于 2024-8-21 22:49 编辑

各位大佬，为什么这样写，调用会出现函数错误。

(defun C:tt()
   (setq Pt1 (getpoint "请输入第1点："))
   (setq Pt2 (getpoint pt1 "请输入第2点："))
   (line(Pt1 Pt2))
;(entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") (cons 90 2) (cons 10 StartPt) (cons 10 EndPt)))
)
;两顶点多段线（多顶点类似）
(defun line(StartPt EndPt)
(entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") (cons 90 2) (cons 10 StartPt) (cons 10 EndPt)))
)
..直接写到上面又是对的。变成函数就不对。

飞雪神光 发表于 2024-8-22 11:02:07

tanxindong 发表于 2024-8-22 09:10
我的win7系统用的飞诗，启动CAD2021时总是显示：末找到“start.scr“
怎么调好啊。请大神指导

将飞诗目录添加进CAD的默认搜索路径 重启CAD

tanxindong 发表于 2024-8-22 09:10:35

本帖最后由 tanxindong 于 2024-8-22 09:11 编辑

我的win7系统用的飞诗，启动CAD2021时总是显示：末找到“start.scr“
怎么调好啊。请大神指导D:\fei1.png

飞雪神光 发表于 2024-8-22 18:05:09

xxyyzzlg 发表于 2024-8-22 16:03
飞诗lisp编辑器 ，这个代码检查看起来很方便啊，最新版可从哪里下载的？

百度或者QQ群

飞雪神光 发表于 2024-8-21 23:04:41

(line Pt1 Pt2)

muai2010 发表于 2024-8-21 23:08:23

(line(Pt1 Pt2))-------(line Pt1 Pt2)

dingtiedt 发表于 2024-8-21 23:09:51

(line(Pt1 Pt2))改成 (line Pt1 Pt2)

shcvip 发表于 2024-8-21 23:36:39

飞雪神光 发表于 2024-8-21 23:04


请问，这是用什么软件检查的？

xiao1984 发表于 2024-8-22 07:53:18

飞诗代码编辑阅读器

飞雪神光 发表于 2024-8-22 11:03:08

shcvip 发表于 2024-8-21 23:36
请问，这是用什么软件检查的？

飞诗lisp编辑器

xxyyzzlg 发表于 2024-8-22 16:03:30

飞雪神光 发表于 2024-8-21 23:04


飞诗lisp编辑器 ，这个代码检查看起来很方便啊，最新版可从哪里下载的？
页: [1] 2
查看完整版本: 函数传递参数