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

龙龙仔 · 发表于 2006-3-10 12:33:00

本帖最后由作者于 2006-3-13 12:02:08 编辑

ts.vlx档(繁体版),增加起始数设定

tctabc · 发表于 2006-3-10 17:15:00

谢谢版大的程序,所需要的排序已经可以达到,
另外是否可以请版大提供一下源码让大家学习呢?
先谢谢您了~

vken7az2p · 发表于 2006-3-10 20:51:00

版大真是谢谢您的程序,这样编排就方便多了,但缺乏定义起始编号,

另外不知道是否可以提供一下源码让大家学习呢?

麻烦您了~谢谢~

tctabc · 发表于 2006-3-14 12:38:00

版大:

是否可以请您提供一下源码让大家学习呢?

龙龙仔 · 发表于 2006-3-14 14:16:00

论坛是讨论问题的地方,有问题可发至论坛。

到底版主在论坛得到了什么?不可能是整个程序,我主要是在磨练程序技巧,并用程序实现各种可能,源码不提供也是为了磨练网友,每个人写程序的思路都会不一样,从中才能得到一些其他方法。

前面不是已经有一个初版的源码了吗?应从简单学起,那初版是整个程序的关键,所有的关键技术都在其中了,看懂了初版,程序就能写出来。

vken7az2p · 发表于 2006-6-5 11:02:00

请教龙版主
关於此案例中,属性排序方面
仅限於属性第一位,
但第2~3...笔资料的排序问题
该怎样处里呢?
另外此问题也影响后面编号写入问题

请问是否可以指导一下
谢谢~

目前我用这程序取出属性标籤的座标
但好像在置换时还是不行用...

(setq ss (ssget '((0 . "insert") (66 . 1)) ) )
(setq n -1)
(setq lst '())
(setq sstime(sslength ss))
(repeat sstime
(setq blkobj (vlax-ename->vla-object (ssname SS (setq N (1+ N)) )) )
(setq xvar (vla-GetAttributes blkobj))
(setq svar (vlax-variant-value xvar))
(setq att_obj_list (vlax-safearray->list svar))

(foreach obj att_obj_list
(if (= (vla-get-tagstring obj) "NU") ;;判断属性名称
(progn
(setq atobj (vla-get-insertionpoint obj))
(setq atobj_v (vlax-variant-value atobj))
(setq atobj_s (vlax-safearray->list atobj_v))
(setq lst (append lst (list atobj_s)))
) ;_progn
) ;_if
) ;_foreach
)

龙龙仔 · 发表于 2006-6-6 07:51:00

;;看来你并不清楚图中的图块属性结构?
;;图块中的属性标籤只有一种"NU"
;;程序已经取得所有属性插入点,接下来只有排序了
(defun C:TT (/ BLKOBJ LST LST1 N SS)
(load (findfile "sortent.vlx") NIL)
(setq SS (ssget '((0 . "insert") (66 . 1))))
(setq N -1)
(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
(list (list (vlax-get OBJ 'INSERTIONPOINT) OBJ))
)
)
)
)
;;接下来只有排序了----晓东EACHY班竹有一个排序函数可用
;;排序后再把数字写入属性即可!
;;排序有8种方式----改参数即可
(setq LST1 (EA:SORT_ENTITY LST 1 1 5))
;;(setq LST1 (EA:SORT_ENTITY LST 1 2 5))
;;(setq LST1 (EA:SORT_ENTITY LST 1 3 5))
;;(setq LST1 (EA:SORT_ENTITY LST 1 4 5))
;;(setq LST1 (EA:SORT_ENTITY LST 0 1 5))
;;(setq LST1 (EA:SORT_ENTITY LST 0 2 5))
;;(setq LST1 (EA:SORT_ENTITY LST 0 3 5))
;;(setq LST1 (EA:SORT_ENTITY LST 0 4 5))
(setq N 1)
(foreach ENT LST1
(foreach OBJ ENT
(vla-put-textstring (cadr OBJ) N)
(setq N (1+ N))
)
)
(princ)
)
;|
程序:sortent.vlx 作者:eachy
调用格式: (ea:sort_entity entity_list mode key vx)
参数说明:
1 mode 0 按行 1 按列
2 key
(mod = 0) (mod = 1)
1 Y降X升 X升Y降 (左上至右下)
2 Y降X降 X降Y降 (右上至左下)
3 Y升X降 X降Y升 (右下至左上)
4 Y升X升 X升Y升 (左下至右上)
3 vx 行(列)允许误差，为 nil 实取 0
4 entity_list 表, 格式如下
((pt1 ent1) (pt2 ent2) ... (ptn entn))
a pt 为 ent 的特徵点， ent 可以为 entity 或 vla-object
比如对文字排序，pt 可以使用文字的插入点
b 当 pt 为实数时，vx 为行列最大及最小值的差值，此时 mode key 为任意值
如一组数 (1 3 56 89 56 45 6 8 45 91 45 69 78 15 12 11) vx 取 10
排序后为 ((1 3 6 8 11) (12 15) (45 45 45) (56 56) (69 78) (89 91))
总表及子表均为由大到小排列
返回值: 表，子表为按要求排列的行/列
说明: 因为是 lisp 函数，本函数内部并不对数据的合法性进行检查，以提高程序的效率
使用前确保各参数的的正确性
|;
;;所有排序皆从此程序变化
;;作者:秋枫
;;Sort_and_Write_pList :见件
(setq FNAME "C:\\LSP\\DAT.LSP")
(setq PLIST '((1 3 4)
(2 4 5)
(3 4 5)
(1 3 2)
(3 5 2)
(2 4 0)
(1 2 3)
(1 2 0)
(1 1 0)
)
)
(defun SORT_AND_WRITE_PLIST (FNAME PLIST / FP PT)
;; sort plist first
(setq PLIST (vl-sort PLIST
'(lambda (P1 P2)
(cond ((< (car P1) (car P2)) t)
((and (= (car P1) (car P2))
(< (cadr P1) (cadr P2))
)
t
)
((and (= (car P1) (car P2))
(= (cadr P1) (cadr P2))
(< (caddr P1) (caddr P2))
)
t
)
(t NIL)
)
)
)
)
;; write plist then
(setq FP (open FNAME "w"))
(foreach PT PLIST (princ PT FP) (princ "\n" FP))
(close FP)
)
;;(SORT_AND_WRITE_PLIST FNAME PLIST)

;;看来你并不清楚图中的图块属性结构?
;;图块中的属性标籤只有一种"NU"
;;程序已经取得所有属性插入点,接下来只有排序了
(defun C:TT (/ BLKOBJ LST LST1 N SS)
  (load (findfile "sortent.vlx") NIL)
  (setq SS (ssget '((0 . "insert") (66 . 1))))
  (setq N -1)
  (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
      (list (list (vlax-get OBJ 'INSERTIONPOINT) OBJ))
     )
      )
    )
  )
  ;;接下来只有排序了----晓东EACHY班竹有一个排序函数可用
  ;;排序后再把数字写入属性即可!
  ;;排序有8种方式----改参数即可
  (setq LST1 (EA:SORT_ENTITY LST 1 1 5))
  ;;(setq LST1 (EA:SORT_ENTITY LST 1 2 5))
  ;;(setq LST1 (EA:SORT_ENTITY LST 1 3 5))
  ;;(setq LST1 (EA:SORT_ENTITY LST 1 4 5))
  ;;(setq LST1 (EA:SORT_ENTITY LST 0 1 5))
  ;;(setq LST1 (EA:SORT_ENTITY LST 0 2 5))
  ;;(setq LST1 (EA:SORT_ENTITY LST 0 3 5))
  ;;(setq LST1 (EA:SORT_ENTITY LST 0 4 5))
  (setq N 1)
  (foreach ENT LST1
    (foreach OBJ ENT
      (vla-put-textstring (cadr OBJ) N)
      (setq N (1+ N))
    )
  )
  (princ)
)
 ;|
程序:sortent.vlx  作者:eachy
调用格式: (ea:sort_entity entity_list mode key vx)
参数说明: 
        1 mode 0 按行 1 按列
        2 key
             (mod = 0)    (mod = 1)
          1  Y降X升       X升Y降   (左上至右下)
          2  Y降X降       X降Y降   (右上至左下)
          3  Y升X降       X降Y升   (右下至左上)
          4  Y升X升       X升Y升   (左下至右上)
          
        3 vx 行(列)允许误差，为 nil 实取 0
        4 entity_list 表, 格式如下
                  ((pt1 ent1) (pt2 ent2) ... (ptn entn))
          a pt 为 ent 的特徵点， ent 可以为 entity 或 vla-object
            比如对文字排序，pt 可以使用文字的插入点
            
          b 当 pt 为实数时，vx 为行列最大及最小值的差值，此时 mode key 为任意值
            如一组数 (1 3 56 89 56 45 6 8 45 91 45 69 78 15 12 11) vx 取 10
            排序后为 ((1 3 6 8 11) (12 15) (45 45 45) (56 56) (69 78) (89 91))
            总表及子表均为由大到小排列
         
返 回 值: 表，子表为按要求排列的 行/列
说    明: 因为是 lisp 函数，本函数内部并不对数据的合法性进行检查，以提高程序的效率
          使用前确保各参数的的正确性
|;
;;所有排序皆从此程序变化
;;作者:秋枫
;;Sort_and_Write_pList :见件
(setq FNAME "C:\\LSP\\DAT.LSP")
(setq PLIST '((1 3 4)
       (2 4 5)
       (3 4 5)
       (1 3 2)
       (3 5 2)
       (2 4 0)
       (1 2 3)
       (1 2 0)
       (1 1 0)
      )
)
(defun SORT_AND_WRITE_PLIST (FNAME PLIST / FP PT)
  ;; sort plist first 
  (setq PLIST (vl-sort PLIST
         '(lambda (P1 P2)
     (cond ((< (car P1) (car P2)) t)
    ((and (= (car P1) (car P2))
          (< (cadr P1) (cadr P2))
     )
     t
    )
    ((and (= (car P1) (car P2))
          (= (cadr P1) (cadr P2))
          (< (caddr P1) (caddr P2))
     )
     t
    )
    (t NIL)
     )
   )
       )
  )
  ;; write plist then 
  (setq FP (open FNAME "w"))
  (foreach PT PLIST (princ PT FP) (princ "\n" FP))
  (close FP)
)
;;(SORT_AND_WRITE_PLIST FNAME PLIST)

vken7az2p · 发表于 2006-6-6 08:20:00

谢谢解答,但假如说目前的属性标签名称,
不只存在"NU"一种,
另有其他的名称存在,
那该怎样先排除这不需要排序的属性标签名称呢?
烦请再次帮忙解答一下
谢谢~

vken7az2p · 发表于 2006-6-6 08:54:00

3

使用版大的程序改写了将属性标籤名称加入选取
但因为不太清楚用法
不知道该怎样将没有属性标籤名称所產生的,
如下面这样
(nil #<VLA-OBJECT IAcadAttributeReference2 0f7516f4>)
该怎样去掉此串列呢?

目前的程序如下,
如有错误请在指点指点~谢谢~
(setq ss (ssget '((0 . "insert") (66 . 1))))
(setq n -1)
(setq lst '())
(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 (list (list
            (if (= (vla-get-tagstring obj) "NU") ;;设置判断属性名称
            (vlax-get obj 'insertionpoint)
     )
            obj))
         ) ;_ 结束append
      ) ;_ 结束setq
   ) ;_ 结束foreach
) ;_ 结束repeat

回传结果如下:
((nil #<VLA-OBJECT IAcadAttributeReference2 0f7516f4>) ((5423.97 846.051 0.0)

#<VLA-OBJECT IAcadAttributeReference2 0f751674>) ((5423.97 786.051 0.0)

#<VLA-OBJECT IAcadAttributeReference2 0f7515f4>) ((5285.76 845.143 0.0)

#<VLA-OBJECT IAcadAttributeReference2 0f752f84>) ((5229.93 845.143 0.0)

#<VLA-OBJECT IAcadAttributeReference2 0f752ee4>) ((5164.51 845.143 0.0)

#<VLA-OBJECT IAcadAttributeRefer

vken7az2p · 发表于 2006-6-6 08:58:00

(setq ss (ssget '((0 . "insert") (66 . 1))))
(setq n -1)
(setq lst '())
(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

这样的编写正确吗?

账号		自动登录	找回密码
密码			注册

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

本帖子中包含更多资源

本帖子中包含更多资源