LISP遇到无法理解的问题……新手求助
我想写一个快速画“分割线”的LISP小程序，想着先把“分割线”的主体直线做出来，分割线的长度要比两个截断点外扩7倍的比例值，于是……就遇到了无法理解的问题……如下图：红圈内是getpoint选择的两个点，比例输入的10，红线是程序生成的“分割线”，按照下图运行程序，左边红圈那里就不会沿X轴外扩70……，右边就完全没问题……
更让我无法理解的是（下图），截断点位置和上图是一摸一样的，只是把直线换成了垂直的…截断点外扩就没有任何问题（绿色线是程序生成的截断线）……
这是啥情况……代码里全是坐标和数值啊……跟是不是垂直直线有什么关系吗？希望高手给解惑一下，提前感谢啦！
代码内容如下：
(defun c:fgx (/ pt1 pt2 x1 y1 x2 y2 direction fgxscale mdpx mdpy startptx endptx startpty endpty #startpt #endpt)
(setq pt1 (getpoint "\n选择第一点: "))
(setq pt2 (getpoint "\n选择第二点: "))
;; 计算所选点的 X 和 Y 坐标
(setq x1 (car pt1)
y1 (cadr pt1)
x2 (car pt2)
y2 (cadr pt2))
;; 询问用户选择水平还是垂直
(setq direction (getstring "\n选择方向 (H:水平, V:垂直): "))
;; 输入比例参数
(setq fgxscale (getreal "\n输入比例参数: "))
;; 绘制分割线
(cond
;; 水平分割线
((= (strcase direction) "H")
;;(setq mdpx (/ (+ x1 x2) 2))
(setq mdpy (max y1 y2))
(setq startptx (- (min x1 x2) (* 7 fgxscale)))
(setq endptx (+ (max x1 x2) (* 7 fgxscale)))
(setq #startpt (list startptx mdpy))
(setq #endpt (list endptx mdpy))
(command "._line" #startpt #endpt "")
(princ (strcat "\n Start X: " (rtos startptx) ", End X: " (rtos endptx) "，mdpy: " (rtos mdpy)))
)
;; 垂直分割线
((= (strcase direction) "V")
(setq mdpx (max x1 x2))
(setq mdpy (/ (+ y1 y2) 2))
(setq startpty (- (min y1 y2) (* 7 fgxscale)))
(setq endpty (+ (max y1 y2) (* 7 fgxscale)))
(command "LINE" (list mdpx startpty) (list mdpx endpty) "")
)
(t
(princ "\n无效的方向选择，请重新运行命令。")
)
)
(princ)
)
(princ "\n输入命令 fgx 以绘制分割线。")
(defun c:tt ()
(if (and (setq pt1 (getpoint "\n选择第一点: "))
(setq pt2 (getpoint pt1 "\n选择第二点: "))
)
(progn
(setq x1(car pt1) ; 计算所选点的 X 和 Y 坐标
y1(cadr pt1)
x2(car pt2)
y2(cadr pt2)
kw(getstring "\n选择方向 (H:水平, V:垂直): ") ; 询问用户选择水平还是垂直
sc(getreal "\n输入比例参数: ") ; 输入比例参数
sc1 (* 7 sc)
)
(cond ((= (strcase kw) "H") ; 水平分割线
(setq mdpy (max y1 y2)
sp (- (min x1 x2) sc1)
ep (+ (max x1 x2) sc1)
p1 (list sp mdpy)
p2 (list ep mdpy)
)
(command "line" "non" p1 "non" p2 "")
)
((= (strcase kw) "V") ; 垂直分割线
(setq mdpx (max x1 x2)
mdpy (/ (+ y1 y2) 2)
sp (- (min y1 y2) sc1)
ep (+ (max y1 y2) sc1)
p1 (list mdpx sp)
p2 (list mdpx ep)
)
(command "line" "non" p1 "non" p2 "")
)
)
)
)
(princ)
) 选点顺序有影响，计算值应该加绝对值才行 建议画出一个原图和一个最终图，这样有个对比。
看了代码，不太明白你想实现什么？ (setvar "osnapcoord" 1)
开头加上这一行再试试看。 hhh454 发表于 2025-2-7 16:23
建议画出一个原图和一个最终图，这样有个对比。
看了代码，不太明白你想实现什么？
我也觉得楼主表述不清。 因为你用了command函数,所以有很大的可能是捕捉模式影响了你想要的结果,最好先关闭捕捉 hhh454 发表于 2025-2-7 16:23
建议画出一个原图和一个最终图，这样有个对比。
看了代码，不太明白你想实现什么？
感谢回复
我lisp新手一个，想做个简单的程序来学习一下
我是想实现这样一个功能，
1 在选定的两个点之间，画条水平或者垂直的线段；
2 线段的长度是选定的那两个点的X或Y轴坐标(根据水平或垂直选择)外扩一个指定的距离；
3 如果是水平线段，那么它的起点X坐标根据外扩距离进行计算得出，起点Y坐标是选定的那两个点较大的那个。
现在我碰到的问题是，帖子里那两张图片，在cad里，图1和图2里那两个对应的红圈点的坐标是完全一样的，怎么程序运行下来所生成的线段却不一样呢…… wwwswallow 发表于 2025-2-7 16:33
(setvar "osnapcoord" 1)
开头加上这一行再试试看。
感谢回复，我试试看 xyp1964 发表于 2025-2-7 17:47
厉害！感谢感谢！另外，想请问一下，这个 "non" 在command里是干是干什么用的呀
页:
[1]
2