[求助]请教高手，这段程序为何修改不了？

userzhl

请教高手，这段程序为何修改不了？

(setq BLKS (vla-get-blocks
        (vla-get-activedocument (vlax-get-acad-object))
      )
  )
(setq scal 20.0)
  (repeat (setq i (sslength ssi))
    (setq sn (ssname ssi (setq i (1- i))))
    (setq ELIST (entget sn))
    (setq BLK_NA (cdr (assoc 2 ELIST)))
 (setq bb (cdr (assoc 1 (entget (entnext sn)))))
    (setq bb1 (strcat "1:" (rtos scal 2 0)))
    (vlax-for X (vla-item BLKS BLK_NA)
      (if (and (= (vla-get-objectname X) "AcDbAttributeDefinition")
        (wcmatch (vla-get-promptstring X) "图名_*")
   )
(ZL-INSERT-SETATTVALUE sn bb bb1) ;修改属性块的属性值
      )
    )
  )

mmmmmm

你没有ZL-INSERT-SETATTVALUE函数的定义当然无法运行。

另外建议你先做些基本功课，了解块、属性等相关的知识，再来搞新的程序或者改写别人的程序。那样才能知道哪里要改，要不然好多时候会根本没有要领，自然无法真正提高。毕竟无法指望别人能帮你把所有程序写好。研究的精神可嘉，但要有好方法才能事半功倍。

userzhl

这个函数是有的。

(defun ZL-INSERT-SETATTVALUE (EN ATTNAME VALUE / RETURN E TEST ENT)
    (setq E EN
   RETURN NIL
   TEST t
    )
    (while (and TEST
  (setq E (entnext E))
    )
 (setq ENT (entget E))
 (cond
     ;;
     ((not (= (cdr (assoc 0 ENT)) "ATTRIB"))
      (setq TEST NIL)
     )
     ;;
     ((= "SEQEND" (cdr (assoc 0 ENT)))
      (setq TEST NIL)
     )
     ;;
     ((= (cdr (assoc 2 ENT)) ATTNAME)
      (setq ENT (subst
      (cons 1 VALUE)
      (assoc 1 ENT)
      ENT
         )
      )
      (entmod ENT)
      (entupd EN)
      (setq RETURN t)
     )
 ) ;_结束cond
    )
    ;;返回
    RETURN
)

我有看了不少书呀。但还是一知半解的。

userzhl

为何这样也不行：

(setq ii -1)
(repeat (sslength ssi)
(setq ent (ssname ssi (setq ii (1+ ii)))
       en (entget ent))
(setq BLK_NA (cdr (assoc 2 en)))
;(setq bb (cdr (assoc 1 (entget (entnext ent)))))
(setq bb1 (strcat "1:" (rtos scal 2 0)))
(setq e1 (entget (entnext (cdr (car (entget ent))))))
(vlax-for X (vla-item BLKS BLK_NA)
 (if (and (= (vla-get-objectname X) "AcDbAttributeDefinition")
 (wcmatch (vla-get-promptstring X) "海龙工具图名_*")
 )
(progn
(setq e1 (subst (cons 1 bb1) (assoc 1 e1) e1))
(entmod e1)
(entmod en)
      )
    )
)
)