[求助]：[0304]關於"屬性標籤值"內容替換問題?

vken7az2p

请问排序是否为此模式呢?
(defun sort_list_xY (lst)
(setq y_sort_list
(vl-sort lst '(lambda (1% 2%)
(> (cadr (nth 0 1%)) (cadr (nth 0 2%))))))
(setq lst
(vl-sort y_sort_list '(lambda (1% 2%)
(< (car (nth 0 1%)) (car (nth 0 2%))))))
) ;;_<a>(defun sort_list_xY (lst),左→右,上→下,xY

另外在这段写入排序后的属性数值,
我试著改写您的程序,
但好像也不行这样边写...
(setq N 1)
(mapcar '(lambda (x)
(vla-put-textstring
(vlax-invoke (nth 1 (car x)) "GetAttributes") N )
(setq N (1+ N) ) ) LST )

烦请帮忙解答一下~
谢谢~

vken7az2p

<BR>是否为如此的编写方式呢?<BR>;;写入排序后的属性数值<BR>(setq N 1)<BR>(foreach ENT LST<BR>  (setq OBJ (cadr ENT))<BR>  (vla-put-textstring OBJ N)<BR>  (setq N (1+ N))<BR>)

vken7az2p

另外请问版主您的程序,
是怎样在一开始程序执行时,
让所有属性名称数值归回预设值呢?

龙龙仔

慢慢试吧!写程序就是如此,试多就护得更多!

提问要说清楚,不懂你要甚么?有测试图吗?

 

vken7az2p

请问版主您的程序,
是怎样在一开始程序执行时,
让所有属性名称
归回像您所设定的"N"值呢?

vken7az2p

请问版主及各位高手们:
目前我所编写的程序,
为何在执行排序种类"A~D"都会发生,
某些编号排列错误呢?
是否可帮忙看一下问题出在哪里呢?
谢谢~

附上发生问题的图片及DWG档案~

程序如下:
;;;^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
;;排序种类副程式

(defun ar_sort_a ()
(setq y_sort_list (vl-sort lst '(lambda (1% 2%)
(> (cadr (nth 0 1%)) (cadr (nth 0 2%))) )) )
(setq lst (vl-sort y_sort_list '(lambda (1% 2%)
(< (car (nth 0 1%)) (car (nth 0 2%))) )) )
)

(defun ar_sort_b ()
(setq y_sort_list (vl-sort lst '(lambda (1% 2%)
(< (cadr (nth 0 1%)) (cadr (nth 0 2%))) )) )
(setq lst (vl-sort y_sort_list '(lambda (1% 2%)
(< (car (nth 0 1%)) (car (nth 0 2%))) )) )
)

(defun ar_sort_c ()
(setq y_sort_list (vl-sort lst '(lambda (1% 2%)
(> (cadr (nth 0 1%)) (cadr (nth 0 2%))) )) )
(setq lst (vl-sort y_sort_list '(lambda (1% 2%)
(> (car (nth 0 1%)) (car (nth 0 2%))) )) )
)

(defun ar_sort_d ()
(setq y_sort_list (vl-sort lst '(lambda (1% 2%)
(< (cadr (nth 0 1%)) (cadr (nth 0 2%))) )) )
(setq lst (vl-sort y_sort_list '(lambda (1% 2%)
(> (car (nth 0 1%)) (car (nth 0 2%))) )) )
)

(defun ar_sort_e ()
(setq x_sort_list (vl-sort lst '(lambda (1% 2%)
(< (car (nth 0 1%)) (car (nth 0 2%))))))
(setq lst (vl-sort x_sort_list '(lambda (1% 2%)
(> (cadr (nth 0 1%)) (cadr (nth 0 2%))))))
)

(defun ar_sort_f ()
(setq x_sort_list (vl-sort lst '(lambda (1% 2%)
(< (car (nth 0 1%)) (car (nth 0 2%))))))
(setq lst (vl-sort x_sort_list '(lambda (1% 2%)
(< (cadr (nth 0 1%)) (cadr (nth 0 2%))))))
)

(defun ar_sort_g ()
(setq x_sort_list (vl-sort lst '(lambda (1% 2%)
(> (car (nth 0 1%)) (car (nth 0 2%))))))
(setq lst (vl-sort x_sort_list '(lambda (1% 2%)
(> (cadr (nth 0 1%)) (cadr (nth 0 2%))))))
)

(defun ar_sort_h ()
(setq x_sort_list (vl-sort lst '(lambda (1% 2%)
(> (car (nth 0 1%)) (car (nth 0 2%))))))
(setq lst (vl-sort x_sort_list '(lambda (1% 2%)
(< (cadr (nth 0 1%)) (cadr (nth 0 2%))))))
)
   
;;;^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
(defun c:test ()
(vl-load-com)
(setq ss (ssget '((0 . "insert") (66 . 1))))
(setq K (getint "\n 设定起始号码:"))
(setq n -1)
(setq lst '())
(setq x_sort_list '())
(setq y_sort_list '())
(repeat (sslength ss)
(setq blkobj (vlax-ename->vla-object (ssname ss (setq n (1+ n)))))
   (foreach obj (vlax-invoke blkobj 'getattributes)
      (setq lst (append
     lst 
            (if (= (vla-get-tagstring obj) "NU")
            (list (list(vlax-get obj 'insertionpoint)obj))
     )
               ) ;_ 结束append
      ) ;_ 结束setq
   ) ;_ 结束foreach
) ;_ 结束repeat

;;;+++++++++++++++++++++++++++++++
(princ "\n 排序方式")
(princ "\n <Y方向>")
(princ "\n (A)左->右&上->下_(B)左->右&下->上_(C)右->左&上->下_(D)右->左&下->上")
(princ "\n <X方向>")
(princ "\n (E)上->下&左->右_(F)下->上&左->右_(G)上->下&右->左_(H)下->上&右->左")
(princ "<")(princ sf)(princ ">:")

(initget "a b c d e f g h ")
(setq sf1 (getkword))
(if (null sf1)
    (setq sf1 sf)
)
(cond
((= sf1 "a")(ar_sort_a))
((= sf1 "b")(ar_sort_b))
((= sf1 "c")(ar_sort_c))
((= sf1 "d")(ar_sort_d))
((= sf1 "e")(ar_sort_e))
((= sf1 "f")(ar_sort_f))
((= sf1 "g")(ar_sort_g))
((= sf1 "h")(ar_sort_h))
)

;;;+++++++++++++++++++++++++++++++
;;写入排序后的属性数值
(foreach ent lst
  (setq obj (cadr ent))
  (vla-put-textstring obj k)
  (setq k (1+ k))
)
;;;+++++++++++++++++++++++++++++++
(prin1))

龙龙仔

因为你的比较函数没有容许误差!

vken7az2p

那该怎样编写容许误差呢?

龙龙仔

看27楼秋枫的程序,把"=" 改用"equal" ,equal有容许误差

tctabc

我想应该是这样的误差判断

(defun ar_sort_a ()
(setq y_sort_list (vl-sort lst '(lambda (1% 2%)
(if (not (equal (cadr (nth 0 lst)) (cadr (nth 0 lst)) 1e8))
(> (cadr (nth 0 1%)) (cadr (nth 0 2%)) )
) ) ) )
(setq lst (vl-sort y_sort_list '(lambda (1% 2%)
(if (not (equal (car (nth 0 1%)) (car (nth 0 2%)) 1e8))
(< (car (nth 0 1%)) (car (nth 0 2%)))
) ) ) )
)

 

但是这里还有两个问题不懂
01. if 如果判断为 "假" 该怎样处里?
02. 两座标的误差值 该设多少呢 ? 要设 1e8 还是...

希望版大可以在解答一下~感谢~