本人萌新）请教一个lisp思路 选定的矩形里面怎样画它的对角线？

qwerqweraaa

fangmin723 发表于 2018-5-10 12:32
(SETQ ENT_SET (SSGET (list '(0 . "LWPOLYLINE") '(90 . 4) '(70 . 1))))

我的代码可以实现自动过滤，主要是自己加循环以后有各种错误，由于第一次接触，代码也是拼接的，不知道到底错在哪，代码如下，麻烦大神指正，最好有可以运行的代码可以让我对比学习，感谢！
  (setq ent_set (ssget '((-4 . "<AND") (0 . "LWPOLYLINE") (90 . 4) (70 . 1) (-4 . "AND>"))))
  (repeat (setq i (sslength ent_set))
  (setq pn_ent (ssname ent_set (setq i (1- i)))
  (setq entdata (entget  pn_ent))
  (foreach x entdata
        (if (= (car x) 10) (setq ptlst (cons (cdr x) ptlst)))
      )
      (setq ptlst (reverse ptlst))
      (entmake (list '(0 . "LINE") (cons 10 (car ptlst)) (cons 11 (caddr ptlst))))
      (entmake (list '(0 . "LINE") (cons 10 (cadr ptlst)) (cons 11 (cadddr ptlst))))
  (command ".UNDO" "E")         ; 设置UNDO终点
  (setq *error* $orr)  
  (prin1)
)

fangmin723

qwerqweraaa 发表于 2018-5-10 16:05
我的代码可以实现自动过滤，主要是自己加循环以后有各种错误，由于第一次接触，代码也是拼接的，不知道到 ...

怎么个循环法啊

fangmin723

qwerqweraaa 发表于 2018-5-10 16:05
我的代码可以实现自动过滤，主要是自己加循环以后有各种错误，由于第一次接触，代码也是拼接的，不知道到 ...

还有，把你的代码贴全了

qwerqweraaa

fangmin723 发表于 2018-5-10 17:08
还有，把你的代码贴全了

目的就是框选所有矩形，批量加对角线，我不知道具体循环代码怎么写， 上面贴的代码是全的，是我从其他lisp里拼接的，所以看着有问题，不知道怎么改

669423907

qwerqweraaa 发表于 2018-5-10 22:04
目的就是框选所有矩形，批量加对角线，我不知道具体循环代码怎么写， 上面贴的代码是全的，是我从其他lis ...

http://bbs.mjtd.com/thread-99400-1-1.html

qwerqweraaa

669423907 发表于 2018-5-10 22:31
http://bbs.mjtd.com/thread-99400-1-1.html

已成功实现目标功能，感谢两位！
顺便问一下，代码中reverse原因是什么？

fangmin723

qwerqweraaa 发表于 2018-5-10 22:04
目的就是框选所有矩形，批量加对角线，我不知道具体循环代码怎么写， 上面贴的代码是全的，是我从其他lis ...

全，全个鬼啊，你贴的代码，defun都没有！

这个也是我发的

算了，给你把

1. (defun c:tt1(/ ent ent_get entdata kye n ptlst)
   
2.   (setq n 0 kye T)
   
3.   (while key
   
4.     (if (setq ent_get (ssget (list '(0 . "LWPOLYLINE") '(90 . 4) '(70 . 1))))
   
5.       (repeat (sslength ent_get)
   
6.         (setq ptlst nil entdata (entget (ssname ent_get n)))
   
7.         (foreach x entdata
   
8.           (if (= (car x) 10) (setq ptlst (cons (cdr x) ptlst)))
   
9.         )
   
10.         (setq ptlst (reverse ptlst))
    
11.         (entmake (list '(0 . "LINE") (cons 10 (car ptlst)) (cons 11 (caddr ptlst))))
    
12.         (entmake (list '(0 . "LINE") (cons 10 (cadr ptlst)) (cons 11 (cadddr ptlst))))
    
13.         (setq n (+ n 1))
    
14.       )
    
15.       (progn
    
16.         (setq kye nil)
    
17.         (alert "选择错误，请选择封闭的四边形！")
    
18.       )
    
19.     )
    
20.    
    
21.   )
    
22.   (prin1)
    
23. )
    

(defun c:tt1(/ ent ent_get entdata kye n ptlst)<br />   (setq n 0 kye T)<br />   (while key<br />     (if (setq ent_get (ssget (list '(0 . "LWPOLYLINE") '(90 . 4) '(70 . 1))))<br />       (repeat (sslength ent_get)<br />         (setq ptlst nil entdata (entget (ssname ent_get n)))<br />         (foreach x entdata<br />           (if (= (car x) 10) (setq ptlst (cons (cdr x) ptlst)))<br />         )<br />         (setq ptlst (reverse ptlst))<br />         (entmake (list '(0 . "LINE") (cons 10 (car ptlst)) (cons 11 (caddr ptlst))))<br />         (entmake (list '(0 . "LINE") (cons 10 (cadr ptlst)) (cons 11 (cadddr ptlst))))<br />         (setq n (+ n 1))<br />       )<br />       (progn<br />         (setq kye nil)<br />         (alert "选择错误，请选择封闭的四边形！")<br />       )<br />     )<br />     <br />   )<br />   (prin1)<br /> )<br />

qwerqweraaa

fangmin723 发表于 2018-5-11 10:20
全，全个鬼啊，你贴的代码，defun都没有！

这个也是我发的

感谢感谢，请教一下ptlst为什么要reverse？

fangmin723

qwerqweraaa 发表于 2018-5-11 10:32
感谢感谢，请教一下ptlst为什么要reverse？

用不用都可以，自己多尝试，我有强迫症

25705070

受教了，学习中