[求助]属性块的增量复制

airuyi · 发表于 2012-7-27 23:23

如果有两个属性要变化，任何做？

airuyi · 发表于 2012-7-27 23:24

ZZXXQQ 发表于 2008-3-18 21:06
试试看。仅针对上图。

[/post]

如果有两个属性要变化，任何做？

htxhtx · 发表于 2014-5-27 14:32

好东西，谢谢分享！

浪花飘飘 · 发表于 2015-11-24 23:43

谢谢！学习中。

浪花飘飘 · 发表于 2015-11-25 00:04

jackygaoping · 发表于 2016-4-2 11:49

学习了

jackygaoping · 发表于 2016-4-2 14:19

找了一个只能复制数字递增，复制块就没用了

ljwsyzf · 发表于 2017-12-31 10:47

我也想要这样子的插件·

xj6019 · 发表于 2019-12-11 22:48

本帖最后由 xj6019 于 2019-12-11 22:49 编辑

老帖子顶一下很实用的功能电脑运行不了啊问问cad2015运行35楼的代码为什么不能递增复制呀  谁帮忙看看，高版本不支持吗？
代码是35楼抄来的浏览方便，麻烦懂的给看看呗。

(DEFUN C:ADD1 ()
(SETVAR "CMDECHO" 0)
(IF (AND (SETQ S1 (CAR (ENTSEL "\nSelect Block with Attrib 选择带属性图块 :")))
      (SETQ ENT (ENTGET S1))
(= (CDR (ASSOC 0 ENT)) "INSERT")
(= (CDR (ASSOC 66 ENT)) 1)
  ) (PROGN
  (COMMAND ".UNDO" "BE")
  (SETQ PT0 (CDR (ASSOC 10 ENT)) N nil M nil)
  (WHILE (SETQ PT1 (GETPOINT PT0 "\nInsert Point 插入点 :"))
(COMMAND ".COPY" S1 "" PT0 PT1)
(SETQ ENT1 (ENTGET(ENTLAST)) ENT2 ENT1)
(WHILE (= (CDR(ASSOC 0 (SETQ ENT2 (ENTGET(ENTNEXT(CDR(ASSOC -1 ENT2))))))) "ATTRIB")
(IF (= (CDR(ASSOC 2 ENT2)) "KKS_CODE") (PROGN
   (SETQ TXTF (CDR(ASSOC 1 ENT2)) TXTA "" I 1 SL (STRLEN TXTF))
   (WHILE (AND (> (SETQ TA (SUBSTR TXTF I 1)) "9") (< TA "0") (< I SL))
   (SETQ TXTA (STRCAT TXTA TA) I (1+ I))
   )
   (IF (<= I SL) (PROGN
   (SETQ N (1+ (IF N N (ATOI (SUBSTR TXTF I))))
               TXTF (STRCAT TA (IF (< N 10) "00" (IF (< N 100) "0" "")) (ITOA N))
               ENT1 (SUBST (CONS 1 TXTF) (ASSOC 1 ENT2) ENT2))
   (ENTMOD ENT2)
   (ENTMOD ENT1)
   (ENTUPD (ENTLAST))
   ))
))
(IF (= (CDR(ASSOC 2 ENT2)) "SNA") (PROGN
   (SETQ TXTF (CDR(ASSOC 1 ENT2)) TXTA "" I 1 SL (STRLEN TXTF))
   (WHILE (AND (> (SETQ TA (SUBSTR TXTF I 1)) "9") (< TA "0") (< I SL))
   (SETQ TXTA (STRCAT TXTA TA) I (1+ I))
   )
   (IF (<= I SL) (PROGN
   (SETQ M (1+ (IF M M (ATOI (SUBSTR TXTF I))))
               TXTF (STRCAT (SUBSTR TXTF 1 2) (IF (< M 10) "00" (IF (< M 100) "0" "")) (ITOA M))
               ENT1 (SUBST (CONS 1 TXTF) (ASSOC 1 ENT2) ENT2))
   (ENTMOD ENT2)
   (ENTMOD ENT1)
   (ENTUPD (ENTLAST))
   ))
))
(IF (ASSOC 60 ENT2) (PROGN
   (SETQ ENT2 (SUBST '(60 . 0) (ASSOC 60 ENT2) ENT2))
   (ENTMOD ENT2)
   (ENTMOD ENT1)
   (ENTUPD (ENTLAST))
))
)
  )
  (COMMAND ".UNDO" "E")
))
(SETVAR "CMDECHO" 1)
(PRINC)
)

松树石头哥 · 发表于 2019-12-12 09:31

没看到相关内容啊！

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

[求助]属性块的增量复制

点评