求救 哪位大大知道这个函数啊: YBL-ENT-SORT

zag0666

求救 哪位大大知道这个函数啊:  错误: no function definition: YBL-ENT-SORT

lenlenq

这应该是个自定义函数。

zag0666

我应该写清楚的,是下面这个程序里的.  
作者: eachy

(defun c:AlDim (/ ss ssl i e el p dl tf dist)
  (if (and (setq ss (ssget '((0 . "dimension") (70 . 32))))
           (setq dist (getdist "\n输入间距: "))
      )
    (progn
      (command ".undo" "be")
      (setq ssl (sslength ss)
            i   -1
      )
      (repeat ssl
        (setq e  (ssname ss (setq i (1+ i)))
              el (entget e)
              p  (cdr (assoc 10 el))
              dl (cons (list p e) dl)
        )
        (if
          (and (not tf) (equal (cdr (assoc 50 el)) (/ pi 2.) 1e-6)) ;_ver
           (setq tf t)
        )
      )
      (if tf
        (setq dl (ybl-ent-sort  dl 1 4 dist)) ;_ver
        (setq dl (ybl-ent-sort  dl 0 1 dist))
      )
      (setq p (caaar dl))
      (foreach x dl
        (foreach d x
          (setq el (entget (cadr d)))
          (entmod (subst (cons 10
                               (if tf
                                 (list (car p) (cadar d))
                                 (list (caar d) (cadr p))
                               )
                         )
                         (assoc 10 el)
                         el
                  )
          )
        )
        (setq p (if tf
                  (mapcar '+ (list dist 0. 0.) p)
                  (mapcar '- p (list 0. (- dist) 0.))
                )
        )
      )
      (command ".undo" "end")
    )
  )
  (princ)
)
(princ "\nStart command with AlDim , eachy [www.xdcad.net]!")
(princ)

zag0666

谢谢  提醒  !

我把他"家"翻了个底朝天,终于找到了

zag0666

可惜的是他是在标注后用于整理,如果能过标注时就能设定就好了

c735023723

没见过这个函数，呵呵，自定义的吧

kkt123

没见过这个函数