编号

wjm3

请教：如何实现附件描述的功能？


由点生成序号，但文字需按从上到下、从左至右的顺序排列，并且文字的插入点是point点的坐标。


急需，谢谢！

citykunan

你的坐标点有点没有规律，还有什么条件吗？以下程序供参考 (defun c:test ( / ss i ent pt ptlist j)
(vl-load-com)
(prompt "Select point...")
(setq ss (ssget '((0 . "POINT"))))
(first_set)
(setq i 0)
(repeat (sslength ss)
(setq ent (ssname ss i))
(setq pt (list (cdr (assoc 10 (entget ent)))))
(setq ptlist (append pt ptlist))
(setq i (1+ i))
) (setq ptlist (vl-sort ptlist '(lambda (e1 e2) (wl-equal (car e1) (car e2) "<" 0.00001))));排序x
(setq ptlist (vl-sort ptlist '(lambda (e1 e2) (wl-equal (cadr e1) (cadr e2) "<" 0.00001))));排序y


(setq j 1) (while ptlist
(command "text" (car ptlist) "" "" j "")
(setq j (+ j 1))
(setq ptlist (cdr ptlist)) )

(end_recover)
(princ)
)
(defun first_set ()
(command "_.undo" "be")
(setq os (getvar "osmode"))
(setq cmd (getvar "cmdecho"))
(setvar "osmode" 0)
(setvar "cmdecho" 0)

) (defun end_recover ()
(setvar "osmode" os)
(setvar "cmdecho" cmd)
(command "_.undo" "e")
) ;飞版主的排序程序
(defun Wl-equal (Val1 Val2 fun fuzz)
(cond
((= fun "=") (equal Val1 Val2 fuzz) t)
((= fun "<") (cond
((equal Val1 Val2 fuzz) nil)
((< Val1 Val2) t)))
((= fun ">" (cond
((equal Val1 Val2 fuzz) nil)
((> Val1 Val2) t))))
)
)

wjm3

就是这种数据啊，无奈。谢谢！

citykunan

是不是每三个点为一行？或者高度相差多少范围内的算一组，这样就有办法处理了。

Ea

“我的程序”中有一个自动编号的程序