用lisp画连续直线为啥不完整

指尖

      左侧为要完成的样子      右侧方块内为用程序画得效果图

哪位大神帮忙看一下程序哪里出问题了，感谢！！！！（程序见下面）


(defun c:mxt()
;(setq w (getreal "\n请输入箱体宽度："))
;(setq h (getreal "\n请输入箱体高度："))
;(setq d (getreal "\n请输入箱体深度："))
    (setq p0 (getpoint "\n请确定起点"))
    (setq y (cadr p0))                           ;从点获取Y轴值
    (setq x (car p0))                            ;从点获取X轴值
    (setq p1 (list x y ))
    (setq p2 (list (- x 30) (+ y 30)))           ;30斜边
    (setq y1 (cadr p2))                          ;从点获取Y轴值
    (setq x1 (car p2))                           ;从点获取X轴值
    (setq p3 (list (- x1 17) (+ y1 0)))          ;17立
    (setq y2 (cadr p3))                          ;从点获取Y轴值
    (setq x2 (car p3))                           ;从点获取X轴值
    (setq p4 (list (- x2 10) (+ y2 10)))
    (setq y3 (cadr p4))                          ;从点获取Y轴值
    (setq x3 (car p4))                           ;从点获取X轴值
    (setq p5 (list (- x3 0) (+ y3 417)))
(command "LINE"  p1 p2  "")
(command "LINE"  p2 p3  "")
(command "LINE"  p3 p4  "")
(command "LINE"  p4 p5  ""))

;;;    (command "LINE"  p1 p2 p3 p4 p5 "")

xyp1964

1. (defun c:tt ()
   
2.   (setq p0 (getpoint "\n请确定起点"))
   
3.   (setq p1 p0
   
4.         x2 (- (car p1) 30)
   
5.         y2 (+ (cadr p1) 30)
   
6.         p2 (list x2 y2)
   
7.         x3 (- x2 17)
   
8.         y3 y2
   
9.         p3 (list x3 y3)
   
10.         x4 (- x3 10)
    
11.         y4 (+ y3 10)
    
12.         p4 (list x4 y4)
    
13.         x5 x4
    
14.         y5 (+ y4 417)
    
15.         p5 (list x5 y5)
    
16.   )
    
17.   (setvar "osmode" 0)
    
18.   (command "LINE" p1 p2 p3 p4 p5 "")
    
19.   (princ)
    
20. )

(defun c:tt ()<br />   (setq p0 (getpoint "\n请确定起点"))<br />   (setq p1 p0<br />         x2 (- (car p1) 30)<br />         y2 (+ (cadr p1) 30)<br />         p2 (list x2 y2)<br />         x3 (- x2 17)<br />         y3 y2<br />         p3 (list x3 y3)<br />         x4 (- x3 10)<br />         y4 (+ y3 10)<br />         p4 (list x4 y4)<br />         x5 x4<br />         y5 (+ y4 417)<br />         p5 (list x5 y5)<br />   )<br />   (setvar "osmode" 0)<br />   (command "LINE" p1 p2 p3 p4 p5 "")<br />   (princ)<br /> )

Andyhon

有可能是捕捉模式的关系

llsheng_73

指尖 发表于 2024-12-29 21:30
有什么方法可以解决吗，谢谢！

1. (defun sk_osmode(flag)
   
2.   (setvar "osmode"((if flag rem +)(rem(getvar "osmode")16384)16384))
   
3.   )
   
4. 
   
5. 
   
6. (defun c:tt(/ p)
   
7.   (if(setq p(getpoint"指定起点"))
   
8.     (progn
   
9.       (SK_OSMODE nil)
   
10.       (command"line"p"@-30,30""@-17,0""@-17,0""@-10,10""@0,417""")
    
11.       (SK_OSMODE t))))
    

(defun sk_osmode(flag)<br />   (setvar "osmode"((if flag rem +)(rem(getvar "osmode")16384)16384))<br />   )<br /> <br /> <br /> (defun c:tt(/ p)<br />   (if(setq p(getpoint"指定起点"))<br />     (progn<br />       (SK_OSMODE nil)<br />       (command"line"p"@-30,30""@-17,0""@-17,0""@-10,10""@0,417""")<br />       (SK_OSMODE t))))<br />

指尖

Andyhon 发表于 2024-12-29 21:28
有可能是捕捉模式的关系

有什么方法可以解决吗，谢谢！

cghdy

llsheng_73 发表于 2024-12-29 22:23

还能这么写

chslwj521

llsheng_73 发表于 2024-12-29 22:23

老鸟呀，会用@和TK的很少见哦

llsheng_73

chslwj521 发表于 2024-12-30 15:49
老鸟呀，会用@和TK的很少见哦

我自己没用过，因为极少画图，不过印象中有老鸟的帖子里边这么用过，说明CAD的命令行里边是支持相对于上一点的相对坐标的，看楼主计算一大堆，忽然想起这个事来了而已

chslwj521

llsheng_73 发表于 2024-12-30 16:12
我自己没用过，因为极少画图，不过印象中有老鸟的帖子里边这么用过，说明CAD的命令行里边是支持相对于上 ...

不错了，好多画的都不知道，@ tk for，有什么用，和区别呵呵

指尖

llsheng_73 发表于 2024-12-29 22:23

感谢大神指点迷津，对于我这个新手来说，思路却是有些单一了。
我会去按照您的思路再做一遍，
再次感谢您的指点。