找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 430|回复: 1

[编程申请] 大师帮我改下按最近点排队顺序

[复制链接]

已领礼包: 200个

财富等级: 日进斗金

发表于 2020-1-18 11:41:18 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?立即注册

×

这有现在的

这有现在的

(defun c:ttaa(/ e e1 e2 f n m p pp p0 pt y x r r0)
  (setq f (open "C:\\Users\\Administrator\\Desktop\\dk.nc" "w"))
  (setq s (ssget))
  (setq n (sslength s) m 0 pp '())
  (repeat n
    (setq e (ssname s m) m (1+ m))
    (setq e1 (entget e))
    (setq e2 (cdr(assoc 0 e1)))
    (if (= e2 "CIRCLE")
        (progn
          (setq pt (cdr (assoc 10 e1)))
          (setq  y (car pt) x (cadr pt))
         (setq  r (cdr (assoc 40 e1)))
          (setq pp (cons (list r y x) pp))
        )
    )
   )
    (setq pp (sort_pList pp))
    (setq m 0 r0 nil)
  (repeat (length pp)
    (setq p (nth m pp) m (1+ m))
    (setq r (car p))
    (setq p0 (strcat "N" (rtos m 2 0) "X" (rtos (cadr p) 2 2) "Y" (rtos (caddr p) 2 2)"Z10."))
    (if (/= r r0)
      (progn
          (write-line (strcat "D" (rtos r 2 2)) f)
          (write-line p0 f)
          (setq r0 r)
      )
      (progn
            (write-line p0 f)
      )
    )  
  )
   (close f)
    (princ)
)
;;;对点表按xyz排序
(defun sort_pList (plist / fp pt)
  (setq plist (vl-sort plist
         '(lambda (p1 p2)
          (cond ((< (car p1) (car p2)) T)
          ((and (= (car p1) (car p2))
          (> (caddr p1) (caddr p2))
     )
     T
    )
    ((and (= (car p1) (car p2))
          (= (caddr p1) (caddr p2))
          (< (cadr p1) (cadr p2))
     )
     T
    )
    (T nil)
     )
   )
       )
   )
  )


这是现在的

这是现在的

想改成按红色线排队

想改成按红色线排队
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 1857个

财富等级: 堆金积玉

发表于 2020-1-19 20:11:51 | 显示全部楼层
题目能详细描述清楚么?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-3-29 07:55 , Processed in 0.294223 second(s), 33 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表